Not in List Event

I have 4 Combo boxes as find boxes and I want to trap and process any input
that is not listed in the Comb drop down. Currently i have the following to
handle each combo box and pass the info on to a sub routine called
"Not_In_List()" to handle the event. Is there ant way to tidy this up amd
have just one routine to handle all of the Find Boxes?

Private Sub cmb_Find_Box_1_NotInList(NewData As String, Response As Integer)

Call Not_In_List(NewData, Response, 1)

End Sub

Private Sub cmb_Find_Box_2_NotInList(NewData As String, Response As Integer)

Call Not_In_List(NewData, Response, 2)

End Sub

Private Sub cmb_Find_Box_3_NotInList(NewData As String, Response As Integer)

Call Not_In_List(NewData, Response, 3)

End Sub

Private Sub cmb_Find_Box_4_NotInList(NewData As String, Response As Integer)

Call Not_In_List(NewData, Response, 4)

End Sub

Thanks for any help. Regards Ray C

When you say "tidy this up", are you wanting to have a single procedure call
that is 'activated' by any of the four combo boxes? If that is what you
seek, then no. Each combo box's NotInList event procedure must be separate
in your code.

--

Ken Snell
<MS ACCESS MVP>
http://www.accessmvp.com/KDSnell/


"Ray C" <RayC.RemoveThis@discussions.microsoft.com> wrote in message
news:590BC2D4-39A4-4E0B-8EFB-AE0481193398@microsoft.com...
>I have 4 Combo boxes as find boxes and I want to trap and process any input
> that is not listed in the Comb drop down. Currently i have the following
> to
> handle each combo box and pass the info on to a sub routine called
> "Not_In_List()" to handle the event. Is there ant way to tidy this up amd
> have just one routine to handle all of the Find Boxes?
>
> Private Sub cmb_Find_Box_1_NotInList(NewData As String, Response As
> Integer)
>
> Call Not_In_List(NewData, Response, 1)
>
> End Sub
>
> Private Sub cmb_Find_Box_2_NotInList(NewData As String, Response As
> Integer)
>
> Call Not_In_List(NewData, Response, 2)
>
> End Sub
>
> Private Sub cmb_Find_Box_3_NotInList(NewData As String, Response As
> Integer)
>
> Call Not_In_List(NewData, Response, 3)
>
> End Sub
>
> Private Sub cmb_Find_Box_4_NotInList(NewData As String, Response As
> Integer)
>
> Call Not_In_List(NewData, Response, 4)
>
> End Sub
>
> Thanks for any help. Regards Ray C