I am losing my mind! I've been away from Access for several months
and a friend just asked for some help. I can't get it!

She wants to
1. Choose a Name and License Number from a drop-down (Have it:
cboCheckName)
2. Once the name is chosen, show ALL the records from the same table,
that have a match for Name and LicenseNumber.

She has a Form with cboCheckName on it: frmPayments
And a subform on the form sfrmPayments

I put the following code into AfterUpdate of the combo box:

Private Sub cboCheckName_AfterUpdate()

' FILL the subform with checks for the person selected

Dim rs As Object
Set rs = Me.Recordset.Clone

rs.FindFirst "[CheckName] =" & Me.cboCheckName & _
" And [LicAcctNum] = " & (Me.cboCheckName.Column(1))

Me.Bookmark = rs.Bookmark

rs.Close

End Sub

On rs.FindFirst, I get "Object doesn't support this property or
method".

WHAT is wrong? This should be so simple!

thank you -
Sara

sara wrote:

the data. Is 1 a single rec form, the other continous or datasheet?

Look at Filter

Me.Filter = "CheckName =" & Me.cboCheckName & _
" And [LicAcctNum] = " & (Me.cboCheckName.Column(1))
Me.FilterOn = True

On Apr 17, 5:23*pm, Salad <o... (AT) vinegar (DOT) com> wrote:
Thanks -
The form is just the combo box and the subform on it.
The subform is Continuous records - linked to the Checkname and
License Number chosen in the Combo Box.

When you say "Look at filter" - do I put that in the After Update
event? Or does it go on the form somehow?

Sara

saraqpost (AT) yahoo (DOT) com wrote:

I'd probably put it in the AfterUpdate event of the combo. But since
you are filtering a subform...
Forms!MainFormName!SubFormName.Form.Filter = "CheckName = " &
Me.cboCheckName & " And [LicAcctNum] = " & (Me.cboCheckName.Column(1))
Forms!MainFormName!SubFormName.Form.FilterOn = True

Remember, strings are surrounded by quotes, numerics by themselves,
dates with #. Yours is surrounded like a numeric. You could do a
msgbox Forms!MainFormName!SubFormName.Form.Filter
to see what the filter currently is. You might have to add some more
quote marks.

For example, you might end up with
"CheckName = BOA"
and you want it to look like
"CheckName = "BOA""

Why are you using any code at all? It seems like there is something
wrong in your form/subform design. I use subforms and the filtering
is done automatically. I have a customer combo box on the main form
and all customer payments in the subform. The subform is linked to the
main form by the customer number. No records are shown in the subform
until a Customer is selected from the combo box. Every time a
different customer is selected the corresponding payment records are
shown in the subform.

On Apr 17, 4:46*pm, "saraqp... (AT) yahoo (DOT) com" <saraqp... (AT) yahoo (DOT) com> wrote:
I don't think you need any code
on your main form, add another field called LicenseNbr and set its
source to
=cboCheckName.column(1)

and set both the master / child links to your subform to
cboCheckName, licenceNbr

when you choose a name, the licenseNbr will be displayed on the main
form
and the payments will be displayed on the subform

On Apr 18, 8:57*am, Roger <lesperan... (AT) natpro (DOT) com> wrote:
THANK YOU, Roger!! I knew it had to be easy and (not for the first
time) I made it too complicated.

You were exactly right and it works like a charm.....many thanks!

Sara