Code:
Private Sub TktNumber_BeforeUpdate(Cancel As Integer)
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim strSQL2 As String
Set db = CurrentDb()
If Not (IsNull(Me.TktNumber)) Then
strSQL =
"INSERT INTO LocateData(ExcavatorID, CallerID, ContactID, TicketTypeID, AddIntID, ContractorID, LocateNameID, LocateName, MasterJobNumber, JobNumber, CoverPage_NumOfTkts, LocateList_Order, PrevTktNumber, TktNumber, StartDate, StartTime, UpdateBy, ExpDate, WorkLocation, WorkType, WorkTypeNote, DrivingDirections, LocateInstructions, Remarks, DurationofWork, DurationUOMID, ExplosivesYN, MarkingsYN, GridYN, DirBoringYN, MultiTktYN, DateLocateInitiated, CoordinatesUsed, Notes, ActiveLocateYN) " & _
"SELECT ExcavatorID, CallerID, ContactID, TicketTypeID, AddIntID, ContractorID, LocateNameID, LocateName, MasterJobNumber, JobNumber, CoverPage_NumOfTkts, LocateList_Order, PrevTktNumber, TktNumber, StartDate, StartTime, UpdateBy, ExpDate, WorkLocation, WorkType, WorkTypeNote, DrivingDirections, LocateInstructions, Remarks, DurationofWork, DurationUOMID, ExplosivesYN, MarkingsYN, GridYN, DirBoringYN, MultiTktYN, DateLocateInitiated, CoordinatesUsed, Notes, 0 " & _
"FROM LocateData " & _
"WHERE (LocateID = " & Me.LocateID & ")"
db.Execute strSQL, dbFailOnError
Else
Exit Sub
End If
Me.PrevTktNumber = Me.TktNumber.OldValue
End Sub