Filter a Listbox

B

Bob Vance

I have a listbox that is based on a query, One of the fields in query is
[OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
D

Douglas J. Steele

You mean you want to select something in the combo box and have that limit
what appears in the list box? No problem.
 
B

Bob Vance

Thanks Douglas, That what I want to do , is there somewhere you can point me
to create this Scenario.............Thanks Bob

Douglas J. Steele said:
You mean you want to select something in the combo box and have that limit
what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Bob Vance said:
I have a listbox that is based on a query, One of the fields in query is
[OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
B

Bob Vance

Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Bob Vance said:
Thanks Douglas, That what I want to do , is there somewhere you can point
me to create this Scenario.............Thanks Bob

Douglas J. Steele said:
You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Bob Vance said:
I have a listbox that is based on a query, One of the fields in query is
[OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
B

Bob Vance

GOT IT :)..............Thanks Bob

Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID] Like
'*" & Me.cmbFindClients & "*';"

End Sub
Bob Vance said:
Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Bob Vance said:
Thanks Douglas, That what I want to do , is there somewhere you can point
me to create this Scenario.............Thanks Bob

Douglas J. Steele said:
You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in query is
[OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
B

Bob Vance

Oops one thing when i select a client and he does not have a record is it
possible to have a warning msg box pop up?.................Thanks Bob
Bob Vance said:
GOT IT :)..............Thanks Bob

Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID] Like
'*" & Me.cmbFindClients & "*';"

End Sub
Bob Vance said:
Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Bob Vance said:
Thanks Douglas, That what I want to do , is there somewhere you can
point me to create this Scenario.............Thanks Bob

You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in query
is [OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
D

Douglas J. Steele

One approach would be

Private Sub cmbFindClients_AfterUpdate()

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients & "*';"

If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients
End If

End Sub

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Bob Vance said:
Oops one thing when i select a client and he does not have a record is it
possible to have a warning msg box pop up?.................Thanks Bob
Bob Vance said:
GOT IT :)..............Thanks Bob

Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID]
Like '*" & Me.cmbFindClients & "*';"

End Sub
Bob Vance said:
Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Thanks Douglas, That what I want to do , is there somewhere you can
point me to create this Scenario.............Thanks Bob

You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in query
is [OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
B

Bob Vance

Thanks Douglas, can I change it to Column(1) as i am getting the OwnerID
Number and not the Name..............Regards Bob
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients

Douglas J. Steele said:
One approach would be

Private Sub cmbFindClients_AfterUpdate()

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients & "*';"

If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients
End If

End Sub

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Bob Vance said:
Oops one thing when i select a client and he does not have a record is it
possible to have a warning msg box pop up?.................Thanks Bob
Bob Vance said:
GOT IT :)..............Thanks Bob

Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID]
Like '*" & Me.cmbFindClients & "*';"

End Sub
Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Thanks Douglas, That what I want to do , is there somewhere you can
point me to create this Scenario.............Thanks Bob

message You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in query
is [OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
D

Douglas J. Steele

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients.Column(1) & "*';"


--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Bob Vance said:
Thanks Douglas, can I change it to Column(1) as i am getting the OwnerID
Number and not the Name..............Regards Bob
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients

Douglas J. Steele said:
One approach would be

Private Sub cmbFindClients_AfterUpdate()

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients & "*';"

If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients
End If

End Sub

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Bob Vance said:
Oops one thing when i select a client and he does not have a record is
it possible to have a warning msg box pop up?.................Thanks Bob
GOT IT :)..............Thanks Bob

Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID]
Like '*" & Me.cmbFindClients & "*';"

End Sub
Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Thanks Douglas, That what I want to do , is there somewhere you can
point me to create this Scenario.............Thanks Bob

message You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in
query is [OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
B

Bob Vance

Thanks Douglas, this code works fine BUT if the OwnerID is 60 it will pull
records 60, 160,260
or 33 will pull 33, 133, 233 and I dont need to tell you what OwnerID 1
pulls up :)..Thanks Bob

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID] Like
'*" & Me.cmbFindClients & "*';"
If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients.Column(1)

End If

Douglas J. Steele said:
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients.Column(1) & "*';"


--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Bob Vance said:
Thanks Douglas, can I change it to Column(1) as i am getting the OwnerID
Number and not the Name..............Regards Bob
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients

