Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
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.