Check to see if data already exists in a query after combobox(in subform) update

[JayRab]

What I want to do is after they select an Equipment ID say 8007 LHD, it looks in the [OPEN EVENTS] Query for that EQ ID. Of course, if it already exists to undo everything and require a close of existing event before moving forward.



Main form is [Event Dashboard] subform is [Create Event]

Private Sub EQ_ID_AfterUpdate()
If DCount("*", "[Open Events]", "[EQ ID]'" & Forms![Event Dashboard]![Create Event]![EQ ID]) > 0 Then
    MsgBox "There is already an Active Event for this Equipment.  Please Close existing event before logging another!"
    Me.Undo
          Cancel = True
End If
End Sub

Keep getting syntax errors on this. And not entirely sure on the calling from a subform is right either.

Thanks for help.

If anyone knows of a good place that has a list of syntax help that would be awesome as well.

[pbaldy]

You missed the "=" for starters. Syntax help:

DLookup Usage Samples

Forms Refer to Form and Subform properties and controls

By the way, you can't cancel the after update event, only the before update event. It is, as its name implies, "after" the update has occurred.

[JayRab]

Thanks got it working perfectly now. I appreciate all the help. Thanks for the links as well I have saved them for later use.

Private Sub EQ_ID_AfterUpdate()
If DCount("*", "[Open Events]", "[EQ ID]='" & Forms![Event Dashboard]![Create Event]![EQ ID] & "'") > 0 Then
    MsgBox "There is already an Active Event for this Equipment.  Please Close existing event before logging another!"
    Me.Undo
End If
End Sub

[pbaldy]

Happy to help!