Merhaba,

Butonun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.

Dim GSurem As String

Dim GTekrar As Integer

Dim rs As New ADODB.Recordset



Select Case Me.TEKRARLA



	Case "Günlük"

	GSurem = "d"



	Case "Haftalık"

	GSurem = "ww"



	Case "Aylık"

	GSurem = "m"



	Case "Yıllık"

	GSurem = "yyyy"



End Select



Set rs = New ADODB.Recordset

rs.Open "HATIRLAT_ALT_TB", CurrentProject.Connection, adOpenDynamic, adLockOptimistic



	For GTekrar = 0 To Me.TEKRAR_SAYISI - 1

		With rs

			.AddNew

			![HAT_ID] = Me.HAT_ID

			![TEKRARLA] = Me.TEKRARLA

			![TEKRAR_SAYISI] = Me.TEKRAR_SAYISI

			![NOT] = Me.NOT

			![SORUMLU_KISI] = Me.SORUMLU_KISI

			![DURUMU] = Me.ONCELIK

			![HAT_BASL_TARIHI] = DateAdd(GSurem, GTekrar, Me.TARIH)

			![HAT_BITIS_TARIHI] = DateAdd(GSurem, GTekrar + 1, Me.TARIH)



			.Update

		End With

	Next GTekrar

rs.Close

Set rs = Nothing

Me.HATIRLAT_ALT_FR.Requery