BeforeUpdateプロシージャ内の処理で、Cancel = Trueとしたら更新がキャンセルされるところまではできたが、テキストボックスにNullを代入しようとしてエラーが出たりして、間違って入力されている値を削除する方法がなかなか気づかなかった。
Me.Undoを入れてやると値が消せた。
きっと1ヶ月もしたら忘れていそうなので、メモ。
If Me.txtお支払い方法 = "代引き" Or Me.txtお支払い方法 = "代引き2" Then chk入金日 = False Else MsgBox "代引き以外では入金日の入力はできません" Cancel = True Me.Undo chk入金日 = True End If