アクセス チェックボックス入力日付表示方法

アクセス初心者で悩んでいます。
いまアクセスフォームでデータ表を作成しているのですが、その中でチェック欄があり、その欄のチェックを押した日付を別フィールドに表示させるため手動で入力を行い、それをクエリに反映させていました。これをVBAか何かでチェック欄をつけたら現在日付を自動で表示させれないでしょうか?

No.1 ベストアンサー 回答者： f_a_007 回答日時： 2014/09/16 20:57

次のコードで、今日の日付を代入したりクリアしたりすることができます。

Option Compare Database
Option Explicit


Private Sub チェック0_Click()
　　If Me.チェック0 Then
　　　　Me.テキスト2 = Format(Now(), "yyyy/mm/dd")
　　Else
　　　　Me.テキスト2 = ""
　　End If
End Sub

＞If Me.チェック0 Then

この文は、「もし、「Me.チェック0」がチェックされていれば」と同じ意味。なぜなら、

Me.チェック0.Value

の.Valueは省略可だからです。

この回答へのお礼

ありがとうございました。　おかげで作業が楽になります

お礼日時：2014/09/17 22:40

No.2 回答者： f_a_007 回答日時： 2014/09/16 21:28

【補足】三項演算子的な記述

Private Sub チェック0_Click()
　　Me.テキスト2 = IIf(Me.チェック0, Now(), "")
End Sub

昨今のAccess は、三項演算子的な記述をサポートしています。なお、今回は、フォーマットをしていません。この場合、（必要であれば）Me.テキスト2のプロパティで書式を設定します。