sledgeab hocam , kodlarınız sorunu çözmedi ama bana yol gösterdi ;)

kodları şu şekilde değiştirerek sorun çözüldü...

 Dim YeniKayitSicil As Long 

Private Sub Kaydet_Click()

 YeniKayitSicil = Me.Sicil

 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

 Me.Personel_Alt_Formu.Requery

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

End Sub

Sorun çözülmüştür, yardımcı olan herkese teşekkürler ...