いろいろ

いろいろなことを・・・

ACCESSメモ 入力のキャンセル

2007-01-03 12:13:57 | ACCESS
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