استفسار بخصوص فتح فورم فى وضع معين

[عمر ضاحى]

السلام عليكم اساتذتى الكرام

تحية طيبه وبعد؛

انا معى استفسار معرفش اذا كان هذا ممكن ام لا

انا عندي فورم 

به صفحات 

هل يمكن ان اجعل مفتاح فى فورم اخر 

عند الضغط عليه يفتح لى الصفحة الاولى لهذا الفورم 

وزر اخر عند الضغط عليه يفتح لى الفورم فى الصفحة الثانية ؟

 

هل يمكن فعل هذا ؟

واذا كان نعم كيف يمكن فعلاها

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

Database1.accdb

تم تعديل أغسطس 16, 2021 بواسطه عمر ضاحى
اضافة مرفق

[محمد أبوعبدالله]

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

تفضل اخي الكريم

Private Sub أمر0_Click()
    DoCmd.OpenForm "Z1", , , X1 = 0
    Forms!Z1!X1 = 0
End Sub

Private Sub أمر1_Click()
    DoCmd.OpenForm "Z1", , , X1 = 1
    Forms!Z1!X1 = 1
End Sub

Database1.accdb

تحياتي

[عمر ضاحى]

هذا هو ما اريد 

الف الف شكر وربنا يجزيك خير ويبارك فيك

[عمر ضاحى]

طيب معلش فى نقطه 

الطريقه شغاله تمام والحمد لله 

بس انا لما اجي اضيف باقى الكود 

علشان يظل النموذج فى المقدمه 

 

    DoCmd.OpenForm "frmVacation", , , xTab = 1, , acDialog
        Forms!frmVacation!xTab = 1

لا يعمل 

 

فى حين ان الكود اذا اصبح هكذا 

    DoCmd.OpenForm "frmVacation", , , xTab = 1
        Forms!frmVacation!xTab = 1

فانه يعمل 

يا ريت تتفضل على بشرح افهم منه الامر كامل 

اقصد امر  DoCmd.OpenForm

[محمد أبوعبدالله]

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

UP_Database1.rar

تحياتي

[عمر ضاحى]

كده عظمه على عظمه 

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

لانى اثناء بحثى فى النت عن حلى للمشكله 

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

وبالنسه للنموذج الاخير 

ده ميه ميه 😍

 

[محمد أبوعبدالله]

تفضل اخي الكرم

هذا مثال لـ OpenForm مع تحديد خصائص وشروط

    DoCmd.OpenForm _
    FormName:="Form1", _
    WhereCondition:="[ID] = " & Me.ID, _
    DataMode:=acFormEdit, _
    WindowMode:=acDialog

 

 

'    FormName                                اسم النموذج
'    FormName:="Form1", _

'    WhereCondition                         الفلتر او الشروط
'    WhereCondition:="[ID] = " & Me.ID, _

'    DataMode                                 وضع التحرير
'    DataMode:=acFormEdit, _

'    WindowMode                              وضع النافذة
'    WindowMode:=acDialog

تحياتي