フォーム上のコマンドボタンの制限について

質問

『在庫数量作成』というクエリがあります。
これに対応するコマンドボタンをフォーム上に置き、１日１回だけ押下するようにしていますが、
誤って２回以上やってしまう事が起きています。
これを防ぐにはどうすればいいでしょうか？

”在庫数量テーブルの更新日付＝今日の日付だったら、テーブル作成クエリを走らせない”、みたいな事だと思うのですが、どうすればいいのか分かりません。
よろしくお願いします。

回答No.1

nicotinism · ベストアンサー

Access のバージョンによっては動かんかもしれんが、2002なら
こんなふうかな？

Private Sub コマンド33_Click()
If Int(Application.CurrentDb.TableDefs("テーブル名").DateCreated) = Date Then
'If MsgBox("既に処理済。もう一度？", vbYesNo + vbDefaultButton2) = vbNo Then
'Exit Sub
'End If
CurrentDb.Execute ("クエリ名")
End If