Access VBA質問箱 IV

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

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


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

1743 / 9994

←次へ　｜　前へ→


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

VBA初心者 - 10/3/18(木) 11:38 -


	引用なし

	パスワード

いつもお世話になります。
　伝言用のフォームを作成して共有しようとしております。フォーム記入時に
「記入者」フィールドに入力しないと「入力が不十分です！！」とメッセージを
表示させて、「記入者」フィールドのコントロールにカーソルを合わせたいのですが
「記入者」フィールドがデータ未記入でも「登録しました！！」とメッセージが
表示され、データも登録されてしまいます。
　ない頭で考えてもわかりませんので、どなたかご教授をお願いします。　

Private Sub コマンド20_Click() 'レコード追加処理

On Error GoTo Err_コマンド20_Click

Dim Cn As ADODB.connection
Dim Rs As ADODB.Recordset
　　
　　Set Cn = New ADODB.connection
　　Set Rs = New ADODB.Recordset

　　Cn.Open "provider=Microsoft.Jet.OLEDB.4.0;" _
　　& "data Source= \\XXX.XX.X.XX\YYY\TEST\TOUROKU_DENGON.mdb"

　　Rs.Open "T_DENGON", Cn, adOpenKeyset, adLockOptimistic

　　Rs.AddNew
　　Rs!HostID = Me!ID
　　Rs!コメント = Me!コメント
　　Rs!IPアドレス = Me!IP
　　Rs!PC名 = Me!Host
　　Rs!記入者 = Me!記入者
　　

If IsNull(Me!記入者) Then
　 MsgBox "入力が不十分です！！"
　 DoCmd.GoToControl "記入者"
　 Exit Sub
End If
　　
Rs.Update
　
　　MsgBox "登録しました!!", vbOKOnly, "メッセージ"

Exit_コマンド20_Click:
　　Exit Sub

Err_コマンド20_Click:
　 MsgBox "すでに登録されています!!"
　 Resume Exit_コマンド20_Click

Rs.Close
Cn.Close

End Sub

738 hits

▼

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