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
