Access レコード新規作成エラー

前提・実現したいこと

AccessのFormに設置しているテキストボックスにてカレンダーから日付を選択した際に、
日付データをテーブルのレコードに登録（レコードを新規作成）するコードを記述しました。

発生している問題・エラーメッセージ

日付カレンダーにて日付を設定した直後にプログラムを実行したら、
テキストボックスに表示されている日付データがNullとして判定されているようです。
どのように修正すればよろしいでしょうか？

該当のソースコード

Private Sub Tx仕入日_Change()
  'レコードを作成する
  Set rs = db.OpenRecordset("T01-1_仕入登録", dbOpenTable)
  rs.AddNew
  rs.Fields("仕入日") = Me!Tx仕入日
  rs.Update
  rs.Close
  Set rs = Nothing
End Sub

###追加情報
①：Formにつきましては、Formレコードソースに『T01-1_仕入登録』というテーブルを設定しております。
②：Tx仕入日につきましては、書式を『日付（Ｓ）』にしており、日付カレンダーの表示を『日付』にしております。
③：Tx仕入日につきましては、テーブルのフィールドとは非連結の状態としております。

coco_bauer

2019/09/13 05:27

「日付カレンダーにて」の"日付カレンダー"は何ですか？　Accessのファイル？　Accesssに組み込んであるマクロ(VBA)? Accessを使ったアプリケーション？質問者以外の人が容易に理解・想像できない語は、何であるかを説明してから使ってください。「テキストボックスに表示されている日付データ」というのは、質問のコードの中では何にあたりますか？

Yoshikun_0945

2019/09/13 07:19

日付カレンダーというのは、Accessの日付選択カレンダーのことですが、おわかりでしょうか？エラーが発生しているのは、『rs.Fields("仕入日") = Me!Tx仕入日』のところです。ここで、Me!Tx仕入日には、日付選択カレンダーで日付を選択したため、画面には選択した日付が表示されているのですが、プログラム上では、Nullとなっているようです。

行動規範の内容に同意します

回答2件

フォームは連結フォームですか、非連結フォームですか。
日付カレンダーは、Accessのテキストボックスの標準の機能のものですか。

それによって回答が異なりますので、質問に追記してください。

とりあえずは、設定するイベントは Changeイベントではないことは確かです。

追記

上記の情報提供がないので、
非連結フォームとして回答します。
連結フォームなら、OpenRecordsetする必要はないので。

まず、
コードは、テキストボックスのChangeイベントではなく、AfterUpdateイベントに移動してください。
Changeイベントだと一文字入力しり削除しただけでも発生してしまいます。一文字入力するたびに新規レコードが追加されたら困りますよね。また、日付選択カレンダーから日付を入力した場合は、Changeイベントは発生しません。これは仕様です。

『T01-1_仕入登録』テーブルの「仕入日」フィールドのデータ型が日付/時刻型だとしたら、下記に変更してください。

vba
1If IsDate(Me!Tx仕入日.Value) Then
2   rs.AddNew 
3   rs.Fields("仕入日").Value = Me!Tx仕入日.Value
4   rs.UpDate
5End If

テキストとして # で囲むのはVBA上でSQLを扱うときの文法です。
DAOのレコードセットのフィールドに代入する場合は、日付/時刻型で代入すればOKです。

ただし、非連結フォームの場合としても、一つのフィールドを入力しただけで、テーブルに追加するのは設計としてまずいと思います。すべてのフィールドを入力した後に、整合性をチェックしてテーブルに追加するというので非連結フォームのメリットを活かした設計と言えます。

失礼ながら、質問内容から、非連結フォームを設計できるスキルレベルではないと推測されます。

投稿2019/09/13 05:23

編集2019/09/13 13:24

hatena19

総合スコア34073

以下の様にしてみて下さい。
rs.Fields("仕入日") = "#" & Me!Tx仕入日 & "#"

追記

Null考慮が必要かもしれませんね。
先頭でNullだった場合に追加せずに終了する処理を追記してみてください。

VBA
1if IsNull(Me.Tx仕入日) then exit sub '←ここで出口
2'レコードを作成する
3Set rs = db.OpenRecordset("T01-1_仕入登録", dbOpenTable)
4rs.AddNew
5rs.Fields("仕入日") = Me.Tx仕入日 
6rs.Update
7rs.Close
8Set rs = Nothing