Private Sub joblocate_Click()
' this procedure will use records from 3year and cpnames for vitals
'******************************************
'open 3year and get some of the information
'******************************************
'On Error GoTo Err_JobNumberCommandButt_Click
Dim mydb As Database, MYTABLE As Recordset
Set mydb = CurrentDb
Set mydb = DBEngine.Workspaces(0).Databases(0)
Set MYTABLE = mydb.OpenRecordset("3year", DB_OPEN_TABLE) 'open the table
msg = "What is the Job Number you would like to find?"
title = "JOB LOCATER"
answer = InputBox(msg, title)
On Error GoTo Err_joblocate_Click
Exit_joblocate_Click:
Exit Sub
Err_joblocate_Click:
MsgBox Err.Description
Resume Exit_joblocate_Click
End Sub
Private Sub cmdjoblocate_Click()
'Dim mydb As Database, MYTABLE As DAO.Recordset
Dim mytable As DAO.Recordset
Dim sJob As String, sLoc As String
Set mydb = CurrentDb
Set mydb = DBEngine.Workspaces(0).Databases(0)
Set mytable = mydb.OpenRecordset("3year", DB_OPEN_TABLE)
sJob = InputBox("What Job Number do you want to find?", _
"JOB LOCATER")
If IsNull(sJob) Then
MsgBox "Please enter a Job Number"
Exit Sub
Else
sLoc = DLookup("Location Text", _
"MYTABLE", "Job Number = ' " + sJob + "'")
End If
MsgBox ("Job Number: " & sJob & _
" WAS FOUND! " & vbCrLf & _
"and is located in: " & sLoc & ".")
'''look in immediate window to see if it works at all
debug.print [mytable]![customer name]
End Sub If IsNull(sJob) Then
