Microsoft Access 掲示板

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

16 コメント
views
4 フォロー
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と表示されている。

謎です…😯

通報 ...