AccessTr.neT

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

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?

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.

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

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

Rica ederim
Iyi çalışmalar