If m = True Then Dim db1 As DAO.Database Dim rst1 As DAO.Recordset Dim strSQL1 As String Set db1 = CurrentDb() strSQL1 = "SELECT [nsc_id_ref], [opened_at], [InProgress_or_closed_at] FROM [dbo_t_nsc_trackcode_trans_time_entry] where [opened_at] = '" & g & "' " Set rst1 = db1.OpenRecordset(strSQL1, dbOpenDynaset) ' Dim q As DAO.Recordset ' Set q = CurrentDb.OpenRecordset("SELECT * FROM [dbo_t_nsc_trackcode_trans_time_entry] where [opened_at] = '" & g & "'", dbOpenDynaset, dbSeeChanges) rs1.Edit rs1![InProgress_or_Closed_at] = Now() Forms!NSC_DataEntry.txtReOpened = "" End If
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.