عند معالجة للبيانات تصبح الشاشة مثل الفلاش

جرب التالي :

قبل عملية الإلحاق :

Me.Painting = False

وبعد الإلحاق :

Me.Painting = True

ولك تحياتي

جزاك الله خير .في المرحلة المتوسطة قال لنا مدرس اللغه الانجليزية نصف الاجابة تجدونها في السؤال.

المشكلة لاتكمن في الالحاق بل في الاضافة انا اقوم بعمل اضافة لجدول بهذه الطريقة:

do until rs.recordcount =100

rs.addnew

rs!nm=" "

rs.update

loop

(الكود تقريبي)

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

نسيت اقولك جربت الكود ومانفع وما هو عمله.

غريبه عليك يابو حمود وينك .

ابشرك انحلت كنت اقوم بتغيير مصدر البيانات بالفورم ثم اقوم بعملية الاضافة.

الحل :

dim rs as recordset

dom db as database

set db=currentdb()

set rs=db.openrecprdset("tb1")

do until rs.recordcount=100

rs.addnew

rs!nm=""

rs.update

loop