Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
05/03/2019 14:40
Konu Sahibi
fkilic76
Yorumlar
6
Okunma
323
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
fkilic76

fkilic76

Aktif Üye
24755
Fe.... Kı....
 43
 20
 58
 17/09/2010
0
 Ankara
 
 Ofis 2007
 29/04/2019,00:11
Çözüldü 
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



halily

halily

Uzman
65596
Ha....
 26
 1.158
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:35
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"))



...........
halily

halily

Uzman
65596
Ha....
 26
 1.158
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:35
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"))
Tay = CLng(Format(Me.Metin2, "mm")) - CLng(Format(Metin0, "mm"))
ToplmAy = Tyil * 12 + Tay 
For GSayi = 0 To  ToplmAy -1



fkilic76

fkilic76

Aktif Üye
24755
Fe.... Kı....
 43
 20
 58
 17/09/2010
0
 Ankara
 
 Ofis 2007
 29/04/2019,00:11
üstadım ilginiz için teşekkürler.
lakin Kod Olmadı ya da ben bir şeyleri unuttum, 
ilgili proje ekte



...........
halily

halily

Uzman
65596
Ha....
 26
 1.158
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:35
aşağıdaki kodu dener misiniz?

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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
   
  Tyil = CLng(Format(Me.Metin44, "yyyy")) - CLng(Format(Metin43, "yyyy"))
  Tay = CLng(Format(Me.Metin44, "mm")) - CLng(Format(Metin43, "mm"))
  ToplmAy = Tyil * 12 + Tay
  
  For GSayi = 0 To ToplmAy - 1
    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



fkilic76

fkilic76

Aktif Üye
24755
Fe.... Kı....
 43
 20
 58
 17/09/2010
0
 Ankara
 
 Ofis 2007
 29/04/2019,00:11
Tamam üstadım.oldu ellerine sağlık



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formlar Arası İlişki metınaycıcek 2 133 03/06/2019, 00:32
Son Yorum: metınaycıcek
Çözüldü Gruba Göre Form Çağırıp, Forma Ekleme magmar 8 290 21/05/2019, 12:28
Son Yorum: magmar
Çözüldü Excel Kitaplar Arası Geçişte Problem ertus35 20 487 11/05/2019, 02:36
Son Yorum: ertus35
Çözüldü Tablolar Arası İlişki Kurma karaca10 1 134 08/04/2019, 23:32
Son Yorum: ozanakkaya
Çözüldü Mail Gönderirken Gövdeye Yazı Aralarına Resim Eklemek Ve Satır Ara Boşlukları zetyu 6 371 22/03/2019, 23:52
Son Yorum: zetyu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.