Douglas J. Steele said:
One approach would be

Private Sub cmbFindClients_AfterUpdate()

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients & "*';"

If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients
End If

End Sub

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Oops one thing when i select a client and he does not have a record is
it possible to have a warning msg box pop up?.................Thanks
Bob
GOT IT :)..............Thanks Bob

Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID]
Like '*" & Me.cmbFindClients & "*';"

End Sub
Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Thanks Douglas, That what I want to do , is there somewhere you can
point me to create this Scenario.............Thanks Bob

message You mean you want to select something in the combo box and have
that limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in
query is [OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
D

Douglas J. Steele

I see no reason to use Like, since you're getting an exact value for OwnerID
from the combo box.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Bob Vance said:
Thanks Douglas, this code works fine BUT if the OwnerID is 60 it will
pull records 60, 160,260
or 33 will pull 33, 133, 233 and I dont need to tell you what OwnerID 1
pulls up :)..Thanks Bob

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID] Like
'*" & Me.cmbFindClients & "*';"
If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients.Column(1)

End If

Douglas J. Steele said:
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients.Column(1) & "*';"


--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Bob Vance said:
Thanks Douglas, can I change it to Column(1) as i am getting the OwnerID
Number and not the Name..............Regards Bob
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients

One approach would be

Private Sub cmbFindClients_AfterUpdate()

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients & "*';"

If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients
End If

End Sub

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Oops one thing when i select a client and he does not have a record is
it possible to have a warning msg box pop up?.................Thanks
Bob
GOT IT :)..............Thanks Bob

Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID]
Like '*" & Me.cmbFindClients & "*';"

End Sub
Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Thanks Douglas, That what I want to do , is there somewhere you can
point me to create this Scenario.............Thanks Bob

message You mean you want to select something in the combo box and have
that limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in
query is [OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
B

Bob Vance

Thanks Douglas but if I "Like" I am getting no records!..Thanks Bob

Douglas J. Steele said:
I see no reason to use Like, since you're getting an exact value for
OwnerID from the combo box.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Bob Vance said:
Thanks Douglas, this code works fine BUT if the OwnerID is 60 it will
pull records 60, 160,260
or 33 will pull 33, 133, 233 and I dont need to tell you what OwnerID 1
pulls up :)..Thanks Bob

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID]
Like '*" & Me.cmbFindClients & "*';"
If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients.Column(1)

End If

Douglas J. Steele said:
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients.Column(1) & "*';"


--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Thanks Douglas, can I change it to Column(1) as i am getting the
OwnerID Number and not the Name..............Regards Bob
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients

One approach would be

Private Sub cmbFindClients_AfterUpdate()

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients & "*';"

If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients
End If

End Sub

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Oops one thing when i select a client and he does not have a record
is it possible to have a warning msg box pop
up?.................Thanks Bob
GOT IT :)..............Thanks Bob

Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where
[OwnerID] Like '*" & Me.cmbFindClients & "*';"

End Sub
Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Thanks Douglas, That what I want to do , is there somewhere you
can point me to create this Scenario.............Thanks Bob

message You mean you want to select something in the combo box and have
that limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in
query is [OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
B

Bob Vance

Oops Ok I got it Thanks Douglas
Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID] Like "
& Me.cmbFindClients
If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients.Column(1)

End If


End Sub
Douglas J. Steele said:
I see no reason to use Like, since you're getting an exact value for
OwnerID from the combo box.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Bob Vance said:
Thanks Douglas, this code works fine BUT if the OwnerID is 60 it will
pull records 60, 160,260
or 33 will pull 33, 133, 233 and I dont need to tell you what OwnerID 1
pulls up :)..Thanks Bob

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID]
Like '*" & Me.cmbFindClients & "*';"
If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients.Column(1)

End If

Douglas J. Steele said:
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients.Column(1) & "*';"


--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Thanks Douglas, can I change it to Column(1) as i am getting the
OwnerID Number and not the Name..............Regards Bob
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients

One approach would be

Private Sub cmbFindClients_AfterUpdate()

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients & "*';"

If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients
End If

End Sub

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Oops one thing when i select a client and he does not have a record
is it possible to have a warning msg box pop
up?.................Thanks Bob
GOT IT :)..............Thanks Bob

Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where
[OwnerID] Like '*" & Me.cmbFindClients & "*';"

