+- 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ığı: Tarih Formülü: 2 Haftalık Süre Ekleme (/konu-tarih-formulu-2-haftalik-sure-ekleme.html)
Tarih Formülü: 2 Haftalık Süre Ekleme - av.fatihberber - 14/04/2025
Merhaba.
Ofisimize gelen tebligatları tuttuğum sistemde gelen evrakla ilgili yapılması gereken işlemin son gününü işlediğim bir bölüm var.
Bunu manuel olarak kendim yazıyorum.
Ekte sunduğum örnekte "2 hafta ekle" butonuna tıkladığımda tebliğ tarihi alanındaki değere 2 haftalık süre ekleyerek son işlem tarihi bölümüne yazmasını istiyorum. Normalde bunu yapabiliyorum ama sıkıntılı olan kısım şurası:
Tebliğ tarihine 2 haftalık süre eklediğimizde son işlem tarihi hafta sonu tatil gününe, yani cumartesi veya pazara denk geldiğinde sistemin otomatik olarak ilk pazartesi gününü yazmasını istiyorum.
Bu konuyla ilgili yardımınızı rica ederim.
RE: Tarih Formülü: 2 Haftalık Süre Ekleme - boolean_ - 14/04/2025
Merhabalar,
Uygulamanız içerisine önce tarih gün kontrolü yapacak fonksiyon eklemek gerekiyor. Bunu için bir modül ekleyin ve içine
Kod:
Option Compare Database
Function AddDaysAndAdjust(startDate As Date) As Date
Dim newDate As Date
newDate = DateAdd("d", 14, startDate)
Dim dayOfWeek As Integer
dayOfWeek = Weekday(newDate, vbMonday)
If dayOfWeek = 6 Then
newDate = DateAdd("d", 2, newDate)
ElseIf dayOfWeek = 7 Then
newDate = DateAdd("d", 1, newDate)
End If
AddDaysAndAdjust = newDate
End FunctionKod:
Private Sub buton_2_hafta_ekle_Click()
Dim originalDate As Date
Dim adjustedDate As Date
originalDate = Me.teblig_tarihi.Value
adjustedDate = AddDaysAndAdjust(originalDate)
Me.son_sure.Value = adjustedDate
End Subiyi günler
RE: Tarih Formülü: 2 Haftalık Süre Ekleme - berduş - 14/04/2025
alternatif olarak buton_2_hafta_ekle tıklama olayını aşağıdaki gibi düzenleyip dener misiniz?
Private Sub buton_2_hafta_ekle_Click()
x = teblig_tarihi
son_sure = IIf(x Mod 7 < 2, x + 14 + 2 - (x Mod 7), x + 14)
End SubRE: Tarih Formülü: 2 Haftalık Süre Ekleme - av.fatihberber - 14/04/2025
(14/04/2025, 11:11)boolean_ yazdı: Merhabalar,
Uygulamanız içerisine önce tarih gün kontrolü yapacak fonksiyon eklemek gerekiyor. Bunu için bir modül ekleyin ve içineSonrasında kullandığınız butonun olay yordamına kodu ekleyin.Kod:Option Compare Database
Function AddDaysAndAdjust(startDate As Date) As Date
Dim newDate As Date
newDate = DateAdd("d", 14, startDate)
Dim dayOfWeek As Integer
dayOfWeek = Weekday(newDate, vbMonday)
If dayOfWeek = 6 Then
newDate = DateAdd("d", 2, newDate)
ElseIf dayOfWeek = 7 Then
newDate = DateAdd("d", 1, newDate)
End If
AddDaysAndAdjust = newDate
End Function
Sonucu olumlu ya da olumsuz bildirin.Kod:Private Sub buton_2_hafta_ekle_Click()
Dim originalDate As Date
Dim adjustedDate As Date
originalDate = Me.teblig_tarihi.Value
adjustedDate = AddDaysAndAdjust(originalDate)
Me.son_sure.Value = adjustedDate
End Sub
iyi günler
Yazılanları yaptım. Buton çalıştı. Sorun yok ancak formu kaydederken aldığım uyarı:
bu form veya rapor geçerli ver,tabanı biçimi ile uygun olmayan değişiklikler içeriyor ....
Değişikliklerinizi kaydetmeniz için içinde boş hücreler bulunan düzenleri kaldırmanız ve/veya formun veya raporun hasmodule özelliğini no olarak ayarlamanız gerekir.
RE: Tarih Formülü: 2 Haftalık Süre Ekleme - av.fatihberber - 14/04/2025
(14/04/2025, 11:39)berduş yazdı: alternatif olarak buton_2_hafta_ekle tıklama olayını aşağıdaki gibi düzenleyip dener misiniz?
Private Sub buton_2_hafta_ekle_Click()
x = teblig_tarihi
son_sure = IIf(x Mod 7 < 2, x + 14 + 2 - (x Mod 7), x + 14)
End Sub
Hocam bu daha pratik oldu. İlave modulsüz olarak da çalıştı, teşekkür ederim.
RE: Tarih Formülü: 2 Haftalık Süre Ekleme - berduş - 14/04/2025
Rica ederim iyi çalışmalar)