世知辛さの記録

AccessのBeforeUpdateでUndo

投稿日：2013年6月13日更新日：2014年5月28日

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

-MS Access

執筆者：admin

: Accessでレコードコピー（オートナンバー除く）の決定版のコード！

Accessで、レコードのオートナンバーを除くフィールドを１行、複製（コピー）したくって、Google検索したのだけどなかなか出てこず、しかしやっと見つけた、黄金のソース・・・・。 [VBA] ADO …

: Accessでレポートを印刷したいのにフォームが印刷されるトラブル

現象：全てではなく特定のPCで、チェックリストを出力しようとすると、バックで開いているフォームがプリントされる。毎回起きるトラブルではなく、うまく出るときもある。最初の対策：以下のブログを参考に、 …

: AccessのレポートでNoDataでイベントキャンセル後もReport_Closeが実行されて困った

Accessのレポートで表示するデータがない場合は、以下のように書けばスマートにキャンセルできる。 Private Sub Report_NoData(Cancel As Integer) MsgBo …

: Accessで実行時エラー’2465′ 指定した式で参照されている’txt区分’フィールドが見つかりません

VBAでフォームをMe.RecalcあるいはMe.Requeryしただけで、タイトルのエラーが出るケースに遭遇。F9キーを押すと同じ動作になるはずだが、キー押下では上記エラーは出ず、不思議。ネット検 …