Aşağıdaki kodu kullanırsanız ayları aykoda göre hesaplayıp tabloya veri aktarır.
On Error Resume Next
Dim GTarih, GIlkTarih, GSonTarih As Date
Dim GAyAdi As Integer
Dim GAyNo As String
Dim GHaftaTarih, GHaftaGunu As Integer
Dim GYil As Integer
Dim Kayit As DAO.Recordset
Dim GAylarBirlesik As String
Set Kayit = CurrentDb.OpenRecordset("TabloYillik", dbOpenDynaset)
Do While Not Kayit.EOF
If Kayit![PlanID] = DCount("PlanID", "TabloYillik") Then
Exit Do
End If
Kayit.Edit
GAyAdi = Val(Kayit![aykod])
Select Case GAyAdi
Case 1 To 4
GAyNo = GAyAdi + 8
GYil = Year(Date)
Case 5 To 10
GAyNo = GAyAdi - 4
GYil = DateAdd("y", 1, Year(Date))
End Select
GTarih = "01" & "." & GAyNo & "." & GYil
GHaftaTarih = DateAdd("ww", (Left(Kayit![HAFTA], 1) - 1), GTarih)
GHaftaGunu = Weekday(GHaftaTarih, vbMonday)
GIlkTarih = GHaftaTarih - Weekday(GHaftaTarih) + 9
GSonTarih = GHaftaTarih - Weekday(GHaftaTarih) + 13
If Format(GIlkTarih, "mm") = Format(GSonTarih, "mm") Then
GAylarBirlesik = Format(GIlkTarih, "dd") & " "
Else
GAylarBirlesik = Format(GIlkTarih, "dd") & " " & Format(GIlkTarih, "mmmm")
End If
Kayit![Tarih] = GAylarBirlesik & "-" & Format(GSonTarih, "dd") & " " & Format(GSonTarih, "mmmm")
Kayit![ilkTarih] = GIlkTarih
Kayit![SonTarih] = GSonTarih
Kayit.Update
Kayit.MoveNext
Loop
Liste20.Requery
Kayit.Close
aykodu göre değiştirirseniz yine çalışmaz.
