![](https://blogimg.goo.ne.jp/img_emoji/kaeru_rain.gif)
二日酔いです
![](https://blogimg.goo.ne.jp/img_emoji/face_gaan.gif)
久しぶりに頭痛がしてます。
甘いお酒は飲みすぎてしまって危険ですね・・・
リポビタンDとウコンを飲んで何とか良くなるといいのですが
今日一日は動けないかな。
Private Sub Form_BeforeInsert(Cancel As Integer) If Nz(Me!日付) = "" Then result = MsgBox("日付が入力されていません", vbCritical + vbOKOnly, "未入力欄があります") DoCmd.GoToControl "日付" Cancel = True End If End Sub |