Syncronizing sub-forms

L

Leif S

Hi,
I want to syncronize two sub-forms so that they scroll in sync vertically.
The code in the Form_Current() event on both sub-forms is like this:

Dim rst As Recordset

If (Not IsNull(Me!resources_id)) And _
(Not IsNull(Forms!frmDPR.<the other subform>!resources_id)) And _
(Me!resources_id <> Forms!frmDPR.<the other subform>!resources_id)
Then
Set rst = Forms!frmDPR.<the other subform>.Form.RecordsetClone

With rst
.FindFirst "resources_id = " & Str(Nz(Me![resources_id], 0))
If Not .NoMatch Then
Forms.frmDPR.<the other subform>.Form.Bookmark = .Bookmark
End If
End With
End If

When opening the main form I get the following error message pointing to
..FindFirst "Method or data member noe found"

Can anyone advice me on this?

/Leif S.
 
Top