Lütfen örneklerinizi sıkıştırıp onararak ekleyiniz.
Kullanmanız gereken kod aşağıdadır.
Dim rs As New ADODB.Recordset
Dim GYil, GSayi As Integer
rs.Open "TBLMSEN_AKTAR", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For GYil = 0 To 4
For GSayi = 1 To 12
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE AL_SENETNO SET AL_SENETNO.SIRA_NO = [SIRA_NO]+[EKLE];"
DoCmd.SetWarnings True
rs.AddNew
rs("SC_NO") = Dlookup ("SENET_NO", "SENETNO")
rs("SC_GIRTRH") = Date
rs("VADETRH") = DateSerial(Year(Date) + GYil, GSayi, 1)
rs("SC_VERENK") = Me.DAIRE_NO
rs("TUTAR") = Me.KIRATUTAR + (Me.ARTIRIM * GYil)
rs("RAP_KOD") = Me.RAPOR_KODUEK
rs.Update
Next GSayi
Next GYil
Set rs = Nothing
Me.Requery