(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ç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 Function

Sonrasında kullandığınız butonun olay yordamına kodu ekleyin.

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

Sonucu olumlu ya da olumsuz bildirin.
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.