Teşekkürler ;

Private Sub Komut14_Click()

GSayi = Me.SERİ_NO



GKalem = KALEM_TİPİ

GTipi = TİPİ

GSeri = SERİ

GTarih = İŞLEM_TARİHİ



For x = 0 To Me.SAY



Me.SERİ_NO = GSayi + x



KALEM_TİPİ = GKalem

TİPİ = GTipi

SERİ = GSeri

İŞLEM_TARİHİ = GTarih



DoCmd.GoToRecord , , acNewRec



Next x

End Sub

---------------------------
bu şekilde yaptım çalıştı

Tekrar teşekkür ederim