'AÇILIR LİSTE KUTUSU GÜNCELLEME SONRASI OLAYI
 
if me.tarih1="Cumartesi" Or me.tarih1="Pazar" then
me.guncelle1=0
else
me.guncelle1=-1
end if
 
if me.tarih2="Cumartesi" Or me.tarih2="Pazar" then
me.guncelle2=0
else
me.guncelle2=-1
end if
 
if me.tarih3="Cumartesi" Or me.tarih3="Pazar" then
me.guncelle3=0
else
me.guncelle3=-1
end if
 
if me.tarih4="Cumartesi" Or me.tarih4="Pazar" then
me.guncelle4=0
else
me.guncelle4=-1
end if
 
.......
.......
.......
.......
 
 
if me.tarih31="Cumartesi" Or me.tarih31="Pazar" then
me.guncelle31=0
else
me.guncelle31=-1
end if

Private Sub AcilanKutu_AfterUpdate()
Dim Sayac As Long, Trh As Date
For Trh = DateSerial(Year(Date), Me.AcilanKutu, 1) To DateSerial(Year(Date), Me.AcilanKutu + 1, 0)
   Me.Controls("tarih" & Format(Trh, "d")) = Trh
   Me.Controls("guncelle" & Format(Trh, "d")) = IIf(Eval(Weekday(Trh, vbMonday) & " IN(6, 7)"), 0, -1)
Next Trh
End Sub