DLookup Returns Error Message ??

[jkirkland]

The following code is returning an error message that says that an object was expected but I'm relatively new to VBA and I don't know what that means.

Can anyone help me with the syntax?

Thanks!

Private Sub Report_Open(Cancel As Integer)
If (DLookup("[GMELM1]", "HTEDTA_GM230AP", "[GMELM1]<>4 AND [GMDPT]=0 AND [GMDIV]=0 AND [GMFUND]=REPORTS![R-FUND-ALL-SUM]![GMFUND]") Is Null) Then
Me.MSG_NO_REV.Visible = True
Me.R_FUND_ALL_REV_SUM_SUBRPT.Visible = False
End If

 

[scriverb]

I made a modification to the expression for the DLookup.

Private Sub Report_Open(Cancel As Integer)
If (DLookup("[GMELM1]", "HTEDTA_GM230AP", "[GMELM1]<>4 AND [GMDPT]=0 AND [GMDIV]=0 AND [GMFUND]= " & REPORTS![R-FUND-ALL-SUM]![GMFUND]) Is Null) Then
Me.MSG_NO_REV.Visible = True
Me.R_FUND_ALL_REV_SUM_SUBRPT.Visible = False
End If
End Sub

Post back if you have any questions.

[COLOR=006633]Bob Scriver[/color]

[COLOR=white 006633]MSU Spartan[/color]