İki Tarih Arası Ay Bazında Satır Ekleme - 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ığı: İki Tarih Arası Ay Bazında Satır Ekleme (/konu-iki-tarih-arasi-ay-bazinda-satir-ekleme.html) Sayfalar:
1
2
|
İki Tarih Arası Ay Bazında Satır Ekleme - fkilic76 - 05/03/2019 Tüm Üstat ve üyelere selamlar. Daha Önce ;Tabloya iki tarih arası "gün" kadar satır açma hakkında soru sormuş ve gerekli yardımı almıştım. Özetle 01.01.2019-31.01.2019 tarihleri arasına 31 adet satır eklenmiş ve ilgili tarihlere veri kaydedilmiştir. Şimdiki Sorum: 01.01.2018-31.12.2018 iki tarih arası "AY" kadar satır açma YANİ 12 ADET atmasını beklerken benim yaptığımda 365 adet atıyor ve 01.12.2040 gibi bitiyor konuyla alakalı kod ektedir. teşekkür ederim Private Sub Komut32_Click() Dim GTarih As Date Dim GSayi As Integer DoCmd.SetWarnings False If Me.Onay82 = False Then For GSayi = 0 To CLng(Me.Metin44) - CLng(Metin43) - 0 GTarih = CDate(Format(DateAdd("d", GSayi, Me.Metin43), "dd/mm/yyyy")) DoCmd.RunSQL "INSERT INTO Tablo1 (kisi_id, Tarih) VALUES (" & id & ",#" & Format(GTarih, "yyyy-mm-dd") & "#)" Next Else For GSayi = 0 To CLng(Me.Metin44) - CLng(Metin43) - 0 GTarih = CDate(Format(DateAdd("m", GSayi, Me.Metin43), "dd/mm/yyyy")) DoCmd.RunSQL "INSERT INTO Tablo1 (kisi_id, Tarih) VALUES (" & id & ",#" & Format(GTarih, "yyyy-mm-dd") & "#)" Next End If DoCmd.SetWarnings True Me.Tablo1_Alt_Form.Requery End Sub Private Sub Onay82_Click() If Me.Onay82 = True Then Me.Etiket83.Caption = "Aylık" Else Me.Etiket83.Caption = "Günlük" End If End Sub Cvp: İki Tarih Arası Ay Bazında Satır Ekleme - berduş - 05/03/2019 ay hesabı için ilgili alanı aşağıdaki şekilde değiştirip dener misiniz? Kod:
CLng(Format(Me.Metin44, "mm")) - CLng(Format(Metin43, "mm")) Cvp: İki Tarih Arası Ay Bazında Satır Ekleme - berduş - 05/03/2019 Aşağıdaki şekilde daha doğru olur (önceki mesajda yıl farkını hesaba katmamışım) Kod:
Tyil = CLng(Format(Me.Metin2, "yyyy")) - CLng(Format(Metin0, "yyyy")) Cvp: İki Tarih Arası Ay Bazında Satır Ekleme - fkilic76 - 05/03/2019 üstadım ilginiz için teşekkürler. lakin Kod Olmadı ya da ben bir şeyleri unuttum, ilgili proje ekte Cvp: İki Tarih Arası Ay Bazında Satır Ekleme - berduş - 05/03/2019 aşağıdaki kodu dener misiniz? Kod:
Private Sub Komut32_Click() Cvp: İki Tarih Arası Ay Bazında Satır Ekleme - fkilic76 - 05/03/2019 Tamam üstadım.oldu ellerine sağlık |