أين أجد مثال لجدولين مرتبطين بنموذج واحد ؟؟؟

تحياتي لك عزيزي ..

في الحقيقة الامثلة كثيرة جدا جدا ولكن انت ماذا تريد منها ....

ماهي الحقول التي تريدها ...

اتمنى من الاعضاء اكمال الاسئلة لكي يتنسى لنا مساعدتهم ..

زعلان عليك مررره

لكن انا انتظر ردك وانتظر ما تريد

اخوك

علي

يا أخي BASHOOT

الله لا يجيب الزعل بيني وبينك ... قل لي ويش اللي مزعلك وأنا أقولك أدلل علي أدلل ...

عزيز وغالي يا علي

على العموم ...

أنا ما أقصده هو فكرة ربط نموذج بجدولين كيف تتم ؟؟؟

لأني ما عندي أي فكره عنها نهائيا ولا عن أنواعها !!!

كل ما أعرفه هو

إذا أردت تغيير النموذج لكي يسمح لك بالتعامل مع أكثر من جدول هو أن تغير طريقة العرض إلى نماذج مستمره ... ولا أعرف أي فكره بعد هذا ... لكي يتم ربط النموذج بجدولين ...

يعني بالأساس العمليه كيف تتم ( أو بالأحرى ما هي القاعده لذلك ) ؟؟؟ بغض النظر عن الأنواع

أخوك سعد

أخي سعد مبارك عليك الشهر

تستطيع عمل استعلام يجمع جدولين أو عدة جداول

ثم عمل نموذج يستمد بياناته من ذلك الاستعلام

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

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

هذا والله أعلم

أخوك : محمد

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

تخطر ببالي ولقد لا حظت أن برنامج الأكسس يمكنني من عرض الجداول الى ثلاثة مستويات فقط

على سبيل المثال

المنطقة----------->المحافظ------->الحي-------->العماره-------->الشقه

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

التالية العمارة والشقة هذا طبعا على أفتلراض أن العلاقة راس بأطراف بين جميع الجدوال

والمشكله الأخرى لو أفترضنا أن هنالك جدولين يشتركون في نفس الجدول

مثال جدول (لدورات العلميه) يرتبط به جدولين جول للمدرسين وجدول لطلاب المدرس ممكن يدرس

أكثر من دوره والدوره ممكن يدرسها أكثر من طالب

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

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

أو نموذج يعرض الدورا والطلاب فقط ؟

هذا والله أعلم وأترك لكم التعليق ....

الأخ الكريم

سبق وأن كان تساؤلك محل تساؤل مني كذلك وقد تفضل بعض الأخوة الكرم في المنتدي بإفادتي بالتالي ، فلل فيه جواب على سؤال إن شاء الله

تساؤلي السابق :-

أرجوا التكرم بإفادتي عن أجوبة لتساؤلاتي التالية مشكورين :-

1- كيفية ربط قاعدة بيانات Access مع جدول الـ FlexGrid بالكود . ؟

2- هل من الممكن أن تقتصر بيانات جدول الـ FlexGrid على بيانات معينة من جدول في قاعدة البيانات دون البعض الآخر ؟ .

3- وهل من الممكن أن يضم جدول FlexGrid واحد أكثر من جدول في قاعدة البيانات ؟ . ))

الإجابة كانت من الأخ الكريم إبراهيم الطيب كالتالي :-

بالنسبة للسؤال الاول :

بافتراض ان لدينا جدول باسم "Tbl_FLXGRD" و به الحقول التالية :

( Address-Name-num)

CODEPrivate Sub Form_Load()

Set rs = db.OpenRecordset("Tbl_FLXGRD", dbOpenTable)

'

MSFlexGrid1.Row = 0

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = "الرقم"

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = "الاسم"

MSFlexGrid1.Col = 3

MSFlexGrid1.Text = "العنوان"

End Sub

و اذا كان لدينا زر امر

CODEPrivate Sub Command1_Click()

Set rs = db.OpenRecordset("Tbl_FLXGRD", dbOpenTable)

If rs.RecordCount < 1 Then Exit Sub

n = rs.RecordCount

MSFlexGrid1.Rows = n + 1

For i = 1 To n

MSFlexGrid1.Row = i

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = rs!num

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = rs!Name

MSFlexGrid1.Col = 3

MSFlexGrid1.Text = rs!Address

rs.MoveNext

Next i

End Sub

هل من الممكن أن تقتصر بيانات جدول الـ FlexGrid على بيانات معينة من جدول في قاعدة البيانات دون البعض الآخر ؟ .

اذا كنا نريد ان نعرض بيانات شخص بناءاً علي رقمه مثلا :

ضع زر امر و صندوق نص و في زر الامر اكتب الاتي:

CODEPrivate Sub Command2_Click()

Set rs = db.OpenRecordset("Tbl_FLXGRD", dbOpenTable)

SQL = "select * from Tbl_FLXGRD where num = " & Text1.Text & " "

Set rs = db.OpenRecordset(SQL, 2)

If rs.RecordCount < 1 Then Exit Sub

rs.MoveFirst

n = rs.RecordCount

MSFlexGrid1.Rows = n + 1

For i = 1 To n

MSFlexGrid1.Row = i

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = rs!num

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = rs!Name

MSFlexGrid1.Col = 3

MSFlexGrid1.Text = rs!Address

rs.MoveNext

Next i

End Sub

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

أتمنى لكم التوفيق