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