قاعدة اف

[m.saber1981]

السلام عليكم السادة محترفي الاكسس انا تو بادئ في تعلم vba  وارفقت لكم صوره لمعرفة خطائي في دالة اف حيث اريد ان اقول عند التحميل مسج بوكس نعم اولا في حالة لا اعطي رسالة لا وفي حالة نعم اعطي maxmize form
فما هو الخطاء في كتابة عبارتي

http://recordit.co/uN0uSft7dV

[ابو عارف]

عليكم السلام

نحن كمسلمين و لله الحمد اجابتنا للرسالة "بسم الله الرحمن الرحيم","الله اكبر" دائماً نعم ولا مجال لخيار آخر.

اما الموضوع الخاصة بنموذج ، الصق الكود التالي

If MsgBox("هل تريد فتح النموذج في وضع ملء الشاشة", vbYesNo, "الرسالة") = vbNo Then
MsgBox "No"
Else
DoCmd.Maximize
End If

 

[m.saber1981]

معلش ماحددت ايه خطائي لانه نفس الكود اللي انا ارفقته بس مااشتغل

تم تعديل مايو 30, 2016 بواسطه m.saber1981

[ابو عارف]

جرب هذا

If MsgBox("هل تريد فتح النموذج في وضع ملء الشاشة", vbYesNo, "الرسالة") = vbNo Then
MsgBox "No"
Else
DoCmd.SelectObject acForm, "FormName"
DoCmd.Maximize
End If

غير FormName الى اسم نموذج لديك

[Elsayed Bn Gemy]

السلام عليكم اسمحولى بالمشاركة

اخى الفاضل ابو عارف اكوادك كلها صحيحة الاول والثانى

اما اخونا االفاضل

8 ساعات مضت, m.saber1981 said:

معلش ماحددت ايه خطائي لانه نفس الكود اللي انا ارفقته بس مااشتغل

احب ان اوضح توضيح بسيط لا يخفى عليكم

If Conditional Expression ( الشرط أو التعبير الشرطى )  Then       

الأوامر التى يتم تنفيذها فى حالة تحقق الشرط Code                                  

نهاية جملة الشرط     End If

 

اى كما لاحظت فى اكواد اخونا ابو عارف

اما الاختلاف بين كودك وبين كود اخونا ابو عارف لاحظ الملاحظة التى باللون الاحمر

 

جملة If …..Then تتكون من If ثم يأتى بعدها (الشرط أو التعبير الشرطى) ثم كلمة Then وهذا كلة على سطر واحد فقط.

       يلى السطر الذى يحتوى على  If …..Then مجموعة الأوامر المطلوب تنفيذها .

      إذا كانت قيمة الشرط أو التعبير الشرطى خطأ False يتم تنفيذ مجموعة الأوامر التى تلى End If ( أى باقى أوامر البرنامج ) .

     فى حالة تحقق الشرط أو عدم تحققة يتم تنفيذ ما بعد End If

 

 

[ابو عارف]

منذ ساعه, Elsayed Bn Gemy said:

اخى الفاضل ابو عارف اكوادك كلها صحيحة الاول والثانى

اخي السيد اولا شكرا جزيلا على التوضيح

ثانيا كلام الاخ محمد صابر "بس مايشتغل" خلاني اجرب الكود في النموذج عندي في اوفيس 2007 في ويندوز سفن و اوفيس 2010 في ويندوز 10، و فعلا كلامه صحيح مايشتغل يعني عند اختيار نعم لايكبر النموذج، ثم اضطرت اضافة سطر لاعادة تحميل النموذج

DoCmd.SelectObject acForm, "FormName"

ثم عاد يشتغل 

تم تعديل مايو 31, 2016 بواسطه ابو عارف

[m.saber1981]

الاخ ابوعارف نتمنى شرح الكود الاخير الذي الصقته

DoCmd.SelectObject acForm, "FormName"

[ابو عارف]

منذ ساعه, m.saber1981 said:

الاخ ابوعارف نتمنى شرح الكود الاخير الذي الصقته

حاضر ولايهمك

لنفترض اسم النموذج لديك Form1 اكتب الكود كذا

If MsgBox("هل تريد فتح النموذج في وضع ملء الشاشة", vbYesNo, "الرسالة") = vbNo Then
MsgBox "No"
Else
DoCmd.SelectObject acForm, "Form1"
DoCmd.Maximize
End If

بالتوفيق

[m.saber1981]

شكرا لكم جميعا الكود اشتغل بعد السطر اللي اضافه الاخ ابوعارف ...معلش انا جديد في الاكسس وبالف عشان اتعلم انا عاوز الكودده يشتغل عند فتح قاعدة البيانات

Private Sub database_load()
If MsgBox("هل تريد فتح البرنامج", vbYesNo, "برنامج منجز") = vbNo Then
DoCmd.SelectObject acDatabaseProperties, "اسم قاعدة البينات"
DoCmd.Quit
Else
DoCmd.SelectObject acDatabaseProperties, "اسم قاعدة البينات"
DoCmd.OpenDataAccessPage
End Sub

   http://recordit.co/vOPl3nS8ez

ممكن التصحيح انا عاوز اقله لو نعم افتح قاعدة البيانات لو لا اغلق القاعدة زحطيته في لود الداتا بيز بس مشتغلش

[m.saber1981]

هلا انتو زهقتوا من ولا ايه حد يجاوبني الله يجزاكم خير