common code for list boxes

[Hohn Upshew]

I want to build a function having the name of the list box
in brackets like Check(ListBoxIn voices).May i have some help as to how
to do it ?
In my form i have several list boxes.I have command buttons where the
following code is written:

If IsNull(Me![ListInvoices]) Then
DoCmd.Beep
MsgBox " Please select Invoice first ! "
Exit Sub
End If

The above code is OK. Actually i want to improve this code and make it
applicable to all such buttons, and only to change the name of the list
box.
There is a similar function for control like this:
Public Function Check(ctrl As Control)
If IsNull(ctrl) Then
DoCmd.Beep
MsgBox " Please select Student ! "
End If
End Function
But how can i rewrite it for the lists boxes?


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Allen Browne]

Because the listbox *is* a control, the Check() function will work as is.

If you want a function that is specific for listboxes, you could code:

Public Function CheckLB(lst As ListBox)
If lst.ItemsSelect ed.Count = 0 Then
MsgBox "No items selected.
End If
End Function
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html

"Hohn Upshew" <fa*****@yahoo. com> wrote in message
news:3f******** *************** @news.frii.net. ..

I want to build a function having the name of the list box
in brackets like Check(ListBoxIn voices).May i have some help as to how
to do it ?
In my form i have several list boxes.I have command buttons where the
following code is written:

If IsNull(Me![ListInvoices]) Then
DoCmd.Beep
MsgBox " Please select Invoice first ! "
Exit Sub
End If

The above code is OK. Actually i want to improve this code and make it
applicable to all such buttons, and only to change the name of the list
box.
There is a similar function for control like this:
Public Function Check(ctrl As Control)
If IsNull(ctrl) Then
DoCmd.Beep
MsgBox " Please select Student ! "
End If
End Function
But how can i rewrite it for the lists boxes?