Hi
Please I need to modify The following Code in order to show an error message when this condition is not Equal "Sales.[InvioceDate]=Revenues.[InvioceDate])"
the code is
Private Sub Form_AfterUpdate()
Dim strSql As String
strSql = "UPDATE Sales INNER JOIN Revenues ON (Sales.[CustomerName]=Revenues.[CustomerName]) AND (Sales.[InvioceDate]=Revenues.[InvioceDate]) SET Sales.[PaidOn] = Revenues.[PaymentDate] WHERE Sales.[PaidOn] Is Null;"
CurrentDb.Execute strSql, dbFailOnError
Me.Refresh
End Sub
Thank you