Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1742 / 9994

←次へ　｜　前へ→


	【11543】Re:フォーム未入力時のエラー表示について

Nao - 10/3/20(土) 13:13 -


	引用なし

	パスワード

まず、エラーチェック等は処理の中ではなく
処理開始時にチェックするべきです。

On Error 文は作成を終結してエラーが無いことを
確認できるまでコメントかした方がいいです。

>Private Sub コマンド20_Click() 'レコード追加処理
>
>Dim Cn As ADODB.connection
>Dim Rs As ADODB.Recordset

>On Error GoTo Err_コマンド20_Click
>
>If IsNull(Me!記入者) Then
>　 MsgBox "入力が不十分です！！"
>　 DoCmd.GoToControl "記入者"
>　 Exit Sub
>End If

質問の件について・・・
おそらく　Null ではなく　長さゼロの文字列が入力されると
判定されないのでは？

>If Nz(Me!記入者,"") = "" Then

このように Nz関数に変更するとどうなりますか？

728 hits

▼

【11542】フォーム未入力時のエラー表示について VBA初心者 10/3/18(木) 11:38