Microsoft Access 掲示板

前のスレッド、いま見直してみたら、ちょっと間違ってますね。
メインフォームの更新前処理で最新日を更新してますが、サブフォームで更新してもメインフォームの更新前処理は発生しないので、サブフォームの更新後処理でメインフォームの最新日を更新すべきですね。

メインフォームの更新前処理のイベントプロシージャを削除して、サブフォームの更新後処理に下記のコードを記述してください。

Private Sub Form_AfterUpdate()
    If Me.Parent!最新購入日 =  Me.最新購入日 Then
    Else
       Me.Parent!最新購入日 =  Me.最新購入日 
    End If
End Sub

こちらですが、購入日を更新すると、なぜかコントロールソースの最新購入日が「00:00:00」？に変換されて表記が「1899/12/30」になってしまいます。
コントロールソースではなくて関数でひっぱっている部分は正しい最新購入日になっています。

サブフォームの違う項目を更新すると、正しい表記に更新されます・・・

こちらの件について、「MsgBox "コードが実行されました"」を試してみました。

①サブフォームの購入日を更新
②メインフォームに最新購入日が反映される
③フォームを閉じる
④「コードが実行されました」とメッセージボックスが表示される
⑤一つ前の更新結果が反映される

こちらの件について、「MsgBox "コードが実行されました"」を試してみました。

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

①サブフォームの購入日を更新
②メインフォームに最新購入日が反映される
③フォームを閉じる
④「コードが実行されました」とメッセージボックスが表示される
⑤「1回前の」更新結果が反映される

①サブフォームの購入日を更新
②メインフォームに最新購入日が反映される
③サブフォームの別のテキストボックスなどを更新
④フォームを閉じる
⑤「コードが実行されました」とメッセージボックスが表示される
⑥「今回の」更新結果が反映される

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

こうなってから、サブフォームの他のコンボボックスを更新してメインフォームを閉じる（閉じる際にレコードを保存）と、テーブルのデータも2020/10/14になります。

おそらく発生するタイミングの問題かなという気がします。

サブフォームのレコードが更新される。
更新後イベントが発生する→VBAで親フォームに最新購入日を代入。
その時点では =Max([購入日]) の計算が終わっていない。

メインフォームに転記するイベントを別のものにしてみる。

例えば、サブフォームコントロールのフォーカス喪失後で転記する。
これだとサブフォームで更新した後、メインフォームへ移動したときに転記されることになります。

他には、サブフォームのタイマー時イベントを利用するというのも考えられます。

タイマー間隔を0に設定しておいて、タイマー時のイベントプロシージャに転記のコードを記述する。

Private Sub Form_Timer()
    Me.TimerInterval = 0 'タイマー停止
    If Me.Parent!最新購入日 =  Me.最新購入日 Then
    Else
       Me.Parent!最新購入日 =  Me.最新購入日 
    End If
End Sub

更新後処理のイベントプロシージャは下記のように記述。

Private Sub Form_AfterUpdate()
    Me.TimerInterval = 100 '100ミリ秒後にタイマー時イベント発火    
End Sub

いちおう100ミリ秒後に転記するようにしてますが、うまくいかないようなら秒数を増やしてください。

Me.Recalc
Me.Me.最新購入日.Requery
のどちらか、あるいは両方を挿入した場合はどうなりますか。

Private Sub Form_Timer()
    Me.Recalc 
    Me.Me.最新購入日.Requery
    Me.TimerInterval = 0 'タイマー停止
    If Me.Parent!最新購入日 =  Me.最新購入日 Then
    Else
       Me.Parent!最新購入日 =  Me.最新購入日 
    End If
End Sub

込み入った処理が必要になってしまうなら「最新購入日」の取得方法を変えてしまったほうがいいような気がします

Private Sub Form_AfterUpdate()
    Dim maxDate
    maxDate = DMax("購入日","T_案件","商品NO=" & Me!txt商品NO)
    If Me.Parent!最新購入日 = maxDate Then
    Else
       Me.Parent!最新購入日 = maxDate
    End If
End Sub

DMax()の引数は適切なものに置き換えてください