Kod:
Dim X, Y, Z, Guncel, Yeni As Integer
Dim AyTarih, sqlTarih, strTarih As String
Z = DCount("PlanID", "TabloYillik")
For X = 0 To Z
Yeni = (Fix((X - 1) / 4)) * 7
sqlTarih = Metin161 + Yeni
AyTarih = sqlTarih + 2
Y = DCount("AY", "TabloYillik", "AY= '" & Format(AyTarih, "mmmm") & "' and [PlanID]<" & X & "")
Guncel = (Fix(Y / 4)) + 1
strSQl = "SELECT * FROM TabloYillik "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQl, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[PlanID]=" & "'" & X & "'"
If Not rstkayit.EOF Then
strTarih = IIf(Format(sqlTarih - Weekday(sqlTarih) + 2, "mmmm") = Format(sqlTarih - Weekday(sqlTarih) + 6, "mmmm"), (Format(sqlTarih - Weekday(sqlTarih) + 2, "dd") & "-" & Format(sqlTarih - Weekday(sqlTarih) + 6, "dd") & " " & Format(sqlTarih - Weekday(sqlTarih) + 2, "mmmm")), (Format(sqlTarih - Weekday(sqlTarih) + 2, "dd") & " " & Format(sqlTarih - Weekday(sqlTarih) + 2, "mmmm") & "-" & Format(sqlTarih - Weekday(sqlTarih) + 6, "dd") & " " & Format(sqlTarih - Weekday(sqlTarih) + 6, "mmmm")))
.Fields("tarih") = strTarih
.Fields("AY") = Format(AyTarih, "mmmm")
.Fields("aykod") = DLookup("Deger3", "TabloDeger", "Deger1= '" & Format(AyTarih, "mmmm") & "'")
If Y <= 4 Then
.Fields("HAFTA") = "1.Hafta"
ElseIf Y > 4 And Y <= 8 Then
.Fields("HAFTA") = "2.Hafta"
ElseIf Y > 8 And Y <= 12 Then
.Fields("HAFTA") = "3.Hafta"
ElseIf Y > 12 And Y <= 16 Then
.Fields("HAFTA") = "4.Hafta"
ElseIf Y > 16 And Y <= 20 Then
.Fields("HAFTA") = "5.Hafta"
End If
Liste20.Requery
.Update
End If
End With
Yeni = Yeni + 7
Next X