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
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 22/11/2020, 20:28, Düzenleyen: conquerora.