المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
شفت الجملة اللي قلت ضيفها؟
فوق منها اكتب هذي الكلمتين
if rs.state then rs.close
جرب وهات علم
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 20
المواضيع 4
الإنتساب : Jan 2015
السمعة :
0
الشكر: 62
تم شكره 122 مرات في 6 مشاركات
الامر الاخر ابي اعمل تنسيق الحدود وسطر البرمجي هذا مازبط
xlSheet.Range("a5:AB" & rs.RecordCount + 5).Borders.Weight = xlThin
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
مهمتي معك تشطيب
والدهانات والديكورات عليك
:-)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 20
المواضيع 4
الإنتساب : Jan 2015
السمعة :
0
الشكر: 62
تم شكره 122 مرات في 6 مشاركات
جعل والديك بالجنه ويرزقك يارب وكل من ساعدني في هالموضوع
زبطت 100%
وفيه رد لي سابق اطلب في تنسيقات ولا اشتغلت معي الا وهي تنسيق الحدود وهل الامر البرمجي صحيح
xlSheet.Range("a5:AB" & rs.RecordCount + 5).Borders.Weight = xlThin
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
ربما يفيدك احد المهتمين بالاكسل اذعرني على القصور
عندما يطلب العميل مني استخدام الاكسل اعمد لادوات تسهل علي
التنسيق فيه.
مثل الاكتيف ريبورت .
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 20
المواضيع 4
الإنتساب : Jan 2015
السمعة :
0
الشكر: 62
تم شكره 122 مرات في 6 مشاركات
الله يبيض وجهك وماتقصر جعل عمرك طويل