Kod:
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim strSql As String
Dim varRecCnt, cntr
strSql = Forms!FrmDagitim.AltFrmTblDolap.Form.RecordSource
Set rs = CurrentDb.OpenRecordset(strSql)
rs.MoveLast
rs.MoveFirst
varRecCnt = rs.RecordCount
Set rs2 = CurrentDb.OpenRecordset("TblDagitim")
For cntr = 1 To varRecCnt
rs2.AddNew
rs2.Fields("SeriNo").Value = rs.Fields("SeriNo").Value
rs2.Fields("Marka").Value = rs.Fields("Marka").Value
rs2.Fields("Model").Value = rs.Fields("Model").Value
rs2.Fields("IrsNo").Value = Me.IrsNo
rs2.Fields("IrsTrh").Value = Me.IrsTrh
rs2.Fields("StokYeri").Value = Me.StokYeri
rs2.Fields("Musteri").Value = Me.Musteri
rs2.Update
rs.MoveNext
Next cntr
rs2.Close
Set rs2 = Nothing
rs.Close
Set rs = Nothing