世知辛さの記録

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のフォームを作るときに、「フォームテンプレート」を使う方法があること、知っている人は多いのかな？既存のフォームにあるテキストボックスの色やサイズなどの設定（プロパティ）を引き継いで、新 …

: VBAで英字混じりの引数から数字のみを取り出す関数

たとえば、abcABC123456XYGという引数から、123456のみを取り出したい。 VBAの組み込み関数で、適当なのがありそうだけど、無いみたい。カスタム関数を作るにも、これはという情報がググ …

: Accessでメッセージ内容が無い（のっぺらぼう、OKボタンのみ）エラーメッセージがでる

自分作のモジュールの記述で、以下のように書いている箇所があって、 If rs.EOF = True Then GoTo Err_chkFukuyamaVcr ‘error Else 　　（中略）また …