Navigationsknapper som Underformular
Jeg har lavet en Universel_Underformular, Kun indeholdende 4 navigationsknapper, med følgende kode. Men den virker ikke.Private Sub bntNæste_Click()
On Error Resume Next
Dim R As Recordset
'Referer til Hovedformular.
Set R = Me.Parent.RecordsetClone
'Vælg samme post.
R.Bookmark = Me.Parent.Bookmark
R.MoveNext
Me.Parent.Bookmark = R.Bookmark
End Sub
(Den er skrevet direkte af fra en bog)??
