Run time error 3075 fix

[Infinite]

Hello! I have a list box, and if the user doesnt select a show and double clicks on the top of the list box, then it gives the whole

Run-time error '3075':
Syntax error (missing operator) in query expression 'EventID = '.

Now, what I would like to know is there any way to block that error? Change it to a text box to say something? Or anything like that? Thanks!

 

[pbaldy]

I would test for a selection before proceeding:

If Me.lstEmployees.ItemsSelected.Count = 0 Then
  MsgBox "Must select at least 1 employee"
  Exit Sub
End If

 

[Infinite]

Okay, that does work, but it still gives the error.

 

[pbaldy]

What is your code? It should only continue with your process if it passes this test.

 

[Infinite]

Private Sub lstShows_DblClick(Cancel As Integer)

If Me.lstShows.ItemsSelected.Count > 0 Then
MsgBox "Select a show please"

End If

If Me.Check30 = -1 Then
DoCmd.OpenForm "frmEventsEdit1", , , "EventID = " & Me.lstShows '.Column(0)
Else
DoCmd.OpenForm "frmEventsEdit", , , "EventID = " & Me.lstShows ' .Column(0)


End If
End Sub

That is it.

 

[pbaldy]

You dropped this from my suggestion:

Exit Sub

 

[Infinite]

I added that but its not doing anything, just erroring, showing the message box, and not opening it.

 

[pbaldy]

What's the code now?

 

[Infinite]

Private Sub lstShows_DblClick(Cancel As Integer)

If Me.lstShows.ItemsSelected.Count > 0 Then
MsgBox "Select a show please"
  Exit Sub
End If

If Me.Check30 = -1 Then
DoCmd.OpenForm "frmEventsEdit1", , , "EventID = " & Me.lstShows '.Column(0)
Else
DoCmd.OpenForm "frmEventsEdit", , , "EventID = " & Me.lstShows ' .Column(0)


End If
End Sub

 

[pbaldy]

Oh, and I tested for "=" 0, you've changed it to ">".

 

[Infinite]

Got it! Thanks!

 

[pbaldy]

No problem.