Når man indsætter denne kode i en underformular skal man skrive dette istedet for i main formular 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
I underformular
If Not IsNull(Me.Parent.OpenArgs) Then Dim auto As Long Dim rs As Object
Set rs = Me.Parent.Recordset.Clone auto = Val(Me.OpenArgs) rs.FindFirst "[auto]=" & auto If Not rs.EOF Then Me.Bookmark = rs.Bookmark End If
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.