|4| فتح النموذج علي سجل محدد

[محمد طاهر عرفه]

المثال موجود فى قسم التقارير

http://www.officena.net/ib/index.php?showtopic=1222

حيث أنه به نفس الخاصية للتقارير

و المثال من هنا

http://www.officena.net/ib/index.php?act=A...pe=post&id=6315

[محمد طاهر عرفه]

هنا سنتحدث عن فتح النموذج بالكود سواء بكامل السجلات

او علي سجل محدد

و هذا يتم باستخدام أمر

Docmd.openForm

و هذا الامر له ستة معاملات

arguments

نختار منها ما نريد و نترك ما نريد ليأخذ قيمته الافتراضية

الجزء الأول

هواسم النموذج المراد فتحه و نكتبه بين ""

فيكون الحد الادني للجملة مثلا هو

docmd.openForm "form1"

و اذا بدأنا نكتب فى الفيجوال بيزيك فسيساعدنا ليذكرنا بمكونات كل جزء بعد كتابة الفاصلة التي تفصل بين الاجزاء المختلفة للجملة .. جرب كتابة فاصلة بعد الجزء الاول و ستري ما أقصد الجزء الثاني هو طريقة عرض النموذج بعد فتحه هل فى وضع العرض العادي ، أو وضع التصميم أو ورقة البيانات ... الجزء الثالث هو اسم فلتر معد مسبقا علي هيئة استعلام ، علي أن يحوي الاستعلام علي الحقول الموجودة فى النموذج الجزء الرابع الشرط و يكون علي هيئة [fieldname] = Forms![formname]![controlname on other form] و هو الجزء الذي استخدمناه فى المثال السابق بان رقم الموظف = رقم الموظف الموجود فى مربع النص فى النموذج الجزء الخامس يعبر عن طريقة فتح النموذج من حيث التعامل مع البيانات ، أي فتح النموذج فى وضعية التعديل أم الاضافة ام القراءة فقط الجزء الأخير طريقة فتح نافذة النموذج عادي - مخفي - Modal .. و الافتراضي هو عادي Normal و فى المثال عندما أردنا فتح النموذج بكامل سجلاته اختر خصائص الزر و من صفحة الاحداث ، اختر حدث عند النقر لتشاهد الكود و هو

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "FrmMainEmp"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

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

    
    DoCmd.OpenForm "FrmMainEmp"

حيث أن stLinkCriteria لم يتم اعطاؤه قيمة و علي العكس فى زر فتح نموذج علي موظف معين ، فقد تم تعيين قيمة للشرط stLinkCriteria

    
Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "FrmMainEmp"
    stLinkCriteria = "[EmpID]=" & Me![EmpID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

اي انها تناظر

 
    DoCmd.OpenForm "FrmMainEmp", , , "[EmpID]=" & Me![EmpID]

هذا حال كون حقل EmpID رقمي اما اذا كان نص فنضيف علامتي '' الي الجملة ، فتصبح

     DoCmd.OpenForm "FrmMainEmp", , , "[EmpID]='" & Me![EmpID] & "'"

[الدكتور خضر الرجبي]

المواضيع المشابهة

1) 26/02/2005 تغيير عنوان النموذج حسب الزر الذي يفتحه

2) 19/01/2005 كيف أجعل النموذج هو البداية

3) 03/12/2004 شاشة لوجو للدخول تضم اسم المستخدم وكلمة المرور

4) 16/09/2004 نموذج وكلمة السر

5) 28/02/2004 النموذج لا يفتح فى وضع التعديل

6) 26/01/2004 فتح نموذج علي سجل محدد

7) 26/11/2003 فتح النموذج علي سجل محدد

8) 31/07/2003 تح النموذج على الاسم الذي نريده

9) 12/07/2003 تح النموذج عند أخر سجل تم إضافته أو تعديله