hiroton
2020/10/15 (木) 11:39:54
df752@f966d
込み入った処理が必要になってしまうなら「最新購入日」の取得方法を変えてしまったほうがいいような気がします
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()の引数は適切なものに置き換えてください
通報 ...
こちらに変更した後、数回テストしたところ、うまく動いてくれています。ありがとうございます!