access2010で追加日と編集日を表示させたい

Question

いつもお世話になっております。
access2010で伝票管理システムを作成している者です。

##質問内容
今回は顧客マスタを例に挙げます。

顧客の入力フォームと入力したデータを一覧表示する顧客マスタがあります。

入力フォームの入力内容は
顧客番号、顧客名、住所
です。

そして、顧客マスタで表示する内容は
顧客番号、顧客名、住所、追加日、更新日　
とその横にレコードの編集・削除ボタン
を設けてあります。

追加日は新規に追加した日付を表示、更新日には既存のデータを編集した日付を表示させたいのです。

##概要
入力フォームの参照しているテーブル
＜T_WCustomer＞

フィールド名	データ型	備考
F_CustomerCode	テキスト型	顧客コード
F_CustomerName	テキスト型	顧客名
F_Address	テキスト型	顧客住所

顧客マスタ(サブフォーム)に参照しているテーブル
＜T_Customer＞

フィールド名	データ型	備考
F_CustomerCode	テキスト型	顧客コード
F_CustomerName	テキスト型	顧客名
F_Address	テキスト型	顧客住所
F_AddDate	日付/時刻型	追加日
F_UpdateDate	日付/時刻型	更新日

※追加・編集の時のSQL文を一応書いときます。
・追加

'----------------------------
'追加処理
'----------------------------
Private Sub add_tables()
    Dim SQL As String

    SQL = "INSERT INTO T_Customer" & "(F_CustomerCode,F_CustomerName,F_Address)" _
    & "SELECT F_CustomerCode,F_CustomerName,F_Address FROM T_WCustomer"

    With Application.CurrentDb
        .Execute SQL
    End With
    Me.Requery
End Sub

・編集（以前教えてくださったものです）

'----------------------------
'編集処理
'----------------------------
Private Sub edit_tables()
    Dim SQL As String

    SQL = "UPDATE T_Customer INNER JOIN T_WCustomer " & _
          "ON T_Customer.F_CustomerCode = T_WCustomer.F_CustomerCode " & _
          "SET T_Customer.F_CustomerName = T_WCustomer.F_CustomerName,T_Customer.F_Address = T_WCustomer.F_Address"
        
    With Application.CurrentDb
        .Execute SQL
    End With
    Me.Requery
End Sub

不明な点があればコメントください
よろしくお願いします。

Answer 1

項目に対してDate()やNow()を代入するように、SQLに追加するだけです。
・新規

SQL = "INSERT INTO T_Customer" & "(F_CustomerCode,F_CustomerName,F_Address,F_AddDate, F_UpdateDate)" _
    & "SELECT F_CustomerCode,F_CustomerName,F_Address, Now(), Now() FROM T_WCustomer"

・更新

SQL = "UPDATE T_Customer INNER JOIN T_WCustomer " & _
      "ON T_Customer.F_CustomerCode = T_WCustomer.F_CustomerCode " & _
      "SET T_Customer.F_CustomerName = T_WCustomer.F_CustomerName,T_Customer.F_Address = T_WCustomer.F_Address, T_Customer.F_UpdateDate = Now()"

また、テーブルデザインで、F_AddDate, F_UpdateDateの既定値に**=Now()**と設定しておけば、更新時のみSQLで対応すればOK

Comments

[退会済みユーザー]

saziさんいつも回答ありがとございます。
無事、問題を解決することが出来ました。