Teşekkür ederim puletin hocam ,
Malesef sıralama sicil numarası na küçükten büyüğe doğru olacak şekilde olması gerekiyor. Ayrıca yeni kayıt girerken sicil no diğer kayıtlara göre büyük yada kücükte olabiliyor. Bu yüzden ben yeni kayıt girildikten sonra alt form ve formda mutlaka yeni kayda gitmeye çalışıyorum.
fakat daha çözemedim :S
Arkadaşlar bir kaç gündür araştırmama rağmen yeni kayıt yaptıktan sonra o kayda gidebileceğim bir kod ben bulamadım. Sizde bilmiyorsanız başka yöntemler denemeye başlayacam ...
iyi çalışmalar ...
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.
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 ...