Error code 3078

[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

 

[Dirk Goldgar]

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

Does your table, "tblWellMaintenanceLogbook", really contain a field named
"Combo34"? That seems a very unlikely field name.