[ تمت الإجابة ]تنفيذ كود او مجموعه اكواد على مجموعه من السجلات دفعه واحده

عليكم السلام ورحمة الله

لنفرض أن لدينا جدول اسمه TAB به الحقول التالية

ID نوع ترقيم تلقائي

NAME نوعه نص

NAME2 نوعه نص

ونريد تحديثه دفعة واحدة لعدد 500 سجل بالمعطيات التالية

كلمة ahamied في الحقل NAME

و كلمة EKSEER في الحقل NAME2

وذلك بحلقة تكرار فأنه يلزمنا الكود التالي

Dim X As Integer
SetOption "Confirm Action Queries", False
For X = X To 500
DoCmd.RunSQL ("INSERT INTO TAB (NAME, NAME2 )SELECT 'ahamied', 'EKSEER';")
BRBar.Value = X
Next X

تلاحظ أن هذا الامر سيضيف لك 500 سجل دفعة واحدة ( ارفقت لك مثال على الالحاق والحذف )

ومعه بروغرس بار هدية .. المثال مرفق .. وهذه صورة الفورم

أخوك : اكسيرالحياة

EK_INSERT.rar

السلام عليكم ورحمه الله

اخى اكسير ردودك تعلمت منها الكثير فشكرا جزيلاً لك

واحب ان تعطينى مثال اطبق فيه دالة IF then elseif على مجموعه من السجلات دفعه واحده وينفس الحلقة التكراريه

وارجو الا اكون اكثرت عليك

اقتباس

واحب ان تعطينى مثال اطبق فيه دالة IF then elseif على مجموعه من السجلات دفعه واحده وينفس الحلقة التكراريه

أخي شوقي :

يجب أن يكون سؤالك هذا في مشاركة مستقلة .. لإن قوانين المنتدى تمنع

اجابة سؤالين مختلفين بمشاركة واحدة .. لك التقدير

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة