27/02/2011, 00:53
çalışan Kod...
Örneğin bir formdaki alanların birine bağlı olarak bir başka formu süzerek açtınız. sadece o kaydı gösteriyor. Fakat siz bir Açılan kutu yapmak ve tüm kayıtları burda görebildiğiniz gibi formunuzda da bu kayda konumlanmak istiyorsunuz.. işte bunu yapan kodlar...
(ben forumda bulamadığım için arayan varsa işine yarasın diye hazırladım. )
Private Sub ArsivKytNoBUL_AfterUpdate()
Dim KytNo As Integer
KytNo = Me.ArsivKytNoBUL
DoCmd.ShowAllRecords
DoCmd.GoToRecord acDataForm, "Frm_Arsivleme", acFirst
Me.KayitNo.SetFocus
DoCmd.FindRecord KytNo, acEntire, , acSearchAll, , acCurrent
End Sub
umarim işinize yarar..
Basit olduğunu düşünerek örnek eklemeye gerek görmemiştim ama yoğun ısrar üzerine bir örnek hazırladım. Hatta açıklama bile yaptım..:
Normal şartlarda ekteki evrak formunda bulunan butonla sadece bu evrağın arşiv kayıtlarını istediğinizde tüm verilerden sizin istediğiniz şartlara uyanları (arsiv id leri tutanları) süzer, diğerlerini eler ve size bu kayıtları gösterir. Buna rağmen siz Arşiv formuna bir Açılan Kutu yapıp Arşiv Tablosundaki tüm kayıtları göre/göstere-bilirsiniz. fakat o kayda konumlanmak istediğiniz de size "Belirtilen Kayda Gidemezsiniz" diye bir hata mesajı getirecektir. Fakat kodunuzu bu şekilde düzelttiğiniz zaman kullanıcı varsayılan olarak sizin süzerek kendisine getirdiğiniz bilgileri gördüğü gibi kendisi illede tüm kayıtlar üzerinde bir arama yapmak isterse onu da yapabilecektir. Seçtiği kayda rahatlıkla konumlanabilecektir.
Umarım tatmin edecek, kafi gelecek derecede bir açıklama yapabilmişimdir. Acemilere göre yazmaya çalıştım. ustalar kusura bakmasın.. herkese kolay gelsin..
Örneğin bir formdaki alanların birine bağlı olarak bir başka formu süzerek açtınız. sadece o kaydı gösteriyor. Fakat siz bir Açılan kutu yapmak ve tüm kayıtları burda görebildiğiniz gibi formunuzda da bu kayda konumlanmak istiyorsunuz.. işte bunu yapan kodlar...
(ben forumda bulamadığım için arayan varsa işine yarasın diye hazırladım. )
Private Sub ArsivKytNoBUL_AfterUpdate()
Dim KytNo As Integer
KytNo = Me.ArsivKytNoBUL
DoCmd.ShowAllRecords
DoCmd.GoToRecord acDataForm, "Frm_Arsivleme", acFirst
Me.KayitNo.SetFocus
DoCmd.FindRecord KytNo, acEntire, , acSearchAll, , acCurrent
End Sub
umarim işinize yarar..
Basit olduğunu düşünerek örnek eklemeye gerek görmemiştim ama yoğun ısrar
üzerine bir örnek hazırladım. Hatta açıklama bile yaptım..:Normal şartlarda ekteki evrak formunda bulunan butonla sadece bu evrağın arşiv kayıtlarını istediğinizde tüm verilerden sizin istediğiniz şartlara uyanları (arsiv id leri tutanları) süzer, diğerlerini eler ve size bu kayıtları gösterir. Buna rağmen siz Arşiv formuna bir Açılan Kutu yapıp Arşiv Tablosundaki tüm kayıtları göre/göstere-bilirsiniz. fakat o kayda konumlanmak istediğiniz de size "Belirtilen Kayda Gidemezsiniz" diye bir hata mesajı getirecektir. Fakat kodunuzu bu şekilde düzelttiğiniz zaman kullanıcı varsayılan olarak sizin süzerek kendisine getirdiğiniz bilgileri gördüğü gibi kendisi illede tüm kayıtlar üzerinde bir arama yapmak isterse onu da yapabilecektir. Seçtiği kayda rahatlıkla konumlanabilecektir.
Umarım tatmin edecek, kafi gelecek derecede bir açıklama yapabilmişimdir. Acemilere göre yazmaya çalıştım. ustalar kusura bakmasın.. herkese kolay gelsin..