世知辛さの記録
投稿日：2013年6月13日 更新日：
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
執筆者：admin
関連記事
Accessの複雑な処理のレポート帳票で1ページのみ出力されるはずが2ページ目になぜかページヘッダーが出るトラブルに見舞われ
レポートのデザインビューでいうと上から、レポートヘッダー、ページヘッダー、グループヘッダー、詳細、グループフッター、ページフッター、レポートフッター・・・というような、結構細かいレポートを作っている。 …
Accessでレポートを印刷したいのにフォームが印刷されるトラブル
現象：全てではなく特定のPCで、チェックリストを出力しようとすると、バックで開いているフォームがプリントされる。 毎回起きるトラブルではなく、うまく出るときもある。 最初の対策：以下のブログを参考に、 …
AccessからExcelフォーマットでファイルに出力するサンプルコード
Excelから外部データの接続の際に,ユーザー定義関数を含んだクエリを指定するとエラーになったので、こんなやり方で対処。 Private Sub btnB2_Click() DoCmd.OutputT …
AccessとBASP21で正規表現を使ってメール文から必要事項を取り出すサンプル
Accessで正規表現を使いたかったのですが、ネット上にはサンプルが少なく、苦労したので、とりあえずツギハギで作った私のコードを披露したいと思います。 Accessで正規表現を使うには、BASP21を …
DoCmd.GoToRecordよりもMe.SaveよりもMe.Refresh
Accessで、一旦フォーム上のレコードを保存したいとき、 Me.Save とやってもレコードが保存されない。 そこで、今までは、DoCmd.GoToRecordで無理矢理レコードを移動して保存してい …
2025/11/20
手軽にSpotifyから曲を検索するツールをFirefox拡張機能で作る
2025/08/18
2025/07/07
【重要・ご対応のお願い】Chatwork APIリクエストの仕様変更についてのお知らせ
