Error # 3075

[lmcc007]

When the below code runs and there is no data, I get Error #3075 -- Syntax error (missing operator) in query expression '[CompanyID] = And [ActivityID] = 1'.

Public Function JobTotal(ByVal strActivity As Integer) As Integer

JobTotal = DCount("[ActivityID]", "Event", "[CompanyID]= " & Forms!frmViewJobList!txtCompanyID & " And " & _
        "[ActivityID]= " & CStr(strActivity))

End Function

How can I resolve this when there are no record (no activity yet for this record) to total?

 

[MSAccessRookie]

When the below code runs and there is no data, I get Error #3075 -- Syntax error (missing operator) in query expression '[CompanyID] = And [ActivityID] = 1'.

Public Function JobTotal(ByVal strActivity As Integer) As Integer
 
JobTotal = DCount("[ActivityID]", "Event", "[CompanyID]= " & Forms!frmViewJobList!txtCompanyID & " And " & _
        "[ActivityID]= " & CStr(strActivity))
 
End Function

How can I resolve this when there are no record (no activity yet for this record) to total?

Consider using an If Statement to exclude any instances where Forms!frmViewJobList!txtCompanyID is Null. Something like the following might work for you:

    If (Forms!frmViewJobList!txtCompanyID Is Null) Then
        JobTotal = 0
    Else
        JobTotal = DCount("[ActivityID]", "Event", "[CompanyID]= " & _
            Forms!frmViewJobList!txtCompanyID & " And " & _
           "[ActivityID]= " & CStr(strActivity))
    End If

 

[lmcc007]

Consider using an If Statement to exclude any instances where Forms!frmViewJobList!txtCompanyID is Null. Something like the following might work for you:

    If (Forms!frmViewJobList!txtCompanyID Is Null) Then
        JobTotal = 0
    Else
        JobTotal = DCount("[ActivityID]", "Event", "[CompanyID]= " & _
            Forms!frmViewJobList!txtCompanyID & " And " & _
           "[ActivityID]= " & CStr(strActivity))
    End If

Now it gives me Error # 424: Object Required

 

[MSAccessRookie]

Now it gives me Error # 424: Object Required

What line is the error appearing on?

 

[lmcc007]

What line is the error appearing on?

If (Forms!frmViewJobList!txtCompanyID Is Null) Then

 

[boblarson]

If (Forms!frmViewJobList!txtCompanyID Is Null) Then

That should be:


If IsNull(Forms!frmViewJobList!txtCompanyID) Then

 

[lmcc007]

Thanks boblarson,

I did:

If Not IsNull(Forms!frmViewJobList!txtCompanyID) Then...

in my form on the On Load Event. That did it.

Thanks for your reply!