عرض بيانات محددة في نموذج آخر

 

أضيف بتاريخ 19/8/1423هـ

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

هذا الشرح يجيب على هذا التساؤل .

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

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

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

خطوات الإنشاء :

1- أنشئ قائمة منسدلة -لاتنسى تفعيل المعالج الموجود على شريط الأدوات :

2- عند إنشاء القائمة يشتغل المعالج وتظهر الشاشة التالية :

 

 

3- اتركه على الاختيار الأول ثم اضغط التالي فتظهر الشاشة التالية :

 

4- اختر جدول الهواتف ثم اضغط التالي فتظهر الشاشة التالية :

5- اختر حقلي رقم الشخص والاسم بضغط زر   ثم اضغط التالي فتظهر الشاشة التالية :

6- ثم اضغط التالي بدون تغيير شيء ثم اضغط التالي فتظهر الشاشة التالية :

اكتب اختر اسم ثم اضغط إنهاء .

7- اظهر خصائص القائمة ثم غير اسمها إلى اختر_اسم

8- أنشئ زر أمر على النموذج فتظهر الشاشة التالية :

9- اختر عمليات النماذج ومن اليسار اختر فتح نموذج ثم اضغط التالي فتظهر الشاشة التالية :

10- اختر جدول الهواتف ثم اضغط التالي فتظهر الشاشة التالية :

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

12- اختر رقم الشخص من اليمين ورقم الشخص من اليسار بالنقر على كل منهما مرة واحدة ثم اضغط هذا الزر   فتظهر أمام كلمة الحقول المتطابقة في الأسفل رقم الشخص <-> رقم الشخص ، ثم اضغط التالي ولاتغير شيء ثم اضغط التالي مرة أخرى فتظهر الشاشة التالية :

13- اكتب الاسم فتح_نموذج_الهاتف ثم اضغط زر إنهاء .

14- الآن لو جربت فتح النموذج سيفتح على السجل المعروضة بياناته ، ولكن نحن نريده أن يفتح نموذج الهواتف حسب الاختيار من القائمة وليس حسب السجل الحالي ، لذلك نحتاج للتعديل في كود زر الأمر الذي أنشأه المعالج .

15- أظهر صفحة الخصائص لزر الأمر ثم انتقل لصفحة التبويب حدث وفي حدث عند النقر انقر الزر ذو الثلاث نقط   وستظهر الوحدة النمطية الخاصة بالنموذج وفيها الكود التالي :

On Error GoTo Err_فتح_نموذج_الهاتف_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1575) & ChrW(1604) & ChrW(1607) & ChrW(1608) & ChrW(1575) & ChrW(1578) & ChrW(1601)

stLinkCriteria = "[رقم الشخص]=" & Me![رقم الشخص]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_فتح_نموذج_الهاتف_Click:
Exit Sub

Err_فتح_نموذج_الهاتف_Click:
MsgBox Err.Description
Resume Exit_فتح_نموذج_الهاتف_Click

 

والسطر المطلوب تغييره هو :

 

stLinkCriteria = "[رقم الشخص]=" & Me![رقم الشخص]

 

وكما تلاحظ يشير الكود لمربع النص المسمى رقم الشخص والمطلوب أن يشير إلى القائمة المنسدلة التي أنشأناها منذ قليل وهي باسم اختر اسم ، لذلك غير السطر السابق بالسطر التالي :

 

stLinkCriteria = "[رقم الشخص]=" & Me![اختر اسم]

 

آمل أن تكون الطريقة قد وضحت لك .

 

مثال بالأكسس 97

الأمثلة مضغوطة

تحتاج إلى برنامج فك الضغط

انقر هنا لتحميل البرنامج

مثال بالأكسس 2000