AccessTr.neT
Yeni kayıt yaparken alt formda görüntüleyememe sorunu ... - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yeni kayıt yaparken alt formda görüntüleyememe sorunu ... (/konu-yeni-kayit-yaparken-alt-formda-goruntuleyememe-sorunu.html)

Sayfalar: 1 2

Cvp: Yeni kayıt yaparken alt formda görüntüleyememe sorunu ... - cetinerk - 10/02/2012

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

Cvp: Yeni kayıt yaparken alt formda görüntüleyememe sorunu ... - cetinerk - 13/02/2012

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 ...


Cvp: Yeni kayıt yaparken alt formda görüntüleyememe sorunu ... - ozanakkaya - 15/02/2012

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.

Cvp: Yeni kayıt yaparken alt formda görüntüleyememe sorunu ... - cetinerk - 15/02/2012

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 ...