الاخوة الكرام
لدي فى ريكورد سيت حقول 1 2 3 4
اريد اوفر فى الكود و استخدم جملة for لتفريغ هذه الحقول و لم تزبط معى
هذا الكود
عدد الحقول يصل الى 100 حقل
ارجو ممن لديه اي مساعدة يتفضل علينا بها مشكورا
for i=1 to 4
rst!=""
next i
لم يزبط ؟؟؟
الاخوة الكرام
لدي فى ريكورد سيت حقول 1 2 3 4
اريد اوفر فى الكود و استخدم جملة for لتفريغ هذه الحقول و لم تزبط معى
هذا الكود
عدد الحقول يصل الى 100 حقل
ارجو ممن لديه اي مساعدة يتفضل علينا بها مشكورا
for i=1 to 4
rst!=""
next i
لم يزبط ؟؟؟
تم تعديل هذه المشاركة بواسطة tbazh في 24 ديسمبر 2014 في 17:28
rst.edit
for i=1 to 4
rst!=""
next I
rst.update
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
اخى الفاضل
مشكور جدا على سرعة الرد
لكن الكود لم يزبط
نفس الرسالة السابقة
رقم الخطأ 3265
لم يتم العثور على العنصر فى هذه المجموعة
هل هناك من حل آخر ؟؟؟
ارفق المرفق
او الكود كامل
قد يكون انك لم تفتح الريكورد ست rst
فمثلا
set rst=currentdb.openrecordset("student")
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
لا انا كنت فاتح الريكورد سيت ، و كنت عندما اضع مكان المتغير رقم يزبط
بارك الله فيك اخى الكريم زبط معي بعد عناء طويل
باستخدام العبارة Rst.Fields(J).Value
لكن عيب هذه العبارة انها تأخذ رقم الحقل فى الجدول او الريكوردسيت و لا تتعامل باسمه الفعلى
بمعنى اذا كانت j تساوي 6 مثلا فان الحقل المقصود هنا هو الحقل السابع فى الريكوردسيت بغض النظر عن اسم الحقل الفعلى / لاحظ ان الحقل الاول رقمه 0
شكرا لكل من ساهم
rst.Edit
For i = 1 To 4
rst(CStr(i)) = ""
Next i
rst.Update
تم تعديل هذه المشاركة بواسطة ramhan في 24 ديسمبر 2014 في 22:54
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
برضه نفس رسالة الخطأ
rst(CStr(i)) = ""
لم يتم العثور على العنصر فى هذه المجموعة
اخي العزيز
تمت تجربته بنجاح .
انظر المرفق
كما يمكن استبدال عدد الاعمدة ب
rst.fields.count
بالتوفيق
تم تعديل هذه المشاركة بواسطة ramhan في 25 ديسمبر 2014 في 19:53
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
بارك الله فيك اخى الفاضل زبطتت 100/100
+1