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

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

السلام عليكم 

اساتذتي الافاضل 

الملف المرفق 

يحتوي على فورم لتصدير الجداول على الاكسس

 

المشكلة انه يصدر من اي جدول 

ما عدا الجدول 01_PoliceMan

111.rar

[صالح حمادي]

السلام عليكم

أولا: طلب ضغير أخي الكريم يا حبذا لو تضع اسم واضح و معبر لصفحتك الشخصية فأنت عضو مميز بالمنتدى

ثانيا: لدي خطأ في كتابة اسم الجدول لو تطلع على المرفق سوف تجد اسم الجدول يبدأ برقم 01 و هذا خطأ في قواعدالبيانات

أعد كتابة اسم الجدول وضع الأرقام في الأخير أو احذفها سوف تجد البرنامج يعمل جيدا

بالتوفيق أخي الكريم

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

5 ساعات مضت, صالح حمادي said:

السلام عليكم

أولا: طلب ضغير أخي الكريم يا حبذا لو تضع اسم واضح و معبر لصفحتك الشخصية فأنت عضو مميز بالمنتدى

ثانيا: لدي خطأ في كتابة اسم الجدول لو تطلع على المرفق سوف تجد اسم الجدول يبدأ برقم 01 و هذا خطأ في قواعدالبيانات

أعد كتابة اسم الجدول وضع الأرقام في الأخير أو احذفها سوف تجد البرنامج يعمل جيدا

بالتوفيق أخي الكريم

@صالح حماديتمام استاذ سيتم تغيير الاسم ولا يهمك 

 

2 تم تغيير الاسم و تمت العملية بنجاح

 

3 في مشكلة اخرى واجهتني عند تصدير البيانات من اكثر من جدول 📊 كما في المرافق اعلاه تيبل1 و2 

فعند اختيار اكثر من جدول 📊 و حقل وعند التصدير يطلب القيمة الافتراضية للحقول

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

@صالح حمادي

صور مرفقة تبين المشكلة

الحقول expr من 1الى 4 

تم اختيارها من الجدول الي هي التسلسل و الصنف والرتبة و الاسم

والجدول الثاني الاجازات وانواعها 

ظهرت الاجازات 

ولم تظهر حقول الجدول الاول بالرغم من وجود علاقة  بين الجدولين 

تم تعديل يناير 10, 2019 بواسطه زياد الحسناوي

[صالح حمادي]

16 ساعات مضت, زياد الحسناوي said:

2 تم تغيير الاسم و تمت العملية بنجاح

جيد اسمك جميل

هكذا نستطيع مناداتك باسمك أخي زياد

تفضل إطلع على هذا التعديل و وافني بالنتيجة:

 

111.rar

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

7 ساعات مضت, صالح حمادي said:

جيد اسمك جميل

هكذا نستطيع مناداتك باسمك أخي زياد

تفضل إطلع على هذا التعديل و وافني بالنتيجة:

 

111.rar

عاشت ايدك استاذ @صالح حمادي

فعلا هو المطلوب 

 

ولكن عند النقل ع برنامج اخر لا يعمل 

فهل هناك تغيير بالكود يجب تغييره

بحثت بالكود ولم اجد شي 

يتم التصدير فقط من جدول واحد 

اذا تم اضافة جدول اخر لا يتم التصدير

تم تعديل يناير 11, 2019 بواسطه زياد الحسناوي

[صالح حمادي]

15 ساعات مضت, زياد الحسناوي said:

فهل هناك تغيير بالكود يجب تغييره

نعم هناك بعض الإضافات يجب التعديل عليها.

أولا: عند ربط جدولين في الاستعلام يجب استخدام INNER JOIN.

ثانيا: هناك أحد جداول النظام اسمه MSysRelationships يخزن العلاقات بين الجداول و حقول ربطها نستطيع من خلاله معرفة الحقول الربط بين الجداول.

