Alt Form Filtreleme - Baskı Önizleme

Alt Form Filtreleme - 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ığı: Alt Form Filtreleme (/konu-alt-form-filtreleme.html)

Sayfalar: 1 2 3

RE: Alt Form Filtreleme - conquerora - 22/11/2020

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

RE: Alt Form Filtreleme - berduş - 22/11/2020

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?

RE: Alt Form Filtreleme - conquerora - 22/11/2020

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.

Re: Alt Form Filtreleme - berduş - 22/11/2020

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

RE: Alt Form Filtreleme - conquerora - 22/11/2020

Tamam bu defa oldu.
Çok teşekkürler.

RE: Alt Form Filtreleme - berduş - 22/11/2020

Rica ederim
Iyi çalışmalar