ilginiz için tşk. kod bu şekliyle çalışıyor.
fakat şöyle bi durum var ben başka formda kayıt ekranı ile liste ekranı ayrı kullanacak olduğum için bu kodu kullanma şansım olmaz
ben liste formundan veriyi kayıt formunda alıp değişiklik yapmak.

Dim RS As Object
Set RS = Me.Recordset.Clone
RS.OpenForm "FrmRapor"
RS.FindFirst "[idxizin]=" & Izin_Listesi.Column(9)
If Not RS.EOF Then Me.Bookmark = RS.Bookmark
TxİzinBaslama = Izin_Listesi.Column(5)
TxİzinBitis = Izin_Listesi.Column(6)
TxİzinTarih = Izin_Listesi.Column(10)

ben böyle bir kodu uyarlamaya çalışıyorum amma nasıl olur