ثالثا: لقد قمت بإضافت مربعي نص t1 و t2 لحفظ أسماء الجداول المستعملة في الاستعلام.

أما الكود فقد قمت بالتعديل على كائنين فقط.

الكائن الأول: هو مربع التحرير و السرد الخاص بإضافة الحقول و هذا هو الكود المضاف :

If IsNull(Me.tb1) Then
   Me.tb1 = Me.ChooseTble
ElseIf Me.tb1 <> Me.ChooseTble Then
   Me.tb2 = Me.ChooseTble
End If

الكائن الثاني: هو زر إنهاء التحديد و هذا هو الكود بعد الإضافة و التعديل:

On Error Resume Next
Dim x As Integer
Dim xstr As String
Dim CountStrTbl As Integer
    
If Not IsNull(Me.tb1) And Not IsNull(Me.tb2) Then
   x = 2
   If DCount("*", "MSysRelationships", "szRelationship='" & Me.tb1 & Me.tb2 & "'") > 0 Then
      xstr = Me.tb1 & Me.tb2
   Else
      xstr = Me.tb2 & Me.tb1
   End If
End If


    CountStrTbl = Len(Me.ChooseTble)
    Me.ExportTo.Enabled = True
    If Left(Me.TxtForQuery, CountStrTbl) = Me.ChooseTble Then Exit Sub
    If x = 2 Then
       Me.TxtForQuery = Me.TxtForQuery & " From " & Me.tb1 & " INNER JOIN " & Me.tb2 & " ON " & DLookup("szObject", "MSysRelationships", "szRelationship='" & xstr & "'") & "." & DLookup("szColumn", "MSysRelationships", "szRelationship='" & xstr & "'") & " = " & DLookup("szReferencedObject", "MSysRelationships", "szRelationship='" & xstr & "'") & "." & DLookup("szReferencedColumn", "MSysRelationships", "szRelationship='" & xstr & "'") & ";"
    Else
       Me.TxtForQuery = Me.TxtForQuery & " From " & Me.ChooseTble
    End If
    
    Me.EndForQuery.Enabled = False

 

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

@صالح حمادي

تمام استاذ وانتبهت ع التغيير الي صار بالكود بالحالتين

ولكن عند نقل الفورم لبرنامج اخر لا يعمل 

[صالح حمادي]

22 ساعات مضت, زياد الحسناوي said:

ولكن عند نقل الفورم لبرنامج اخر لا يعمل

تفضل أخي لقد قمت بنقل الكود لملف جديد و هو يعمل جيدا

إطلع عليه و إن لم تعمل أرفق الجزء الذي به المشكلة و سوف نحلها بإذن الله

22.rar

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

21 ساعات مضت, صالح حمادي said:

تفضل أخي لقد قمت بنقل الكود لملف جديد و هو يعمل جيدا

إطلع عليه و إن لم تعمل أرفق الجزء الذي به المشكلة و سوف نحلها بإذن الله

22.rar

@صالح حمادي

تفضل الملف مرفق 

zeyad.rar

[صالح حمادي]

1 ساعه مضت, زياد الحسناوي said:

تفضل الملف مرفق

جيد بعد تفحص المرفق وجدت أن جدول النظام الخاص بالعلاقات مازال محتفظا بالأسماء الأولى للجداول قبل التعديل على اسمها

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

و هذا هو المرفق به الحل إن شاء الله.

 

zeyad.rar

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

35 دقائق مضت, صالح حمادي said:

جيد بعد تفحص المرفق وجدت أن جدول النظام الخاص بالعلاقات مازال محتفظا بالأسماء الأولى للجداول قبل التعديل على اسمها

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

و هذا هو المرفق به الحل إن شاء الله.

 

zeyad.rar

عاشت ايدك استاذ 

@صالح حمادي

تعبتك جدا 

حاليا الغي جميع العلاقات واعيدها من جديد (هل يضر  ع البيانات المدخلة )

