Alt Formdan Seçim Yapma Ve Filtrelemeyi Butona Bağlama

15/06/2022, 14:14

derzulya

Merhaba arkadaşlar. Ekteki uygulamada alt formdaki veriye tıklayarak üst formda değişiklik yapabilmek istiyorum.

Uygulamada alt formda intac_tarihi boş ise satırı kırmızıya boyuyor. Üst formdaki Eksik olanları göster butonuna tıklandığında intac_tarihi boş olanları veya kırmızı renkte olan sütunları alt formda süzmesini istiyorum mümkünse. Tümünü göster butonuna tıkladığımda ise filtrelemenin kalkarak tüm kayıtları alt formda görmek istiyorum.

yardımcı olabilirseniz sevinirim.
15/06/2022, 15:01

berduş

sayın @derzulya formun amacı araştıran, öğrenmek isteyen ama bir yerde takıldığı için ilerleyemeyen kişiler yardımcı olmak
yani aslolan öğretmek ve öğrenmek ,
işimiz sizin işiniz yapmak değil size yol göstermek
ama soruş tarzınızdan anlıyorum ki -resmen yapılacaklar listesi sunmuşsunuz- siz sadece işinizi bize yaptırmak istiyorsunuz
her defasında tek soru sorun, yeni soru sormadan önce araştırın eğer bulamazsanız biz yardımcı olmaya çalışırız ama daha en başta araştırmadan seri halde soru sorarsanız yardımcı olmayız
aşağıdaki kod altformun Form_Current olayının kodu
Private Sub Form_Current()
If IsNull(Me.Kimlik) Then Exit Sub
Me.Parent.Kimlik.SetFocus
Set rst = Me.Parent.RecordsetClone
ArmaKrt = Me.Kimlik
rst.FindFirst "Kimlik = " & ArmaKrt
If Not rst.NoMatch Then Me.Parent.Bookmark = rst.Bookmark
rst.Close
End Sub
15/06/2022, 15:15

derzulya

(15/06/2022, 15:01)berduş yazdı: sayın @derzulya formun amacı araştıran, öğrenmek isteyen ama bir yerde takıldığı için ilerleyemeyen kişiler yardımcı olmak
yani aslolan öğretmek ve öğrenmek ,
işimiz sizin işiniz yapmak değil size yol göstermek
ama soruş tarzınızdan anlıyorum ki -resmen yapılacaklar listesi sunmuşsunuz- siz sadece işinizi bize yaptırmak istiyorsunuz
her defasında tek soru sorun, yeni soru sormadan önce araştırın eğer bulamazsanız biz yardımcı olmaya çalışırız ama daha en başta araştırmadan seri halde soru sorarsanız yardımcı olmayız
aşağıdaki kod altformun  Form_Current olayının kodu
Private Sub Form_Current()
If IsNull(Me.Kimlik) Then Exit Sub
Me.Parent.Kimlik.SetFocus
    Set rst = Me.Parent.RecordsetClone
    ArmaKrt = Me.Kimlik
    rst.FindFirst "Kimlik = " & ArmaKrt
        If Not rst.NoMatch Then Me.Parent.Bookmark = rst.Bookmark
    rst.Close
End Sub

yazım şeklimden yanlış anlaşılmışım. özür dilerim. Yıllardır bu forumda öğrenmeye çalışarak birşeyler çıkardım sayenizde. yanlış anlaşılma için kusura bakmayın tekrar. bu nedenle konuyu silmenizi rica ediyorum. İyi çalışmalar dilerim.