This is on main form
Expand|Select|Wrap|Line Numbers
- Private sub form_open(cancel as integer)
- If Not IsNull(Me.OpenArgs) Then
- Dim auto As Long
- Dim rs As Object
- Set rs = Me.Recordset.Clone
- auto = Val(Me.OpenArgs)
- rs.FindFirst "[auto]=" & auto
- If Not rs.EOF Then Me.Bookmark = rs.Bookmark
- End If
- End sub
is there a way to make it work ?
Lars