R
Ruth
Hi
I am trying to create a form to lookup all the entries made for a chosen
client
I have a downdown box that contains a customer code. I want the customer
code to be a parent to a subform. I have managed to do this in the past by
having the code copy over into another cell (sorry don't know what to call
it). and having the child look to that cell, as it didn't work otherwise. I
am trying the same method again and can't get the customer code choosen to go
to the other cell.
Private Sub Combo4_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[CustomerCode] = " & Str(Nz(Me![Combo4], 1))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Private Sub Form_BeforeUpdate(Cancel As Integer)
End Sub
End Sub
What code should I use- or is there a better way to set it up?
I am trying to create a form to lookup all the entries made for a chosen
client
I have a downdown box that contains a customer code. I want the customer
code to be a parent to a subform. I have managed to do this in the past by
having the code copy over into another cell (sorry don't know what to call
it). and having the child look to that cell, as it didn't work otherwise. I
am trying the same method again and can't get the customer code choosen to go
to the other cell.
Private Sub Combo4_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[CustomerCode] = " & Str(Nz(Me![Combo4], 1))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Private Sub Form_BeforeUpdate(Cancel As Integer)
End Sub
End Sub
What code should I use- or is there a better way to set it up?