P
PHisaw
I am using the following code to populate a list box "List6" based on
selection made in combo box "Combo8". This works great and I really like the
results, but because I need to use conditional formatting once the list is in
place, I want to use a subform with datasheet view and have it populate with
the same info from the combo box. I've tried replacing "List6" with the name
of the subform and also with the parent form and subform names without any
luck. It still returns every record the form is based on. The subform is
JobListSubform and the parent form is Form1.
Private Sub List6_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[JobNumber] = " & str(Nz(Me![List6], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Any help would be greatly appreciated!!
Thanks,
Phisaw
selection made in combo box "Combo8". This works great and I really like the
results, but because I need to use conditional formatting once the list is in
place, I want to use a subform with datasheet view and have it populate with
the same info from the combo box. I've tried replacing "List6" with the name
of the subform and also with the parent form and subform names without any
luck. It still returns every record the form is based on. The subform is
JobListSubform and the parent form is Form1.
Private Sub List6_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[JobNumber] = " & str(Nz(Me![List6], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Any help would be greatly appreciated!!
Thanks,
Phisaw