تفضل <><><><><><><>
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("G2")
For i = 1 To Forms![f1]![xno]
rst.AddNew
rst!empid = Forms![f1]![empid]
rst!xdate = DateAdd("m", i, Forms![f1]![xdate])
rst!acount = Round(Forms![f1]![acount] / Forms![f1]![xno], 2)
rst.Update
Next
rst.Close: Set rst = Nothing
DoCmd.Requery