Kod:
Private Sub Komut7_Click()
On Error GoTo Err_Komut7_Click
DoCmd.SetWarnings False
If IsNull(Liste0) Or IsNull(KacAy) Or KacAy = 0 Then
MsgBox "Listeden isim seçip KacAy taksit yapılacağını belirtiniz."
Else
For i = 1 To KacAy
DoCmd.RunSQL "INSERT INTO takip(kisi_idfk, sira_no, islem_tarihi) " & _
"SELECT '" & Liste0.Column(0) & "', " & i & ", '" & DateAdd("M", i - 1, Liste0.Column(2)) & "';"
Next i
takip_alt_formu.Requery
End If
DoCmd.SetWarnings True
Exit_Komut7_Click:
Exit Sub
Err_Komut7_Click:
MsgBox Err.Description
Resume Exit_Komut7_Click
End Sub