Bulunduğun Aya Göre Süz İşlem

1 2 3
26/05/2020, 15:17

Bilal Demirci

(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.
26/05/2020, 16:21

berduş

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:58

Bilal Demirci

(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.
26/05/2020, 17:01

berduş

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

Bilal Demirci

(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
26/05/2020, 17:46

Bilal Demirci

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 ?
1 2 3