If you are going to establish a novel thread with innovative necessities you be supposed to either Close the unique thread or at the extremely smallest amount inform those that are helping you to do what you wish.
Code:
Private Sub START_Click()
On Error GoTo Err_START_Click
Dim PT As Variant
Dim ss As String
ss = "INSERT INTO tableData (StationID, Job, Size, Associate, Date_Time, Issue1, Issue2, PGid) " & _
"VALUES ('" & Me.Text407 & "', '" & Me.Text409 & "', '" & Me.Comb111 & "', '" & Me.Comb113 & "','" & Me.StartTime & "', '" & Me.Issues & "', '" & _Me.Combo27 & "', '" & Me.Combo113 & "'); "
Me.StartTime = Now ()
PT = DMax("Date_Time", "tabledata", "Associate=""" & Me.Associate & """ AND Date_Time<#" & Me.StartTime & "#")
Me.Dirty = False
If IsNull(PT) Then
MsgBox "Recorded!”, vbInformation, "First example"
Else
End If
CurrentDb.Execute ss
Exit_START_Click:
Exit Sub
Err_START_Click:
MsgBox Err.Description
Resume Exit_START_Click
End Sub
On your novel form that the font alters colors you place the code to send it to the subsequently record which will get rid of the "You cannot go to the individual record error. After that if supply the name of your novel form and the parameters for altering colors I can direct you.
Bookmarks