Posted on 2010-11-24
Experts, I have a syntax below that I only get if I insert the row of
> CurrentDb.Execute "qryUpdateEUNameMS", dbFailOnError
If I remove the row then there is no syntax.
I think I should also setwarnings to prevent the window from coming up.
Do you see some kind of syntax here:
Private Sub Amount_AfterUpdate()
Dim strSQL As String
CurrentDb.Execute "qryUpdateEUNameMS", dbFailOnError
'testing the qry bc get error if record is new
strSQL = "INSERT INTO tblLCAmountHistory (fldDate, letterofcreditID, EndUserID, Amount) VALUES (#" & Format(Date, "m\/d\/yyyy") & "#," & Me!letterofcreditID & "," & Me!EndUserID & "," & Me!Amount & ")"
MsgBox "Dont forget to double click this field and enter in the reason why the LC Amount changed.", vbInformation
If IsNull(Me!Currency) Then
MsgBox "Dont forget to enter the Currency", vbInformation