اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

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

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

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

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

  • Thanks 1
قام بنشر
5 ساعات مضت, صالح حمادي said:

السلام عليكم

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

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

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

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

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

 

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

 

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

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

  • Like 1
قام بنشر (معدل)

@صالح حمادي

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

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

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

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

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

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

15471333801033520799825171904325.jpg

تم تعديل بواسطه زياد الحسناوي
قام بنشر
16 ساعات مضت, زياد الحسناوي said:

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

جيد اسمك جميل

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

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

 

111.rar

  • Thanks 1
قام بنشر (معدل)
7 ساعات مضت, صالح حمادي said:

جيد اسمك جميل

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

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

 

111.rar

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

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

 

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

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

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

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

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

تم تعديل بواسطه زياد الحسناوي
قام بنشر
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

 

  • Thanks 1
قام بنشر
22 ساعات مضت, زياد الحسناوي said:

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

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

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

22.rar

قام بنشر
21 ساعات مضت, صالح حمادي said:

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

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

22.rar

@صالح حمادي

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

zeyad.rar

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

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

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

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

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

 

zeyad.rar

  • Like 1
  • Thanks 1
قام بنشر
35 دقائق مضت, صالح حمادي said:

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

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

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

 

zeyad.rar

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

@صالح حمادي

تعبتك جدا 

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

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

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

قام بنشر
39 دقائق مضت, صالح حمادي said:

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

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

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

 

zeyad.rar

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

@صالح حمادي

تعبتك جدا 

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

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

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

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

zeyad.rar

قام بنشر

السلام عليكم

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

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

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

1.jpg.ce8e31694430e20d6edf0900d2ec759a.jpg2.jpg.3a2c9bf69751f032d05dfcc8793e5a22.jpg

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

 

zeyad.rar

  • Thanks 1
قام بنشر
9 ساعات مضت, صالح حمادي said:

السلام عليكم

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

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

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

1.jpg.ce8e31694430e20d6edf0900d2ec759a.jpg2.jpg.3a2c9bf69751f032d05dfcc8793e5a22.jpg

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

 

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. لو اردت الغاء جدول من الظهور ؟ كيف يتم ذلك .

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

 

  • Thanks 1
قام بنشر (معدل)
5 ساعات مضت, صالح حمادي said:

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

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

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

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

 

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

 

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

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

 

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

 

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

 

 

4.jpg.0c7a74265e226fa2894de118d8c59691.jpg

تم تعديل بواسطه زياد الحسناوي
قام بنشر
3 ساعات مضت, زياد الحسناوي said:

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

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

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

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

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

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

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

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

قام بنشر (معدل)

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

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

مع القدير

تم تعديل بواسطه خالد سيسكو
  • Thanks 1
قام بنشر (معدل)
59 دقائق مضت, صالح حمادي said:

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

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

@صالح حمادي

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

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

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

تم تعديل بواسطه زياد الحسناوي
قام بنشر
9 دقائق مضت, خالد سيسكو said:

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

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

مع القدير

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

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

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

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

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

 

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

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

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

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

 

zeyad.rar

  • Thanks 1
قام بنشر (معدل)
10 ساعات مضت, صالح حمادي said:

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

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

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

 

zeyad.rar

@صالح حمادي

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

 

- ملاحظة

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

 

تم تعديل بواسطه زياد الحسناوي
قام بنشر (معدل)

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

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

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

final.rar

تم تعديل بواسطه خالد سيسكو

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information