アクセスでフォームにカレンダーを用いて入力する際の困りごと

質問

アクセスでフォームにカレンダーを用いて入力する際、同じ日付を続けて入力できないのはなぜでしょうか。
　２００６年1月25日を選択したレコードを保存して、
次のレコードも2006年1月25日を選択しようとしても反応しません。違う日付をいったんクリックしてからやると選択できるのですが、大量のデータを処理しようとする際は、かなりのストレスになりそうです。
宜しくお願いします。

回答No.4

O_cyan · ベストアンサー

>内容を実現させるには具体的にどういう操作が必要なのでしょうか。
>未入力で他のコントロールにフォーカスが移ったらカレンダーの値を代入
フォームの日付を入力するコントロールが例えばDate1としてカンレンダーコントロールをCalendar1という名前としたた場合。
Date1のプロパティを開きイベントでフォーカス喪失時イベントをコードビルダで開き
Private Sub Date1_LostFocus()
If IsNull(Me.Date1) Then
Me.Date1 = Me.Calendar1.Value
End If
End Sub
でDate1のコントロールにフォーカスが移り何も入力されないで他のコントロールにフォーカスが移るとCalendar1の日付をDate1に代入させます。何か入力すれば代入されません。例えばフォーカスの移るタブ順がCalendar1で次がDate1であればCalendar1から何も入力されないでDate1に移りDate1でも何も入力されなかった場合にCalendar1からDate1に日付を持ってきます。

>他の方のいうようにボタンを作り
これはフォーム上にボタンコントロールを一つ作ります。
そのボタンのプロパティを開きクリック時イベントに記述します。(ボタンがCmd1という名前の場合)
Private Sub Cmd1_Click()
Me.Date1 = Me.Calendar1.Value
End Sub
とすればボタンを押せばカレンダーから日付をDate1に代入させます。

お礼

大変丁寧にありがとうございます。
色々試して見ましたが、思うような成果が得られず、
自分の力量不足を実感しました。
また、何かありましたら宜しくお願いいたします。

回答No.3

O_cyan

>カレンダーを用いて入力する際同じ日付を続けて入力できないのはなぜ
一度クリックしてあるカレンダーの同じ日付を再度クリックしてもイベントが発生しないからだと思いますが。

フォームの日付を入力するコントロールに
If IsNull(Me.日付のコントロール名) Then
Me.日付のコントロール名 = Me.カレンダーコントロール名.Value
End If
として未入力で他のコントロールにフォーカスが移ったらカレンダーの値を代入させてはどうでしょうか。

または他の方のいうようにボタンを作り
Me.日付のコントロール名 = Me.カレンダーコントロール名.Value
で代入させる。

補足

お恥ずかしい話ですが、回答の
内容を実現させるには具体的に
どういう操作が必要なのでしょうか。
プロパティの何かを変える必要があると言うことなのでしょうか。

回答No.2

noname#182251

アクセスのカレンダーコントロールは使ったことがありません(^^;
で、回答ではありませんが、「同じ日付を入力」ボタンを一つ追加してはいかがですか？

お礼

早速の回答ありがとうございます。

回答No.1

noname#60992

答えにならないかもしれませんが、

私は解決策を見つけられず、非連結でフォーム上に配置し、ボタンで連結しているテキストボックスにデータを入れていました。

お礼

早速の回答ありがとうございます。