T
Tom
The following function is intended to allow changes in
values (date & location) and then stores old
date/location "History" table.
So, potentially, I will have 10 dates and location in the
History table:
Current problem:
- Line "CurrentDB..." gets highlighted after changing
data. History table is not updated.
Does anybody know what need to be changed. BTW, the date
format can be simply "MM/DD/YYYY".
Thanks in advance,
Tom
&&&&&&&&&&&&&&&&&&&&&&
Private Sub Location_AfterUpdate()
strSQL = "INSERT INTO History" & _
"VALUES ( " & _
Format$(Now(), "\#yyyy\-mm\-dd hh\:nn\#")
& ", " & _
"""" & Me!Location.Value & """)"
MsgBox strSQL, , "Check this out!"
CurrentDb().Execute strSQL, dbFailOnError
End Sub
values (date & location) and then stores old
date/location "History" table.
So, potentially, I will have 10 dates and location in the
History table:
Current problem:
- Line "CurrentDB..." gets highlighted after changing
data. History table is not updated.
Does anybody know what need to be changed. BTW, the date
format can be simply "MM/DD/YYYY".
Thanks in advance,
Tom
&&&&&&&&&&&&&&&&&&&&&&
Private Sub Location_AfterUpdate()
strSQL = "INSERT INTO History" & _
"VALUES ( " & _
Format$(Now(), "\#yyyy\-mm\-dd hh\:nn\#")
& ", " & _
"""" & Me!Location.Value & """)"
MsgBox strSQL, , "Check this out!"
CurrentDb().Execute strSQL, dbFailOnError
End Sub