منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

شفت الجملة اللي قلت ضيفها؟
فوق منها اكتب هذي الكلمتين
if rs.state then rs.close
جرب وهات علم

الامر الاخر ابي اعمل تنسيق الحدود وسطر البرمجي هذا مازبط

xlSheet.Range("a5:AB" & rs.RecordCount + 5).Borders.Weight = xlThin

مهمتي معك تشطيب
والدهانات والديكورات عليك
:-)

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

زبطت 100%

وفيه رد لي سابق اطلب في تنسيقات ولا اشتغلت معي الا وهي تنسيق الحدود وهل الامر البرمجي صحيح

xlSheet.Range("a5:AB" & rs.RecordCount + 5).Borders.Weight = xlThin

ربما يفيدك احد المهتمين بالاكسل اذعرني على القصور
عندما يطلب العميل مني استخدام الاكسل اعمد لادوات تسهل علي
التنسيق فيه.
مثل الاكتيف ريبورت .

الله يبيض وجهك وماتقصر جعل عمرك طويل