مشکل در پر شدن خودکار فیلدهای جدول

[z_amiri]

سلام اساتید
تا حالا چند تاپیک با همین عنوان ایجاد کردم ولی هیچ جوابی نگرفتم!!
چه دستوری به کد زیر اضافه کنم تا خروجی مشابه آنچه نوشتم به دست بیاد؟
__________________________________________________ _____________
کد:
Set rst = CurrentDB.OpenRecordset("select * from [table name]")
For i = 1 To 4 Step 1
rst.AddNew
rst.Fields(0) = 123
rst.Fields(1) = abc
rst.Fields(2) = i
"add an empty record"
Next i
rst.Update
rst.Close
__________________________________________________ ______________
خروجی:
field0 field1 field2
123 abc 1
123 abc 2
123 abc 3
123 abc 4
__________________________________________________ ______________
در واقع یک دستور با معنی add an empty record نیاز هست!!

[dadsara]

سلام
کدهای خود را به این شکل تغییر دهید

Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("table1")
For i = 1 To 4
rst.AddNew
rst.Fields(0) = 123
rst.Fields(1) = abc
rst.Fields(2) = i
rst.Update
Next i
rst.Close
MsgBox "عمليات مورد نظر انجام شد"

باید قبل از اینکه حلقه تکرار شود Update کنید

[z_amiri]

سلام ممنون از راهنماییتون. البته اینم اضافه کنم که خاصیت ایندکس فیلدهایی که تکرار میشن باید duplicate(yes) باشه، در نتیجه نباید این فیلدها کلید باشن. که من این مساله رو رعایت نمیکردم