Benim yardımımla çözülmüş olamaz, eklediğiniz son örnekteki kod bana ait değil, farklı bir kod kullanmışsınız.

Private Sub Komut160_Click()



On Error Resume Next

Dim GTarih, GIlkTarih, GSonTarih As Date

Dim GAyNo As String

Dim GHaftaTarih, GHaftaGunu, GAyAdi 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![AY] = MonthName(GAyNo)

       Kayit.Update

       Kayit.MoveNext

       

   Loop

   



Liste20.Requery

Kayit.Close

End Sub