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と表示されている。

    謎です…😯