Alt Form Filtreleme

1 2 3
22/11/2020, 20:25

conquerora

güncellemeyi;

4 - metin13ün güncelleştirme yada çıkıldığında olayının kodu;

Private Sub Metin13_AfterUpdate()
StrFiltre = ""
If Not IsNull(Me.Metin13) And Not IsNull(Me.Liste8) Then StrFiltre = "MALZEME=" & Me.Metin13 & " and SİCİL=" & Me.Liste8
Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = StrFiltre
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True
End Sub

sadece Me. satırlarında yaptım.

Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = ""
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True
olarak düzelttim.

yoksa liste8 ve metin13 için de mi yapmam gerekiyordu.


Option Compare Database

Private Sub Liste8_DblClick(Cancel As Integer)
StrFiltre = ""
If Not IsNull(Me.Liste8) Then StrFiltre = "SİCİL=" & Me.Liste8
Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = StrFiltre
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True

End Sub


Private Sub Metin1_Change()
Dim Bul As String
Bul = Metin1.Text
Me.Metin5.Value = Bul
Me.Liste8.Requery
End Sub

Private Sub Metin13_AfterUpdate()
StrFiltre = ""
If Not IsNull(Me.Metin13) And Not IsNull(Me.Liste8) Then StrFiltre = "MALZEME=" & Me.Metin13 & " and SİCİL=" & Me.Liste8
Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = StrFiltre
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True
End Sub
22/11/2020, 21:09

berduş

Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = ""
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True
hem yukardaki kodu
hem de aşağıdaki kodu denedim ikisinde de filtreyi sıfırladı.
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = False
kodu filtreyi sıfır yapmak istediğiniz yere ekleyeceksiniz
mesela ben sıfırla butonu ekleyip orda kullandım, siz de isterseniz buton eklersiniz
yada metin1 arama kutusuna bağlarsınız liste8 gibi altformunda kaynağını değiştirirsiniz
siz ne yapınca filtreyi sıfırlamasını istiyorsanız kodu oraya eklemelisiniz?
22/11/2020, 21:27

conquerora

Yapmak istediğim metin13 yeşil renkli combobox ile alt forma (SRG_ZİMMET_ALT_FRM) yaptığım filtrelemeyi kaldırmak.
Ama bu işlemi yaparken liste8 in alt forma (SRG_ZİMMET_ALT_FRM) yaptığı filtrelemeyi kaldırmamak gerekiyor.
22/11/2020, 21:43

berduş

metin13ü  boşaltıp entera basınca filtre sıfırlanır
Private Sub Metin13_AfterUpdate()
StrFiltre = ""
If Not IsNull(Me.Metin13) And Not IsNull(Me.Liste8) Then StrFiltre = "SİCİL=" & Me.Liste8 & " and MALZEME=" & Me.Metin13
If Not IsNull(Me.Liste8) And Len(Me.Metin13 & "") = 0 Then StrFiltre = "SİCİL=" & Me.Liste8
Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = StrFiltre
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True
End Sub

https://resim.accesstr.net/do.php?img=10606
22/11/2020, 21:49

conquerora

Tamam bu defa oldu.
Çok teşekkürler.
22/11/2020, 21:51

berduş

Rica ederim
Iyi çalışmalar
1 2 3