Not: tekrarlı girişleri engellemek için bir yöntem eklemedim
Dim BasTrh, BitTrh, DnmBas, DnmBit As Date
BasTrh = CLng(Me.Metin0)
BitTrh = CLng(Me.Metin2)
DnmBas = BasTrh 'DateAdd("m", 1, Bastrh)
Do While DnmBas < BitTrh
If DateDiff("m", DnmBas, BitTrh) = 0 Then _
DnmBit = BitTrh Else _
DnmBit = CLng(DateSerial(Year(DnmBas), Month(DnmBas) + 1, 0))
CurrentDb.Execute " insert into [Tablo1] (Donem,[Baslangic_Tarihi],[Bitis_Tarihi])" & _
" VALUES ('" & Format(DnmBas, "mmm.yy") & "'," & _
CLng(DnmBas) & ", " & _
CLng(DnmBit) & ") "
DnmBas = CLng(DateSerial(Year(DnmBas), Month(DnmBas) + 1, 1))
Loop