Point til Superjap fra Rosco
http://www.eksperten.dk/spm/289037Jeg skulle bruge R.AddNew
Men da du nævnte opdatering prøvede jeg at tilføje R.Requery så virkede det. så den kom til at se sådan ud.
----------------------------
Private Sub bntNyPost_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.AddNew
Me.Parent.Bookmark = R.Bookmark
R.Requery
End Sub
-----------------------End
Tak.
