Combo box help

  • Thread starter Thread starter jsb
  • Start date Start date
J

jsb

I have a combo box(unbound) for displaying the Customer.
When I select a customer from that, the text box shows
corresponding AcctNo. My problem is, if a Customer has
more than one account, the AcctNo in the text box doesn't
change.
What I should be doing?

This is the code I wrote:

Private Sub Combo1_AfterUpdate()
' Find the record that matches the control.
Dim Rs As Object

Set Rs = Me.Recordset.Clone
Rs.FindFirst "[CUSTOMER] = '" & Replace(Me!
[Combo1], "'", "''") & "'"
Me.Bookmark = Rs.Bookmark

End Sub
 
Back
Top