كيف اختار اسم جدول من كمبوكس يظهر لي الجدول نفسه

وعليكــم السـلام ورحمة الله وبركاتـه..

مرفق مثال بسيط ارجو ان يفي بما تريد

طبتم واهتديتم

tables.rar

السلام عليكــم ورحمـة الله وبركاتــه ،،

بارك الله فيك استاذ ايهاب عثمان ونفع بك وبعلمك

اذا سمحت لي بإضافة مثال آخر .. عسى ان يكون به الفائدة

مع الشكر والتقدير

tablesNames.rar

اخ ايهاب ليس هذا المطلوب لكن مشكور على الرد وبارك الله بيك....

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

استاذنا يوسف

بارك الله بك وحفظك يبدو انك فهمت السؤال افضل مني

ولكن في مثالي كان الكومبو يعرض لك الجداول الموجودة بالقاعدة ايا كانت

اخي "عراق الغالي"

عذرا لسوء الفهم هنا ستجد الملف بعد تحقيق المطلوب

====

طبتم واهتديتم

مشكور اخ ايهاب...

بس المرفق اللي خليته حضرتك يظهر بشكل index.php وليس على شكل rar

الملف يعني لايظهر

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

استاذي الحبيب ايهاب عثمان

اشكرك على تواضعك وحسن تعاملك مع تلاميذك فوالله ما انا الا واحد من تلاميذكم والعين لا تعلو على الحاجب .. بارك الله فيك وجزاك خير الجزاء على ما قدمته وتقدمه لنا ولهذا الصرح الكبير.

اخي عراق الغالي

ما وضعته لك هو مجرد مثال ولا اعرف ما هي بنية الجداول لديك ويفضل ان تضع مثالك ليتم العمل والشرح بناءً عليه.

مع الشكر والتقدير للجميع

السلام عليكــم ورحمـة الله وبركاتــه ،،

أخي يوسف..

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

أخي عراق الغالي :

لا بأس ارجع الى المرفق بمشاركتي الاولى فقد تم التعديل عليه

========

طبتم واهتديتم

الاساتذة الافاضل في منتدانا الغالي شكرا لكم لكل ما تقدموه وجزاكم الله خيرا في الدنيا والاخرة

الاستاذ يوسف المحترم انا اضم صوتي الى الاخ عراق الغلي في شرح الكود في المثال الذي ارفقته ولك مني جزيل الشكر

مشكور اخ ايهاب على مرفقك بس انا اريد ان اعرض الجدول باكمله في النموذج للجدول المختار من الكمبوكس وليس سجل واحد كما في المرفق الذي عملته حضرتك حيث يعرض سجل واحد في النموذج وليس الجدول باكمله كما اريد .اي انه الفكرة قائمة كمبوكس تحتوي على كافة اسماء الجداول الموجودة في قاعدة البيانات واسفلها في نفس النموذج نفسه عندما اختار احد اسماء الجداول من الكمبوكس يظهر لي جدول لذلك الجدول المختار في النموذج مع بياناته وليس كسجل وارجو ان يكون الشرح بالصورة بارك الله...

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

تحياتي للجميع

السلام عليكم ورحمة الله وبركاته ...

استاذنا الفاضل يوسف احمد .. انا منذ ايام وانا بانتظار ردك ..

عراق الغالي كتب:

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

عموماً...

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

عراق الغالي كتب:

كما اريد .اي انه الفكرة قائمة كمبوكس تحتوي على كافة اسماء الجداول الموجودة في قاعدة البيانات

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

عراق الغالي كتب:

وارجو ان يكون الشرح بالصورة بارك الله...

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

تحياتي للجميع

iraq2009 كتب:

السلام عليكم ورحمة الله وبركاته ...

استاذنا الفاضل يوسف احمد .. انا منذ ايام وانا بانتظار ردك ..

الشرح

وهذا بعد اذن استاذنا يوسف بارك الله فيه...

لدينا الان ثلاثة افكار للحل...

1- فكرة الاستاذ يوسف احمد

üقاعدة بيانات بها الجدولين tbl1 & tbl2

üنموذج يحتوي على كمبو بوكس مكتوب به ً اسماء الجداول وهذا النموذج مرتبط بأحد الجدولين كمصدر

للسجل

ü سطر برمجي بسيط تحت حدث عند الضغط للكمبو بوكس يجعل مصدر السجل للنموذج هو نفس الجدول الذي