و استفسار اخير  لو اردت ان يتم الربط باكثر من جدول ولنفرض جدول الابناء الجدول الثالث بالمرفق اعلاه 

اضيف حقل tb3 و اعيد صياغة اكواد tb2 عليه ؟؟ 

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

39 دقائق مضت, صالح حمادي said:

جيد بعد تفحص المرفق وجدت أن جدول النظام الخاص بالعلاقات مازال محتفظا بالأسماء الأولى للجداول قبل التعديل على اسمها

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

و هذا هو المرفق به الحل إن شاء الله.

 

zeyad.rar

عاشت ايدك استاذ 

@صالح حمادي

تعبتك جدا 

حاليا الغي جميع العلاقات واعيدها من جديد (هل يضر  ع البيانات المدخلة )

و استفسار اخير  لو اردت ان يتم الربط باكثر من جدول ولنفرض جدول الابناء الجدول الثالث بالمرفق اعلاه 

اضيف حقل tb3 و اعيد صياغة اكواد tb2 عليه ؟؟ 

عدلت ع الكود حسب ما فهمت من خلال صباغته باضافة حقل للجدول الثالث ولكن لم يعمل 

zeyad.rar

[صالح حمادي]

السلام عليكم

أولا: معذرة على الإطالة كنت مشغولا جدا و لم أدخل على الموقع يوم أمس

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

1- عندما تريد معرفة طريقة كتابة استعلام مركب من جدولين أو أكثر أو حتى جدول وحيد قم بإنشاء هذا الاستعلام و اتبع الخطوات الموجودة بالصور أدناه

و هذا هو المرفق بعد التعديل جربه و وافني بالنتيجة

 

zeyad.rar

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

9 ساعات مضت, صالح حمادي said:

السلام عليكم

أولا: معذرة على الإطالة كنت مشغولا جدا و لم أدخل على الموقع يوم أمس

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

1- عندما تريد معرفة طريقة كتابة استعلام مركب من جدولين أو أكثر أو حتى جدول وحيد قم بإنشاء هذا الاستعلام و اتبع الخطوات الموجودة بالصور أدناه

و هذا هو المرفق بعد التعديل جربه و وافني بالنتيجة

 

zeyad.rar

@صالح حمادي

1. استاذي الفاضل لا تعتذر فلكل واحد منا مشاغله الله يقويك 

 

2. جدا ممنون ع التعديل اكثر من رائع عاشت ايدك وهو المطلوب 

 

3. لو اردت الغاء جدول من الظهور ؟ كيف يتم ذلك . 

4. بحثت عن تغيير اسماء الجداول الى العربية ووجدت الكود التالي

-- كود تغيير اسماء الحقول
DoCmd.Rename "الاصناف", acTable, "colors"
وفي حدث عند الاغلاق
DoCmd.Rename "colors", acTable, "الاصناف"

فهل توجد طريقة اخرى لان بهالحالة يجب اعادة  كتابته اكثر من 12 مرة

[صالح حمادي]

6 ساعات مضت, زياد الحسناوي said:

-- كود تغيير اسماء الحقول
DoCmd.Rename "الاصناف", acTable, "colors"

هذا الكود يقوم بتغيير اسم الجدول و ليس اسم الحقل

6 ساعات مضت, زياد الحسناوي said:

بحثت عن تغيير اسماء الجداول الى العربية

لماذا تريد تغيير اسماء هذه الجداول للعربية

6 ساعات مضت, زياد الحسناوي said:

فهل توجد طريقة اخرى لان بهالحالة يجب اعادة  كتابته اكثر من 12 مرة

لماذا تكررها أكثر من 12 مرة

6 ساعات مضت, زياد الحسناوي said:

3. لو اردت الغاء جدول من الظهور ؟ كيف يتم ذلك .

لقد أجبت عن هذا السؤال في هذه المشاركة:

 

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

5 ساعات مضت, صالح حمادي said:

