Form Code Problem

[xmeb]

I am trying to use the following code to alert users to how many registration numbers are in the table that have been issued parking tickets. I keep getting a compile error. What's wrong with it? Thanks.

Private Sub Form_Current()
Dim strWhere As String
Dim lngCount As Long
If Not (IsNull(Me.1RegistrationState) Or _
(IsNull(Me.ID)) Then
strWhere = "(1RegistrationState = """ & Me.1RegistrationState & _
""") AND (ID <> " & Me.ID & ")"
lngCount = DCount("*", "ParkingTicketsIssuedTable", strWhere)
If lngCount > 0 Then
MsdgBox lngCount & "Other registration number(s) exist."
End If
End If
End Sub

 

[PHV]

A lot of syntax errors in your code ...
I'd try this:

Private Sub Form_Current()
Dim strWhere As String
Dim lngCount As Long
If Not (IsNull(Me![1RegistrationState]) Or IsNull(Me!ID)) Then
    strWhere = "[1RegistrationState]='" & Me![1RegistrationState] & _
               "' AND ID<>" & Me!ID
    lngCount = DCount("*", "ParkingTicketsIssuedTable", strWhere)
    If lngCount > 0 Then
        MsgBox lngCount & " Other registration number(s) exist."
    End If
End If
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[dhookom]

At first glance

Ms[b]d[/b]gBox lngCount & "Other registration number(s) exist."

should be

MsgBox lngCount & "Other registration number(s) exist."

Duane
Hook'D on Access
MS Access MVP