ACCESSで未入力処理をするとき、挿入前処理や更新前処理で挿入や更新をキャンセルするときは「cancel=true」でキャンセルできる。
例
例
Private Sub Form_BeforeInsert(Cancel As Integer) If Nz(Me!日付) = "" Then result = MsgBox("日付が入力されていません", vbCritical + vbOKOnly, "未入力欄があります") DoCmd.GoToControl "日付" Cancel = True End If End Sub |