تم اختياره داخل الكومبو بوكس... وهذا هو الكود

Me.[color= #808000;]RecordSource [color= #000000;]= Me.[color= #808000;]Combo0

ü كود برمجي تحت حدث عند استدعاء النموذج وظيفته تحديد الجداول الموجودة حاليا بقاعدة البيانات

وارسالها كمصدر بيانات للكمبو بوكس يعني تحديث معلومات الكمبو حول الجداول الموجودة بالقاعدة وهي فكرة رائعة صراحة ...وهذا هو الكود...

 Dim objTableDef As TableDef, strTdfName As String, strTdfNameAll As String

 

    strTdfNameAll [color= #000000;]= [color= #A31515;]""

 

    Set objCurrentDB [color= #000000;]= CurrentDb

 

    [color= #0000ff;]For Each objTableDef In objCurrentDB.[color= #808000;]TableDefs

 

        strTdfName [color= #000000;]= objTableDef.[color= #808000;]Name

 

        [color= #0000ff;]If Left$[color= #000000;](strTdfName, [color= #ff0000;]4[color= #000000;]) [color= #000000;]= [color= #A31515;]"MSys" Then [color= #0000ff;]GoTo NextTdf

        [color= #0000ff;]If Left$[color= #000000;](strTdfName, [color= #ff0000;]1[color= #000000;]) [color= #000000;]= [color= #A31515;]"~" Then [color= #0000ff;]GoTo NextTdf

        [color= #0000ff;]If Len[color= #000000;](objTableDef.[color= #808000;]Connect[color= #000000;]) [color= #000000;]> [color= #ff0000;]0 Then [color= #0000ff;]GoTo NextTdf

 

        strTdfNameAll [color= #000000;]= strTdfNameAll [color= #000000;]& strTdfName [color= #000000;]& [color= #A31515;]";"

 

NextTdf[color= #000000;]:

 

    Next objTableDef

 

    Me[color= #000000;]!Combo0.[color= #808000;]RowSource [color= #000000;]= strTdfNameAll

2 - الفكرة الاولى لأخيكم .... وهي بالمرفق بمشاركة سابقة

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

الكومبو بوكس هو استعلام اسمه Query1 ةظيفته جلب اسماء الجداول بالقاعدة من احد جداول النظام الموجودة بكل قاعدة بيانات اكسيس وهي مخفاة

3- الفكرة الثانية لي وهي الموجودة بهذه المشاركة هي نفس الفكرة السابقة غير اننا قمنا بتغيير الية ربط النموذج بالجدول الذي تم تحديده

(سابقاً في 1 و 2 كان بتغيير مصدر سجل النموذج Record Source ليطابق قيمة الكومبو بوكس

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

وهذا هو الكود...

Dim ShVal As String

ShVal [color= #000000;]= [color= #A31515;]"table." [color= #000000;]& lst

sh.[color= #808000;]SourceObject [color= #000000;]= ShVal

=======

طبتم واهتديتم

tables.rar

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

بس حضرتك عملت مربع قائمة في النموذج انا اريد مربع سرد وتحرير(وهذا قصدي بمعنى الكمبوكس )

هذا المطلوب بس بقى محل مربع قائمة نان اريد مربع سرد وتحرير

وجزاك الله الف خير...

بس كدا؟؟ :D

تفضل

tables.rar

شكرا وبارك الله فيك وهو المطلوب وجزاك الله الف الف خير...

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

تحياتي

عراق الغالي كتب:

شكرا وبارك الله فيك وهو المطلوب وجزاك الله الف الف خير...

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

تحياتي

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

لا فرق بينهما سوى انك في مربع التحرير والسرد لبنسنى Combo Box تستطيع الكتابة بنقسك فتظهر القيم المطابقة لما كتبته ان كام ما تكتبه من ضمن عناصر المربع.

عدا ذلك ما من فرق بينهما...

حتى انك حين طلبت مني التغيير الى مربع تحرير وسرد لم افعل شيئا الا ان فتحت النموذج في وضع التصميم ثم كليك يمين على مربع القائمة ثم اخترت الامر Change To ثم اخترت Combo Box فتم التحول بسلام مع بقاء كافة الاكواد كما هي

جزاااااااااك الله الف خير والله يكثر من امثالك اخي