ماهي طريقة إضافة عدد 50 سجل دفعة واحده

تفضل أخي الكريم فيصل الحربي هذا كود بنفس الفكرة تقريبا وقد عدلت عليه ليتوافق مع طلبك (تعديل نظري) ارجو الإطلاع عليه وتجربته .. وارجو المعذرة إن وجد في هذا الكود أي خطأ لاني لم اقم بتجربته

مع خالص تحياتي ،،

لنفترض ان لديك الاتي :

جدول بإسم Table1

وبه الحقول التالية

EmploweeNumber

EmploweeName

===========================

نموذج بإسم fomr1

وبه الحقول التالية

حقل بإسم txtNumber

حقل بإسم txtName

Set db = CurrentDb()
Set rst = db.OpenRecordset("Table1")
counter = 0
Do While counter < Me.txtNumber 
counter = counter + 1
 With rst
 .AddNew
   rst!EmploweeNumber= Me.txtNumber
   rst!EmploweeName= Me.EmploweeName
 .Update
 End With
Loop
MsgBox "تم بنجاح تسجيل بيانات العدد المطلوب " , vbYes + vbQuestion + vbMsgBoxRight, "إضافة"