実現したいこと
備考を除く全ての入力必須テキストボックスが未入力の状態で登録ボタンをクリックした際、「備考以外は入力必須項目です。」と警告文を表示したい。
前提
店舗情報をマスターテーブルに追加するフォームを作成しています。
店舗マスターテーブルのフィールドは、数値型の店舗番号、短いテキスト型の店舗名・〒(郵便番号)・住所・電話番号・FAX番号・備考です。フォーム上のテキストボックスの名前はフィールド名と同様です。既定値はいずれのフィールドも設定していません。
発生している問題・エラーメッセージ
登録ボタンをクリックすると、実行時エラー"13",型が一致しませんと表示が出ます。
該当のソースコード
Option Compare Database
Option Explicit
Private Sub 登録する_Click()
If IsNull(店舗番号 + 店舗名 + 〒 + 住所 + 電話 + FAX + 備考) Then
MsgBox "備考以外は入力必須項目です。", vbOKOnly + vbExclamation, "入力不備"
Exit Sub
Else
DoCmd.GoToRecord , , acNewRec
End If
End Sub
試したこと
上記コードから店舗番号を削除し、備考以外のいずれかのテキストボックスを未入力の状態で登録ボタンをクリックすると正常にmsgboxが表示されました。
店舗番号だけ別に記述することも考えましたが、店舗番号が入力されていません。備考以外は必須項目です。と複数回警告が表示されるのも鬱陶しいかなと思います。
0 コメント