Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7282 / 9994 ←次へ | 前へ→

【5908】Re:時間の計算について
発言  小僧  - 05/8/18(木) 16:54 -

引用なし
パスワード
   ▼わん さん:
ご提示されたコード確認致しました。
こちらの環境でも問題なく動作しております。

ところで当方がコードを作成するとしたら…
根っからの横着モノなので

>If IsNull(Me.コンボ年) Then
>  MsgBox "入団年数を入力して下さい。"
>  Me.コンボ年.SetFocus
>  Exit Sub
>End If

と3回(くらいならいいかな…)も同じコードを書くのが面倒くさいので、

Dim strCtrl(1 To 3) As Variant
Dim I As Long
  strCtrl(1) = "コンボ年"
  strCtrl(2) = "コンボ月"
  strCtrl(3) = "テキストポジション"
  
  For I = 1 To 3
    If IsNull(Me.Controls(strCtrl(I))) Then
      MsgBox strCtrl(I) & "を入力してください。"
      Me.Controls(strCtrl(I)).SetFocus
      Exit Sub
    End If
  Next

とでもします(笑)。
このままですとメッセージボックスの表示が良くないので
コントロール名自体も変えちゃうと思います。

今回は「Null」チェックが3回でそのままでも良いのですが、
もっと多い場合には有効になると思います。

647 hits

【5829】時間の計算について わん 05/8/11(木) 14:01 質問
【5831】Re:時間の計算について 小僧 05/8/11(木) 14:35 回答
【5833】Re:時間の計算について わん 05/8/11(木) 15:17 お礼
【5850】Re:時間の計算について わん 05/8/12(金) 13:42 質問
【5851】Re:時間の計算について 小僧 05/8/12(金) 16:02 発言
【5852】Re:時間の計算について わん 05/8/13(土) 15:26 お礼
【5858】Re:時間の計算について 小僧 05/8/15(月) 13:23 発言
【5859】Re:時間の計算について わん 05/8/15(月) 14:47 お礼
【5865】Re:時間の計算について わん 05/8/17(水) 11:05 質問
【5867】Re:時間の計算について 小僧 05/8/17(水) 11:26 発言
【5869】Re:時間の計算について わん 05/8/17(水) 12:37 質問
【5872】Re:時間の計算について 小僧 05/8/17(水) 13:45 発言
【5873】Re:時間の計算について わん 05/8/17(水) 14:16 発言
【5879】Re:時間の計算について 小僧 05/8/17(水) 15:39 発言
【5886】Re:時間の計算について わん 05/8/17(水) 17:16 お礼
【5891】Re:時間の計算について 小僧 05/8/17(水) 18:19 発言
【5894】Re:時間の計算について わん 05/8/18(木) 2:23 質問
【5900】Re:時間の計算について 小僧 05/8/18(木) 12:02 回答
【5901】Re:時間の計算について わん 05/8/18(木) 12:51 お礼
【5906】Re:時間の計算について わん 05/8/18(木) 16:12 お礼
【5908】Re:時間の計算について 小僧 05/8/18(木) 16:54 発言
【5910】Re:時間の計算について わん 05/8/18(木) 17:20 質問
【5912】Re:時間の計算について 小僧 05/8/18(木) 18:02 発言
【5922】Re:時間の計算について わん 05/8/19(金) 2:51 発言
【5939】Re:時間の計算について 小僧 05/8/21(日) 8:05 発言
【5942】Re:時間の計算について わん 05/8/21(日) 22:00 質問
【5946】Re:時間の計算について 小僧 05/8/22(月) 9:51 回答
【5965】Re:時間の計算について わん 05/8/22(月) 20:42 お礼

7282 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078255
(SS)C-BOARD v3.8 is Free