subform reference question

S

Sarah

Hello - I use code like this in the after update event of cboFindCust, and
the code works as expected on several of my forms.

Dim strSrch As String
strSrch = "custID = " & cboFindCust.Column(0)
Me.RecordsetClone.FindFirst strSrch
Me.Bookmark = Me.RecordsetClone.Bookmark
Me!cboFindCust = Null

My problem comes when cboFindCust is on a main form but the CustID records
are on a subform. How do I change the syntax to find the matching record on
the subform?
 
S

Sarah

Marshall - thanks for your quick response. I was mishandling the subform
reference. By the way, I had to change Me.Bookmark = .Bookmark to
Me.subformcontrol.Form.Bookmark = .Bookmark in the 5th line.

Dim strSrch As String
strSrch = "custID = " & cboFindCust.Column(0)
With Me.subformcontrol.Form.RecordsetClone
.FindFirst strSrch
If Not .NoMatch Then Me.subformcontrol.Form.Bookmark = .Bookmark
End With
Me!cboFindCust = Null

Thanks again
 
M

Marshall Barton

Sarah said:
Hello - I use code like this in the after update event of cboFindCust, and
the code works as expected on several of my forms.

Dim strSrch As String
strSrch = "custID = " & cboFindCust.Column(0)
Me.RecordsetClone.FindFirst strSrch
Me.Bookmark = Me.RecordsetClone.Bookmark
Me!cboFindCust = Null

My problem comes when cboFindCust is on a main form but the CustID records
are on a subform. How do I change the syntax to find the matching record on
the subform?
Click to expand...


Dim strSrch As String
strSrch = "custID = " & cboFindCust.Column(0)
With Me.subformcontrol.Form.RecordsetClone
.FindFirst strSrch
If Not .NoMatch Then Me.Bookmark = .Bookmark
End With
Me!cboFindCust = Null
 
M

Marshall Barton

Sarah said:
Marshall - thanks for your quick response. I was mishandling the subform
reference. By the way, I had to change Me.Bookmark = .Bookmark to
Me.subformcontrol.Form.Bookmark = .Bookmark in the 5th line.

Dim strSrch As String
strSrch = "custID = " & cboFindCust.Column(0)
With Me.subformcontrol.Form.RecordsetClone
.FindFirst strSrch
If Not .NoMatch Then Me.subformcontrol.Form.Bookmark = .Bookmark
End With
Me!cboFindCust = Null
Click to expand...


Good catch. Glad you got it working in spite of my
omission.
 

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

Populate main form from subform record 0
Link subform with main form 0
Form design to add data to 3 tables in "Order Entry" style db 1
Navigation question 2
cbo AfterUpdate question 5
filter problem 1
VBA code returns no records hwenKey ID is added 14
set focus to control on subform 0

Top