خلل بالتصدير الى اكسل في احد الجداول

[صالح حمادي]

في ١٧‏/١‏/٢٠١٩ at 09:05, زياد الحسناوي said:

لو اردت تغيير اسماء الحقول كذكك ؟ 

كنت أضفت الرد هنا منذ يومين لكن الظاهر أنه لم يصل بسبب ضعف النت

تستطيع استعمال نفس الطريقة السابقة

إضافة جدول به ثلاثة حقول (اسم الحقل . اسمه بالعربية . الجدول)

و تستعمل الفلترة من أجل ظهور حقول الجدول المختار فقط.

في ١٧‏/١‏/٢٠١٩ at 13:55, خالد سيسكو said:

الجدول يظهر من اليسار الى اليمين  وليس كما طلبت ؟؟

تفضل طلبك هنا و المسار موجود بالعبارة أدناه تستطيع تغييرها كما تشاء

curPath = "e:\salah88.xls"

كما لا تنسوا الضغط على زر الإعجاب للإجابات الصحيحة

final.rar

[Khalid Jnb]

السلام عليكم 

استاذي العزيز شكرا لك

هل ممكن كود حفظ الملف على سطح المكتب   

تم تعديل يناير 19, 2019 بواسطه خالد سيسكو

[صالح حمادي]

8 ساعات مضت, خالد سيسكو said:

هل ممكن كود حفظ الملف على سطح المكتب

تفضل غير هذا السطر:

curPath = "e:\salah88.xls"

بهذين السطر:

     DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
     curPath = DTPath & "\salah- " & Format(Date, "mm-dd-yyyy") & ".xls"

 

[Khalid Jnb]

شكرا استاذ صالح 

بقى لدي طلبين رجاءا  وهما مهمين جدا لي بعملي ؟ ارجوا مساعدتك 

1- هل ممكن حفظ الملف بصيغة .xlsx بعد استخراجه من قاعدة البيانات لاني استخدم اكسيس  2010 ؟

2- هل يمكن حجب بعض الحقول من الظهر بالبوكس  هلى اعتبار فيها معلومات مهمه لانريد استخراجها بالاكسيل ؟

كما في الصورة  المرفقة

وشكرا لك وبارك الله فيك اخي الكريم

تم تعديل يناير 20, 2019 بواسطه خالد سيسكو

[زياد الحسناوي]

في ١٩‏/١‏/٢٠١٩ at 12:46, صالح حمادي said:

كنت أضفت الرد هنا منذ يومين لكن الظاهر أنه لم يصل بسبب ضعف النت

تستطيع استعمال نفس الطريقة السابقة

إضافة جدول به ثلاثة حقول (اسم الحقل . اسمه بالعربية . الجدول)

و تستعمل الفلترة من أجل ظهور حقول الجدول المختار فقط.

تفضل طلبك هنا و المسار موجود بالعبارة أدناه تستطيع تغييرها كما تشاء

curPath = "e:\salah88.xls"

كما لا تنسوا الضغط على زر الإعجاب للإجابات الصحيحة

final.rar

@صالح حمادي

تم تعديل ع الملف ولكن واجهتني مشاكل بالفلترة 

 

اكسل.rar

[Khalid Jnb]

شكرا استاذ صالح 

بقى لدي طلبين رجاءا  وهما مهمين جدا لي بعملي ؟ ارجوا مساعدتك 

1- هل ممكن حفظ الملف بصيغة .xlsx لاني استخدم اكسيس  2010 ؟

2- هل يمكن حجب بعض الحقول من الظهر بالبوكس  هلى اعتبار فيها معلومات مهمه لانريد استخراجها بالاكسيل ؟

كما في الصورة  المرفقة

وشكرا لك وبارك الله فيك اخي الكريم

final.rar

[زياد الحسناوي]

في ٢٠‏/١‏/٢٠١٩ at 21:26, زياد الحسناوي said:

@صالح حمادي

تم تعديل ع الملف ولكن واجهتني مشاكل بالفلترة 

 

اكسل.rar

@صالح حمادي

 

[ابو ياسين المشولي]

في ٢٠‏/١‏/٢٠١٩ at 19:40, خالد سيسكو said:

شكرا استاذ صالح 

بقى لدي طلبين رجاءا  وهما مهمين جدا لي بعملي ؟ ارجوا مساعدتك 

1- هل ممكن حفظ الملف بصيغة .xlsx بعد استخراجه من قاعدة البيانات لاني استخدم اكسيس  2010 ؟

2- هل يمكن حجب بعض الحقول من الظهر بالبوكس  هلى اعتبار فيها معلومات مهمه لانريد استخراجها بالاكسيل ؟

كما في الصورة  المرفقة

وشكرا لك وبارك الله فيك اخي الكريم

اتفضل هذا بصيغه xlsx

final.accdb

[ابو ياسين المشولي]

وهذا مثال للشرط الثاني

    If Not IsNull(Me.ChooseTble) = True Then
 If Me.ChooseTble = "tb1" Then
 Me.Box.RowSource = "Table/Query"
Me.Box.RowSource = "SELECT tb1.[ÇÓã ÇáãæÙÞ], tb1.[ÇáÚäæÇä ÇáæÙíÝí]" & _
"FROM tb1;"
        Box.Requery
    End If
    End If

 

final.rar

[ابو ياسين المشولي]

 خالد سيسكو

من الاحترام والاصول الرد على من يرد بطلبك

لا نريد منك شي بس من الاحترام انه كما طلبت من هذا الموقع المساعده

فيتوجب عليك الرد سوى كان الاجاب صحيحه ام خاطئه

[زياد الحسناوي]

19 ساعات مضت, ابو ياسين المشولي said:

اتفضل هذا بصيغه xlsx

final.accdb

@ابو ياسين المشولي

عاشت ايدك 

[Khalid Jnb]

السلام عليكم استاذنا العزيز

شكرا لك  ولهذا الموقع الرائع وبارك الله فيك 

انا حملت الملف  والجزء الاول الخاص xlsx يعمل بصورة صحيحه

والطلب الثاني  الخاص بحجب بعض حقول الجدول من الظهور بالنموذج  لااعرف كيف يعمل

ارجوا  مساعدتك ووضع الكود بالملف  final 

وشكرا لك استاذ مرة اخرى

تم تعديل يناير 23, 2019 بواسطه خالد سيسكو

[زياد الحسناوي]

في ٢٠‏/١‏/٢٠١٩ at 21:26, زياد الحسناوي said:

@صالح حمادي

تم تعديل ع الملف ولكن واجهتني مشاكل بالفلترة 

 

اكسل.rar

@صالح حمادي

 

لرفع