+- 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)
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 SubRE: 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