ممكن المساعدة في معرفة الخلل في هذا الكود (الكود مأخذ من موضوع كن محترف فيجوال بيسيك) في نموذج MDIForm1 - ملف - خروج
Private Sub ExitPro_Click()
MSGExits = MsgBox("Are You Sure To Exit?", vbQuestion + vbMsgBoxRight + vbYesNo, "Exit")
If MSGExits = vbYes Then
End
End If
End Sub
مرحبا
أخي حاول مرة أخرى أن ترفق شيئا يساعدنا في مساعدتك..!
لعلك كنت وضعت option explicit.
جرب أن تضع Dim MSGExits As VbMsgBoxResult قبل الميساج.
أو احذف option explicit في حال وجودها.
هذا مجرد احتمال للخطأ.
تم تعديل هذه المشاركة بواسطة دريد عبد الله في 10 يناير 2009 في 00:16
Doried Abd Allah
Prelware D&D Association
Lattakia/Syria
اقتباسهذا مجرد احتمال للخطأ.
هو كذلك بالضبط . Dim MSGExits As VbMsgBoxResult
ليس كل ما يتمناه المرء يدركه
ليس هذا ضرورياً، فيمكنني وضع
Dim MsgExits As Integer
مثلاً
وإذا لم تكن هناك Option Explicit فليس هناك حاجة لوضعها أصلاً.
والله أعلم
هذه الجملة خاطئة :wacko:
الله يجزاكم خير على التجاوب ارفقت لكم المشروع اخواني
أنا جربت عملت في فورم (MDIForm) ومشي الحال ثم جربت وعملت (make) للبرنامج ظهر خطاء ايضاً
في فورم frmChecckUser نفس المشكلة السابقة عندما اريد أن اعمل للبرنامج (make) يظهر الخطاء ولكن هذه المرة في هذه الكود وهوشبية بالكود السابق
SaveMsg=MsgBox("Are You Sure To Create Administrator?",vbQuestion+vbMsgBoxRight+vbYesNo,"Save Data")k
الكود في اصلة ليس به اقواس ولكن عند كتابت بدون اقواس يظهر خطاء , وينطبق هذا ايظاً على الكود السابق
أنا ارفقت المشروع لكم
الخطأ هنا:
ٍSaveMsg = MsgBox MsgBox "Are You Sure To Create Administrator?", vbQuestion + vbMsgBoxRight + vbYesNo, "حفظ البيانات"
وهو بعد التعديل:
SaveMsg = MsgBox("Are You Sure To Create Administrator?" , vbQuestion + vbMsgBoxRight + vbYesNo , "حفظ البيانات "
If SaveMsg = vbYes Then
.....
.....
.....والله أعلم
بالنسبة للأقواس فهذا طبيعي، عندما تسند دالة إلى متغير أو كائن ما، يجب أن تضع الـArguments بين قوسين.
هذه الجملة خاطئة :wacko:
اخي الفاضل Abboodd نعم أنا عدلت هذا الخطاء ولكن المشكلة نفسها موجودة
حاولت أن اكتب Dem SaveMsg As vbMsgBoxRight ولكن لا فائدة
تم تعديل هذه المشاركة بواسطة aftfm في 10 يناير 2009 في 19:19
أولاً:
Dim SaveMsg As vbMsgBoxResult
ثانياً
ما هي رسالة الخطأ؟
تم تعديل هذه المشاركة بواسطة Abboodd في 10 يناير 2009 في 20:39
هذه الجملة خاطئة :wacko:
ما هو الخطاء في فورم frmChecckUser
SaveMsg=MsgBox("Are You Sure To Create Administrator?",vbQuestion+vbMsgBoxRight+vbYesNo,"Save Data")k
هذا الكود فيه خطاء ويكن المؤشر ازرق في تحديد الخطاء على اول كلمة في الكود (SaveMsg)
انا عرفت المتغير وكتبت (Dim SaveMsg As vbMsgBoxRight)
لكن دون جدوى
If MsgBox("Are You Sure To Create Administrator?", vbQuestion + vbMsgBoxRight + vbYesNo, "Save Data") = vbYes Then
Print "Yeas"
Else
Print "No"
End Ifليس كل ما يتمناه المرء يدركه
مرحبا إخوان
الأخ صاحب الموضوع: بالنسبة لـ SaveMsg ببساطة أنت قد وضعت محرف عربي لا يظهر على النص اللاتيني
(قد يكون سكون أو فتحة أو كسرة.. لا أدري بالضبط لكن فقط أعد كتابة الميساج بوكس و شرط الإف) هذا المحرف جعل المترجم يعامل
المتغير الذي يحويه على أنه متغير مختلف عن الآخر( مثلا ss غير ss1 كذلك ss و فتحة غير ss).
أنا أزلت ذلك المحرف و عمل البرنامج.لكن عندك أخطاء أخرى في برنامجك:(عند تسجيل الدخول الأستعلام يحوي أخطاء. بصراحة ليس
لدي خبرة بقواعد البيانات ولا sql كنت ساعدتك بها..!)
Doried Abd Allah
Prelware D&D Association
Lattakia/Syria
اقتباسممكن المساعدة في معرفة الخلل في هذا الكود (الكود مأخذ من موضوع كن محترف فيجوال بيسيك) في نموذج MDIForm1 - ملف - خروجPrivate Sub ExitPro_Click()
MSGExits = MsgBox("Are You Sure To Exit?", vbQuestion + vbMsgBoxRight + vbYesNo, "Exit")
If MSGExits = vbYes Then
End
End If
End Sub
ليس فى كودك أى خلل
أنا قمت الآن حالآ بعمل PROJECT ونسخت كودك هذا ووضعته عنى
ولما قمت بعمل الRUN اشتغل البرنامج تمام التمام فى الحالتين (YES , NO)
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم