B
Barry
I am receiving an error message# 3078 on the code below. It is looking for
the field [Date] as a table, it appears. Notice that I was first receiving
error code# 2001, but resolved it.
Dim Combo34 As String
Dim DateX As Date
Dim Msg
Sub test1()
On Error GoTo ErrorHandler
DateX = DMax("[Date]", "tblWellMaintenanceLogbook", "[Combo34] =" _
& Forms!frmWellMaintenance!Combo34)
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err.Number = 2001 Then
Resume Next
Else
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
End If
End Sub
the field [Date] as a table, it appears. Notice that I was first receiving
error code# 2001, but resolved it.
Dim Combo34 As String
Dim DateX As Date
Dim Msg
Sub test1()
On Error GoTo ErrorHandler
DateX = DMax("[Date]", "tblWellMaintenanceLogbook", "[Combo34] =" _
& Forms!frmWellMaintenance!Combo34)
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err.Number = 2001 Then
Resume Next
Else
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
End If
End Sub