![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4ベストアンサー
- 回答日時:
#1です。
>条件をクリアした場合の処理がたくさんあるので、
>できれば1度の条件で判断させていと思っています。
意味がわからないです。
「コードの行数が増えて見難くなるから、1度の条件で判断したい」
ということですか?
そうだとしたら、チェックの部分だけ、外に出してしまえばいいことです。
Private xxxClick()
If CheckForm() = True Then
Exit Sub
End IF
'これ以降条件クリア時の処理
End Sub
Private Function CheckForm()
CheckForm = False
If 条件1 Then
MsgBox メッセージ1
Exit Function
End If
If 条件2 Then
MsgBox メッセージ2
Exit Function
End If
If 条件3 Then
MsgBox メッセージ3
Exit Function
End If
CheckForm = True
End Function
No.3
- 回答日時:
#1の方のいわれるとおり項目毎にメッセージをだすか
Dim ERNO As Integer
If Me![名前] Is Null Then ERNO = 1 Else ERNO = 0
If Me![性別] Is Null Then ERNO = ERNO + 2
If Me![住所] Is Null Then ERNO = ERNO + 4
Select Case ERNO
Case 1
MsgBox "名前を入力..."
Case 2
MsgBox "性別を入力..."
Case 3
MsgBox "名前と性別を入力..."
Case 4
MsgBox "住所を入力..."
Case 5
MsgBox "名前と住所を入力..."
Case 6
MsgBox "性別と住所を入力..."
Case 7
MsgBox "名前と性別と住所を入力..."
Case Else
処理の実行
End Select
No.1
- 回答日時:
エラーメッセージの出し方によって、変わってきますが、
とりあえずメッセージを出した後に、exit subで抜けたらどうですか?
If 条件1 Then
MsgBox メッセージ1
Exit Sub
End If
If 条件2 Then
MsgBox メッセージ2
Exit Sub
End If
If 条件3 Then
MsgBox メッセージ3
Exit Sub
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessで、定型入力を使って年...
-
Accessで24時間を超える時間の...
-
Adobeのプレミアプロ(premiere ...
-
○○の何乗はどう入力?
-
宀や广など、部首だけを入力す...
-
Excelのワークシート上に配置し...
-
Accessの定型入力(000\\-0000;0;_)
-
ACCESSで年度入力したい...
-
シリアル番号
-
MSNメッセンジャーで日本語が入...
-
弥生会計の青色申告特別控除額
-
打ち込みソフトを探しています
-
一太郎スマイルのツールバー
-
スペシャルねこまんま57号について
-
ペンタブで数式入力がしたいの...
-
ATOKのポップアップを消したい
-
Ubuntu ID Password入力
-
「24日の0時」って・・・
-
Excelで1週間毎の集計(今週と...
-
エクセルのチェックボックスを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessで、定型入力を使って年...
-
宀や广など、部首だけを入力す...
-
Accessで24時間を超える時間の...
-
DIORのオンラインショップの購...
-
Excelのワークシート上に配置し...
-
フォトショプ でテキストを改行...
-
サクラエディタの入力補完機能...
-
graphvizの日本語文字化け対策
-
○○の何乗はどう入力?
-
UWSCで全角(ひらがな、カタカ...
-
ATOKのポップアップを消したい
-
Adobeのプレミアプロ(premiere ...
-
Accessの定型入力(000\\-0000;0;_)
-
住所入力支援を使用したくない...
-
ACCESSで年度入力したい...
-
Amazonで物を購入するときに住...
-
Amazonの配送先住所入力の自動...
-
アクセスの時間計算について
-
グーグルアースを緯度経度で探...
-
ATOKでハートマークを出す方法
おすすめ情報