Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Her Ayın 15'inden 15'ine Işlem Yapma

Her Ayın 15'inden 15'ine Işlem Yapma
alperalper
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.11.2013
Toplam 93 konu açtı.
Toplam 624 yorum yaptı.
Toplam 88 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016, Office 2019,
Beğeniler: 0 / 31
#1
access-sql-5  18-02-2020, 09:07
Arkadaşlar elimde bulunan bir projede hesaplamalarımı her ayın başından sonuna yapıyordum ancak mevzuat değişikliği nedeni ile 15 inden 15'ine yapılması gerekiyor. Örneğin;

Başlama Tarihi: 01/01/2020
Bitiş Tarihi: 14/02/2020

şeklinde olmalı. Şubat ayında ise

Başlama: 15/02/2020
Bitiş: 14/03/2020

şeklinde olacak. Ben düzenleme yaptım aslında oldu ama teknik bir hata yaptıysam bu ilerde sorun çıkarabilir. bu yüzden teyit amaçlı bu konuyu açtım.


ESKİ HESAPLAMA:

Visual Basic
  1. Private Sub temizle()
  2. Dim inta As Integer, intJ As Integer, deger As String
  3.  
  4. intMonth = Me.ay2
  5. intYear = Me.yıl
  6.  
  7. For inta = 1 To 31
  8. deger = Format(inta, "00")
  9.  
  10. Next inta
  11. intFirst = 1
  12. intLastDay = Day(DateAdd("m", 1, DateSerial(Me.yıl, Me.ay2, 1)) - 1)
  13. intLast = intFirst + intLastDay - 1
  14. intJ = 1
  15. For inta = intFirst To intLast
  16. deger = Format(inta, "00")
  17.  
  18. Me("gun" & deger).Value = ""
  19. Me.gun01.SetFocus
  20.    
  21. Next inta
  22. End Sub





YENİ HESAPLAMA:

Visual Basic
  1. Private Sub temizle()
  2. Dim inta As Integer, intJ As Integer, deger As String
  3.  
  4. intmonth = Format(DatePart("m", Etiket01), "00")
  5. intyear = DatePart("yyyy", Etiket01)
  6.  
  7. For inta = 1 To 31
  8. deger = Format(inta, "00")
  9.  
  10. Next inta
  11. intFirst = 1
  12. intLastDay = Day(DateAdd("m", 2, DateSerial(intyear, intmonth, 31)))
  13. intLast = intFirst + intLastDay - 1
  14. intJ = 1
  15. For inta = intFirst To intLast
  16. deger = Format(inta, "00")
  17.  
  18. Me("gun" & deger).Value = ""
  19. gun01.SetFocus
  20.    
  21. Next inta
  22. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.091 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#2
18-02-2020, 16:03
Visual Basic
  1. Sub temizle()
  2. For Tarih = Me.etiket01 To DateSerial(Year(Me.etiket01), Month(DateAdd("m", 1, CDate(Me.etiket01))), 14)
  3. Me("gun" & Format(CDate(Tarih), "00")).Value = ""
  4. Next Tarih
  5. End Sub



olarak deneyin.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Access Kayıt Yapma kertiller_55 1 217 29-09-2025, 21:15
Son Mesaj: dsezgin
  [FORM] Form Açıkken Diğer Formda Işlem Yapabilmek caytug 6 541 02-10-2024, 10:12
Son Mesaj: caytug
  [VBA] Metin Içerisindeki Kelimeler Ile Arama Yapma ekremer1969 6 1.329 22-06-2024, 16:15
Son Mesaj: dsezgin
  Ayın Kaçıncı Haftası evren89 3 395 21-05-2024, 15:16
Son Mesaj: dsezgin
  [SORGU] Iki Tablo Arasında Sorgu Ile Güncelleme Yapma yahyamacit 2 471 10-11-2023, 13:22
Son Mesaj: yahyamacit
  Aynı Tarihli Veri Varsa Işlem Yapmasın Ve Sql Col Sayısını Arttırma snapper 9 1.054 20-10-2023, 00:36
Son Mesaj: dsezgin
  Altformda Hücre Ile Değil Satır Ile Işlem Yapma Hakkında. OGUZTURKYILMAZ 1 453 22-04-2023, 23:48
Son Mesaj: OGUZTURKYILMAZ
  [FORM] Forum Kapandığında Otomatik Tablo Yapma Sorgusunun çalışması Ahmet51 5 521 07-11-2022, 18:58
Son Mesaj: alperalper

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):