• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:アクセスでの日付入力)

アクセスでの日付入力

このQ&Aのポイント
  • アクセスの初心者が2000を使用して、フォーム上でチェックボックスと納品日のテキストボックスを作成し、チェックボックスにチェックを入れると納品日(本日の日付)が自動的に入るようにしたいが、チェックを外したら日付も消えるようにできるかどうか疑問。
  • チェックボックスのクリックイベントにVBAを追加し、チェックボックスがクリックされた時に納品日に現在の日付を設定するようにしているが、チェックを外しても日付が残ってしまう。
  • チェックボックスのクリックイベントを修正し、チェックを外すと納品日が自動的に削除されるようにしたい。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

ここまでいけているのでしたら、後Elseでクリアの処理を入れればいいと思います。 Private Sub チェック12_Click() If Me!チェック12 = True Then Me!納品日 = Date else Me!納品日 = "" End If End Sub

flow
質問者

お礼

できたぁ!! else付け加えるだけでいいなんて、メッチャ簡単ですね(*^_^*)ありがとうございました♪