I have the following code in a forms textbox:
Private Sub Text29_AfterUpdate()
Select Case Me.Text29
Case "t"
DoCmd.GoToRecord , , acFirst
strWhere = "[jobno] =" & Me.JobNo
DoCmd.OpenReport "jobs", acViewPreview, , strWhere
DoCmd.Close acForm, "newjob"
Case "c"
DoCmd.SetWarnings False...