هذا الكود يقوم بتغيير اسم الجدول و ليس اسم الحقل

لماذا تريد تغيير اسماء هذه الجداول للعربية

لماذا تكررها أكثر من 12 مرة

لقد أجبت عن هذا السؤال في هذه المشاركة:

 

استاذ @صالح حمادي

 

1.اسف اقصد تغيير،اسماء الجداول واريد تغيير اسماء الجداول او الاعتماد على ال Caption

الغرض منه عند اختيار اسم جدول من قبل المستخدم يكون لديه علم بماهية الجدول

 

2.اكررها 12 مرة لان لدي 12 جدول 

 

3.لم اجد مصدر الاستعلام والجدول الخاص به (msysobjects)لكي الغي الجداول التي لا تظهر 

 

 

تم تعديل يناير 16, 2019 بواسطه زياد الحسناوي

[صالح حمادي]

3 ساعات مضت, زياد الحسناوي said:

3.لم اجد مصدر الاستعلام والجدول الخاص به (msysobjects)لكي الغي الجداول التي لا تظهر  

هذا يعني أنك لم تقرأ المشاركة جيدا.

19 ساعات مضت, صالح حمادي said:

1- افتح النموذج في وضع التصميم 

2- ثم أدخل على مصدر الصف لمربع تحرير و سرد أسماء الجداول. 

3- تظهر لك النافذة التالية: 

4- أكتب العابارة التالية: <>"password" في المعايير تحت الحقل name

تجده في مصدر الصف لمربع التحرير و السرد الخاص بأسماء الجداول.

[Khalid Jnb]

سؤال الى الاخوه الاعزاء

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

مع القدير

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

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

59 دقائق مضت, صالح حمادي said:

هذا يعني أنك لم تقرأ المشاركة جيدا.

تجده في مصدر الصف لمربع التحرير و السرد الخاص بأسماء الجداول.

@صالح حمادي

ممنون جدا استاذ و اعتذر ع ازعاجك 

تم العمل بنجاح

ربي يقويك ويعطيك من علمه

تم تعديل يناير 16, 2019 بواسطه زياد الحسناوي

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

9 دقائق مضت, خالد سيسكو said:

سؤال الى الاخوه الاعزاء

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

مع القدير

لم اقم بالتجربة لان اساس الاوفيس لدي انكليزي واستخدمه من اليسار الى اليمين

عموما يمكنك التغيير من اعدادت صفحة الاكسل بعد التصدير 

[صالح حمادي]

8 ساعات مضت, زياد الحسناوي said:

.اسف اقصد تغيير،اسماء الجداول واريد تغيير اسماء الجداول او الاعتماد على ال Caption

الغرض منه عند اختيار اسم جدول من قبل المستخدم يكون لديه علم بماهية الجدول

 

2.اكررها 12 مرة لان لدي 12 جدول 

نسيت أمر هذا السؤال

ليس عليك تغيير اسم الجدول ليظهر أمام المستخدم بالعربية.

إطلع على المرفق و وافني بالنتيجة الآن

 

zeyad.rar

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

10 ساعات مضت, صالح حمادي said:

نسيت أمر هذا السؤال

ليس عليك تغيير اسم الجدول ليظهر أمام المستخدم بالعربية.

إطلع على المرفق و وافني بالنتيجة الآن

 

zeyad.rar

@صالح حمادي

عاشت ايدك استاذ دومك مبدع 

 

- ملاحظة

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

 

تم تعديل يناير 17, 2019 بواسطه زياد الحسناوي

[Khalid Jnb]

استاذي العزيز

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

وهل يمكن تغيير امتداد الملف الى xlsx عند الحفظ  لاني استخدم اوفيس 2010 وتحديد مسار الحفظ  ب D , E  

final.rar

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

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

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

@صالح حمادي

عاشت ايدك استاذ دومك مبدع 

 

- ملاحظة

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

 

@صالح حمادي