AccessTr.neT
Sorguda Tarihler Arası Veri Alma - 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ığı: Sorguda Tarihler Arası Veri Alma (/konu-sorguda-tarihler-arasi-veri-alma.html)

Sayfalar: 1 2 3 4


RE: Sorguda Tarihler Arası Veri Alma - berduş - 18/07/2024

orada 2 yer vardı 2sini de değiştirdiniz mi?

Kod:
Private Sub Komut142_Click()
Dim tar1 As Date
Dim tar2 As Date
'DateAdd("m";-1;DateAdd("d";1;[Formlar]![KREDİ KARTI İŞLEMLERİ]![KREDİ KARTI-ALT].[Form]![Hesap_Kesim_Tar].[Value]))

tar1 = DateAdd("m", 1, Me.[Metin136].Value)
tar2 = DateAdd("m", -1, DateAdd("d", 1, tar1))
Me.[Metin139].Value = Format(tar2, "dd.mm.yyyy")
Me.[Metin136].Value = Format(tar1, "dd.mm.yyyy")
Forms![KREDİ KARTI İŞLEMLERİ].[Alt482].Form.Requery
End Sub



Private Sub Komut143_Click()
Dim tar1 As Date
Dim tar2 As Date


tar1 = DateAdd("m", -1, Me.[Metin136].Value)
tar2 = DateAdd("m", -1, DateAdd("d", 1, tar1))
Me.[Metin139].Value = Format(tar2, "dd.mm.yyyy")
Me.[Metin136].Value = Format(tar1, "dd.mm.yyyy")
Forms![KREDİ KARTI İŞLEMLERİ].[Alt482].Form.Requery
End Sub




RE: Sorguda Tarihler Arası Veri Alma - metınaycıcek - 18/07/2024

evet Hocam


RE: Sorguda Tarihler Arası Veri Alma - berduş - 18/07/2024

resme bakar mısınız


RE: Sorguda Tarihler Arası Veri Alma - metınaycıcek - 18/07/2024

Hocam Baktım gördüm formu ilk açtığında gelmiyor
ok tuşlarına bastığında geliyor.


RE: Sorguda Tarihler Arası Veri Alma - berduş - 18/07/2024

açılış kısmını kontrol etmedim
o kısımdaki atamalarda da benzer bir değişiklik yapmanız yeterli


RE: Sorguda Tarihler Arası Veri Alma - metınaycıcek - 18/07/2024

Sayın Hocam cevap verdiğiniz için Allah cc razı olsun
Ben ugraşayım inşallah beceririm,beceremez isem sizden yardım etmenizi rica ediyorum

Sayın Hocam Sorgudan Kaynaklı ola bilirmi