How to get rid of Enter parameter value and run time error 3270

[Pradnyanaik7]

Hi
I am running the following code
Private Sub Change_In_Company_Name_AfterUpdate()

If Change_In_Company_Name.Value = True Then


Me.Date1 = Format(Date, "dd/mm/yyyy")
'Set rst = CurrentDb.OpenRecordset(Me.RecordSource)
DoCmd.RunSQL ("Insert into Hub (Date1) values (Date);")

End If
End Sub
and gets the error Enter parameter value and run time error 3270 Reserved error

Please help
Thanks
Pradnya

[ajetrumpet]

If Change_In_Company_Name.Value = True

that's the parameter error. You're trying to check the actual function name in a conditional. Are you sure that's what's supposed to go on??

DoCmd.RunSQL ("Insert into Hub (Date1) values (Date);")

that's the runtime error. take the outside () off first.

These are just my two guesses.

[Pradnyanaik7]

Thanks Adam it worked