Form problem with VBA code

[narotosensei]

This little problem has been bugging me all day. I have a form that has a listbox where you can click on buttons and change its row source to look at either reports or forms using MSysObjects. I also have 2 buttons that will either let you look at a report or look at a form. Now I have an OnLoad Event that makes sure that the listBox is in focus when you start the form, but when i click on the view form/report buttons it always has an error, but once I click on the listbox it works fine. I'm trying to set up a MsgBox that will set off if they don't have a form/report selected but I'm not sure how to go about it. Can anyone help me?

 

[pbaldy]

This type of thing?

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

 

[narotosensei]

here is what I have got so far:
Private Function basViewForms()
'View all forms
If lstAll.ItemsSelected.Count = 0 Then
DoCmd.RunMacro "mcr_functions.FrmMsg"
Exit Function
Else
DoCmd.OpenForm lstForms, acNormal
End If
End Function

I keep getting this error: http://s225.photobucket.com/albums/dd93/narotosensei/?action=view&current=error.png

 

[pbaldy]

Try

DoCmd.OpenForm "lstForms", acNormal

 

[narotosensei]

Whoops! Lol, I made the dumbest mistake, i used the wrong name to reference my listbox...
Thanks for the great help though

 

[pbaldy]

No problem, and welcome to the site by the way!