Ｐａｇｅ 408 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼３個あるテキストボックスに全部入力しな... EBI 03/10/16(木) 20:57 ┗Re:３個あるテキストボックスに全部入力しな... しろくろやぎ 03/10/17(金) 15:51 ┗Re:３個あるテキストボックスに全部入力し... EBI 03/10/17(金) 22:39 ─────────────────────────────────────── ■題名 ： ３個あるテキストボックスに全部入力しな... ■名前 ： EBI <ebi@gctv.ne.jp> ■日付 ： 03/10/16(木) 20:57 -------------------------------------------------------------------------
| フォームに３個のテキストボックス”受付番号””店番””入力者”と,コマンドボタン”次へ”があります。 この３個のテキストボックスに全部入力したら”次へ”ボタンを有効にしたいのですが？ また、１個のテキストボタンに入力してから、戻ってデータをDeletしたら再度”次へ”ボタンを無効にしたいのですが？ 現在は、以下のようにしています。 よろしくお願いします。 Private Sub Form_Open(Cancel As Integer) 次へ.Enabled = False End Sub Private Sub 受付番号_AfterUpdate() If IsNull(Me!受付番号) = True Then 次へ.Enabled = False Else 次へ.Enabled = True End If End Sub |
| ▼EBI さん： >フォームに３個のテキストボックス”受付番号””店番””入力者”と, >コマンドボタン”次へ”があります。 >この３個のテキストボックスに全部入力したら”次へ”ボタンを有効に >したいのですが？ 自分ならこういう風にします。 Private Sub CheckAll() Dim bFlg As Boolean bFlg = True bFlg = bFlg And (0 < Len(Nz(受付番号.Value, ""))) bFlg = bFlg And (0 < Len(Nz(店番.Value, ""))) bFlg = bFlg And (0 < Len(Nz(入力者.Value, ""))) ' 全部のテキストボックスが埋まっている時、bFlg=True 次へ.Enabled = bFlg End Sub Private Sub Form_Open(Cancel As Integer) 次へ.Enabled = False End Sub Private Sub 受付番号_AfterUpdate() Call CheckAll End Sub Private Sub 店番_AfterUpdate() Call CheckAll End Sub Private Sub 入力者_AfterUpdate() Call CheckAll End Sub |
| ▼しろくろやぎ さん：EBIです。 ありがとうございました。 思いとおりの結果が得られました。 >自分ならこういう風にします。 > >Private Sub CheckAll() > > Dim bFlg As Boolean > bFlg = True > bFlg = bFlg And (0 < Len(Nz(受付番号.Value, ""))) > bFlg = bFlg And (0 < Len(Nz(店番.Value, ""))) > bFlg = bFlg And (0 < Len(Nz(入力者.Value, ""))) > >' 全部のテキストボックスが埋まっている時、bFlg=True > 次へ.Enabled = bFlg > >End Sub > >Private Sub Form_Open(Cancel As Integer) > 次へ.Enabled = False >End Sub > >Private Sub 受付番号_AfterUpdate() > Call CheckAll >End Sub > >Private Sub 店番_AfterUpdate() > Call CheckAll >End Sub > >Private Sub 入力者_AfterUpdate() > Call CheckAll >End Sub |