(26/05/2020, 15:10)berduş yazdı:

Me.RecordsetClone.FindFirst "format([Tarih],"mm.yyyy")=" &  format(date,"mm.yyyy") 

Me.Bookmark = Me.RecordsetClone.Bookmark

şeklinde dener misiniz?

denedim kırmızı kod oluyor hata veriyor,simendifer hocamın verdiklerini de denedim ondada hata veriyor
musaıt oldugunuzda ek te küçük bir örnek var sorgu yapmadan kodla musaıt oldugunuzda sizde denerseniz cok sevnirim.

aşağıdaki gibi düzenler misiniz?
2 yerde hata yapmışım
1 - çift tırnak içinde çift tırnak kullanmışım, tek tırnağa çevirdim
2 - formattan sonra kriter metin gibi işlem görmeliydei başına ve sonuna tek tırnak ekledim

Private Sub Form_Load()

    Me.Filter = "format([Tarih],'mm.yyyy')='" & Format(Date, "mm.yyyy") & "'"

    Me.FilterOn = True

End Sub

(26/05/2020, 16:21)berduş yazdı: aşağıdaki gibi düzenler misiniz?
2 yerde hata yapmışım
1 - çift tırnak içinde çift tırnak kullanmışım, tek tırnağa çevirdim
2 - formattan sonra kriter metin gibi işlem görmeliydei başına ve sonuna tek tırnak ekledim

Private Sub Form_Load()

    Me.Filter = "format([Tarih],'mm.yyyy')='" & Format(Date, "mm.yyyy") & "'"

    Me.FilterOn = True

End Sub

sen bir dehasın sayın berduş
mecbur olmadığınız halde bu kadar bizler için çaba sarfediyorsunuz gönülden tşk edeirm

çalıştı
kapatabliriz.

Cabalarimiz ancak sizler de çabalayıp öğrenirseniz bir anlam kazanır, dilerim kodları inceleyip anlamaya calisiyorsunuzdur
Iyi çalışmalar.

(26/05/2020, 17:01)berduş yazdı: Cabalarimiz ancak sizler de çabalayıp öğrenirseniz bir anlam kazanır, dilerim kodları inceleyip anlamaya calisiyorsunuzdur
Iyi çalışmalar.

cm cm inceliyorum siz yazana kadarda bu kadar basitmiymiş diyorum
çok tşk ilgi ve alakanıza

son olarak konu kapandı ama tekrar farklı açmak istemedim

son olarak içinde GELEN FATURA" tabirinide filtrelesin istiyorum ama kodu yazamadım size zahmet bakablirmsiniz lütfen



Private Sub Form_Load()
DoCmd.MoveSize 17200, 2700

Me.Filter = "format([TARİH],'mm.yyyy')='" & Format(Date, "mm.yyyy") & "'"

Me.Filter = ([Data].[Soyadı] Like "*GELEN FATURA *")

Me.FilterOn = True
End Sub




hata veriyor değiştridm ama yenemedi ?