vb sayfasındaki

Option Explicit

kodunun hemen altına

Dim YeniKayitSicil As Integer

kodunu ekle,

iscinar'ın verdiği kaydet butonu kodunu aşağıdaki ile değiştir.

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Me.Personel_Alt_Formu.Requery

Me.RecordSource = "Select * From Personel where [Sicil] = " & YeniKayitSicil

Mevzuyu doğru anladıysam bu problemi çözer.