List Updates

[Guest]

Hi Query No 2

On my clients for i have a search box which filters a list box below it,
according to text entered. What i want the list box to show is active
clients only. I know a little about the VB Code and still learning but cant
get this to work.

Here is the Code

Private Sub Search_Exit(Cancel As Integer)
Me.List.RowSource = "SELECT Client.ClientID, Client.Surname, Client.First,
Client.Active FROM Client WHERE (((Client.Surname) Like '*" & Me.Search &
"*') AND ((Client.Active)=yes)) ORDER BY Client.Surname"
End Sub

After this staff select a client which then updates the fields on the rest
of the form.

What needs to be changed in my current code

Thanks

 

[Guest]

By "search box " do you mean a combo box?

I would use the After update event, but I think the answer to your problem
is setting the recordsource dowsn't requery the list box.

Try this:

'----beg code -----------
Private Sub Search_Exit(Cancel As Integer)
Me.List.RowSource = "SELECT Client.ClientID, Client.Surname,
Client.First, Client.Active FROM Client WHERE (((Client.Surname) Like '*" &
Me.Search & "*') AND ((Client.Active)=yes)) ORDER BY Client.Surname"

' now requery the list box
Me.List.Requery

End Sub
'----end code-------------


HTH