We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim Result As String MyDate = Format(Date, "Short Date") MyTime = Format(Time, "Short Time") Result = Me.Key mylookup = DLookup("Key", "tblHWWPass", "Key=" & Result & " And IsNull(DateOut)") 'Debug.Print mylookup 'Debug.Print Result If mylookup > 0 Then strSQL = "UPDATE tblHWWPass " _ & "SET TimeReturned =MyTime" _ & ", DateOut =#" & MyDate & "#" _ & " WHERE Key =" & Result _ & " And IsNull(DateOut)" 'Debug.Print strSQL CurrentDb.Execute strSQL, dbFailOnError
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.