| |
いつもお世話になります。
伝言用のフォームを作成して共有しようとしております。フォーム記入時に
「記入者」フィールドに入力しないと「入力が不十分です！！」とメッセージを
表示させて、「記入者」フィールドのコントロールにカーソルを合わせたいのですが
「記入者」フィールドがデータ未記入でも「登録しました！！」とメッセージが
表示され、データも登録されてしまいます。
ない頭で考えてもわかりませんので、どなたかご教授をお願いします。
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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
