بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه ،،
برجاء التعديل على كود النسخ ليتم نسخ الداتا فقط مرفق اكسل للتوضيح
شكراً لكل من يسعى لنشر العلم
اريد كود لنسخ بيانات من جدول دون رؤوس الاعمدة(الحقول)
بســم الله الـرحمــن الرحيــم
شكراً لكل من حاول مساعدتى وقراء الموضوع
ولكن انا حتى الان لم اجد اجابة
اذا كان هناك من يعرف انه غير متاح ما اريده فليكون مشكور اذا اخبرنى
جاري البحث عن كود مناسب
للاسف كل الاكواد تضيف رؤوس الاعمدة
جرب عمل كود في اكسل نفسه يقوم باخفاء السطر الاول عند فتح الملف..
تحياتي
تحديث.. الكود استخدمه لاخفاء صف معين بكامله..
Rows(i).EntireRow.Hidden = True
حيث i هي رقم الصف وتبدا في الاكسل من 1
طبعا هذا الكود بامكانك استخدامه في اكسل
لكن حاليا اقوم بالتجريب لاستخدامه مباشرة من اكسس..
تحياتي
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 8 أغسطس 2009 في 15:12
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
همام ابوعرقوب كتب:جرب عمل كود في اكسل نفسه يقوم باخفاء السطر الاول عند فتح الملف..تحياتي
تحديث.. الكود استخدمه لاخفاء صف معين بكامله..
Rows(i).EntireRow.Hidden = Trueحيث i هي رقم الصف وتبدا في الاكسل من 1
طبعا هذا الكود بامكانك استخدامه في اكسل
لكن حاليا اقوم بالتجريب لاستخدامه مباشرة من اكسس..
تحياتي
مشكور اخى همام على الاهتمام
AS400 ولكن انا سوف اقوم بعمل النسخ الى برنامج اخر غير الاكسلٍِ
انا اتخذت الاكسل كمثال
طيب لماذا لا تخبرنا عن البرنامج الذي تريد النسخ اليه ؟؟؟
حيث يختلف الكود قليلا بين برنامج و اخر / بامكاننا استخدام الدالة transfertext اذا كان المطلوب نص او على شكل نص
؟؟
منتظر ردك
الأفضل استخدام هذا الكود "تاكد قبل ذلك من حذفاي ملفات اكسل سابقة"
هذا المثال لتصدير لملف اكسل بدون رؤوس اعمدة، بدون كود اضافي، وهي موجودة في اكسس ...
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "test", CurrentProject.Path & "\text.xls", False
في Help للاكسس ستجد الكثير من المعلومات والشرح عنها..
تحياتي
جربتها شخصيا وانتجت المطلوب..
بخصوص برامج اخرى استخدم الدالة transfertext ولكن كن حذرا واقرا التعليمات حولها جيدا
تحياتي وشكرا للاخ tbazh
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 9 أغسطس 2009 في 00:41
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
tbazh كتب:طيب لماذا لا تخبرنا عن البرنامج الذي تريد النسخ اليه ؟؟؟حيث يختلف الكود قليلا بين برنامج و اخر / بامكاننا استخدام الدالة transfertext اذا كان المطلوب نص او على شكل نص
؟؟
منتظر ردك
شكراً لك اخي الكريم على الاهتمام
ولكن انا قلت لكم اسم النظام الاخر هو
AS400
Data base DB2
انا اريد اعمل برنامج اكسس صغير يساعد المستخدم على ادخال الداتا الى النظام
لكم جزيل الشكر
طيب هل الاكواد والتوجيهات السابقة حلت المشكلة؟
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