Not: sonuçları tam kontrol edemedim
Dim GSayi As Integer
Dim GTarih As Date
For GSayi = 1 To 30
GTarih = DateAdd("d", GSayi - 1, DateSerial(Year(Date), 7, 1))
CurrentDb.Execute "update tbl_PERSONEL set Tarih" & GSayi & "= '' "
Controls("Tarih" & GSayi & "_Etiket").Caption = Format(GTarih, "dd mmm")
Next GSayi
For GSayi = 1 To 30
GTarih = DateAdd("d", GSayi - 1, DateSerial(Year(Date), 7, 1))
txtSQL = "update tbl_PERSONEL set Tarih" & GSayi & _
"='X' where SICILNO in(" & _
"SELECT SICILNO " & _
"FROM tbl_IZINLER " & _
"WHERE (IZINBASLANGICTARIHI <=" & CLng(GTarih) & ") AND (IZINBITISTARIHI >=" & CLng(GTarih) & ") " & _
")"
CurrentDb.Execute txtSQL
Next GSayi