End Sub
Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Thanks Douglas, That what I want to do , is there somewhere you
can point me to create this Scenario.............Thanks Bob

message You mean you want to select something in the combo box and have
that limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in
query is [OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
D

Douglas J. Steele

Since you don't have quotes, obviously OwnerID is a numeric field. Like
really makes no sense with numeric fields! Especially when you're obviously
not providing a wild card!

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] = " & Me.cmbFindClients

should be sufficient.


--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Bob Vance said:
Oops Ok I got it Thanks Douglas
Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID] Like
" & Me.cmbFindClients
If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients.Column(1)

End If


End Sub
Douglas J. Steele said:
I see no reason to use Like, since you're getting an exact value for
OwnerID from the combo box.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Bob Vance said:
Thanks Douglas, this code works fine BUT if the OwnerID is 60 it will
pull records 60, 160,260
or 33 will pull 33, 133, 233 and I dont need to tell you what OwnerID 1
pulls up :)..Thanks Bob

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where [OwnerID]
Like '*" & Me.cmbFindClients & "*';"
If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients.Column(1)

End If

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients.Column(1) & "*';"


--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Thanks Douglas, can I change it to Column(1) as i am getting the
OwnerID Number and not the Name..............Regards Bob
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients

message One approach would be

Private Sub cmbFindClients_AfterUpdate()

Me!lstModify.RowSource = "SELECT * FROM qryClientOnly " & _
"Where [OwnerID] Like '*" & Me.cmbFindClients & "*';"

If Me!lstModify.ListCount = 0 Then
MsgBox "Sorry, there's nothing for " & Me.cmbFindClients
End If

End Sub

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Oops one thing when i select a client and he does not have a record
is it possible to have a warning msg box pop
up?.................Thanks Bob
GOT IT :)..............Thanks Bob

Private Sub cmbFindClients_AfterUpdate()
Me!lstModify.RowSource = "SELECT * FROM qryClientOnly Where
[OwnerID] Like '*" & Me.cmbFindClients & "*';"

End Sub
Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Thanks Douglas, That what I want to do , is there somewhere you
can point me to create this Scenario.............Thanks Bob

message You mean you want to select something in the combo box and have
that limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in
query is [OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
G

Gene DeJoie

Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Bob Vance said:
Thanks Douglas, That what I want to do , is there somewhere you can point
me to create this Scenario.............Thanks Bob

Douglas J. Steele said:
You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in query is
[OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
G

Gene DeJoie

Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Bob Vance said:
Thanks Douglas, That what I want to do , is there somewhere you can point
me to create this Scenario.............Thanks Bob

Douglas J. Steele said:
You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in query is
[OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
G

Gene DeJoie

Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Bob Vance said:
Thanks Douglas, That what I want to do , is there somewhere you can point
me to create this Scenario.............Thanks Bob

Douglas J. Steele said:
You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in query is
[OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
G

Gene DeJoie

Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Bob Vance said:
Thanks Douglas, That what I want to do , is there somewhere you can point
me to create this Scenario.............Thanks Bob

Douglas J. Steele said:
You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in query is
[OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
G

Gene DeJoie

Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Bob Vance said:
Thanks Douglas, That what I want to do , is there somewhere you can point
me to create this Scenario.............Thanks Bob

Douglas J. Steele said:
You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in query is
[OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 
G

Gene DeJoie

Ive created a combo box for my list box both have OwnerID common
Just no quite right yet!
Regards Bob

Private Sub cmbFindClients_AfterUpdate()
Me.Filter = "OwnerID" & cmbFindClients.value


Me.FilterOn = True
End Sub

Bob Vance said:
Thanks Douglas, That what I want to do , is there somewhere you can point
me to create this Scenario.............Thanks Bob

Douglas J. Steele said:
You mean you want to select something in the combo box and have that
limit what appears in the list box? No problem.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


I have a listbox that is based on a query, One of the fields in query is
[OwnerID]
Can I create a Combo box with [OwnerID] to filter my Listbox?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Query Expression Help! 26
Text Box #error 7
Overdue Query help needed 3
Why wont my query Show Owner Name 3
Can this be done? 3
Query question! 5
strMail Query! 1
DLookup for Report! 4

Top