Microsoft Access 掲示板

Microsoft Access 掲示板

VBAで値を反映させたフィールドが更新されない / 8

16 コメント
views
4 フォロー
8
どんぐり 2020/10/14 (水) 22:50:24 0029a@1c915

こちらの問題ですが、「保存する」では解決できなさそうでした。

通報 ...
  • 9
    どんぐり 2020/10/14 (水) 23:12:25 0029a@1c915 >> 8

    お伝えしたようにうまく更新される時もあったり、
    できないときもあり、なぜかテーブルのフィールドが「0:00:00」になってしまった
    データについて、確認した内容をお伝えさせていただきます。

    Private Sub Form_AfterUpdate()
    MsgBox "コードが実行されました"
    If Me.Parent!最新購入日 =  Me.最新購入日 Then
    msgbox Me.Parent!最新購入日 &"と" & Me.最新購入日
    Else
       Me.Parent!最新購入日 =  Me.最新購入日 
    End If
End Sub

    としたところ、「0:00:00と」と表示されます。

    サブフォームのフォームヘッダーかフッターにテキストボックスを配置して下記のように設定しています

    名前　最新購入日
    コントロールソース　=Max([購入日])

    ※テキストボックスには2020/10/14と表示されている。

    メインフォームの最新購入日を表示するテキストボックスは、下記のように設定しています。

    名前　txt最新購入日
    コントロールソース　=[サブフォームコントロール名].Form![最新購入日]

    ※テキストボックスには2020/10/14と表示されている。

    メインフォームのレコードソースのテーブル（商品テーブル）に「最新購入日」フィールドがあります。

    ※0:00:00と表示されている。

    謎です…😯