[ تمت الإجابة ]كيف أصنع كود Savemsg=msgbox

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

مشكور أخي الكريم

ولكن أنا أريد عمل savemsg=msgbox

ولو تسمح لي ذكر الكود مره اخرى

savemsg=msgbox" Are You Sure To Save This Information?", vbQuestion+

vbMsgBoxRight vbYesNo, " Save "

والرساله التي تظهر لي هي

compile error

expected:end of statement

ولك مني جزير الشكر

وخالص الدعاء

سلام عليكم

انا لم افهم قصدك جيدا لكذا هذا ما اتوقعه

Dim savemsg
savemsg = MsgBox("Are You Sure To Save This Information?", vbQuestion + vbMsgBoxRight + vbYesNo, "sss")

If savemsg = vbYes Then
Text1 = "Yes"
ElseIf savemsg = vbNo Then
Text1 = "No"
End If

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

الف شكر لك أخى الكريم

ولكن المشكله كانت فى العلامات وبفضل الله ثم ردودكم تم حلاها

ولكن كده الكود بتاعي تمام ومفهوش أي خطأ ولكن لما بشغل البرنامج بيطلعى أن نص الكود نفسه خطأ وأنا مش عارف في أيه أنا هكتبلكم الكود والرساله ألي بتطلع

savemsg = MsgBox(" Are You Sure To Create Administrator ?", vbQuestion + vbMsgBoxRight + vbYesNo, " Save Data ")

الرساله هي:

compile error:

only comments may appear after end sub,end function,or end property

ولكم مني جزير الشكر والأحترام

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

الحمد لله تم حل أول مشكله بسلام ولكن للأسف أكتشفت مشكله ثانيه وأرجو مساعدتكم

وأنا بشغل البرنامج في كود معين في خطأ وهو

RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

وبتطلعلي الرساله دي

run-time error'-2147217900(80040e14)':

syntax error in from clause

بعدكده بيعلم على الكود ده

ولكم جزير الشكر

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

أنا مش فاهم قصدك كويس بس أوكي

أنا في البرنامج عامل MODULE

وده في الSQLS

ألي فيه

UserNames

UserPassword

وبس كده سامحني لو أنا مفهمتش أقصدك صح ولو كده أرجو منك التوضيح

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

SQLs = "Select * From User Where UserName = ' " & Text1 & " ' And Password = ' " & Text2 & " ' "

ياعمنا ما أنا عامل الكود كده بس ماكنتش عامل القيين ولما عملتهم طلعلى أن نفس الكود غلط وهو

RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

بس ماشأء الله برساه تانيه خالص وهي

THE MICROSOFT JET DATABASE ENGINE CAN NOT FIND THE IN PUT TABLE OR EQULE"USER" MAKE SURE IT EXISTS AND THAT ITS NAME IS SPELLD CORRECTLY

USERS أكيد أنا عرفت الرساله فبيه أيه قبل ما أضعها في هذا الموضع وأريد أن أخبرك أني أنا عندي جدول في قاعده البيانات أسمه

وهذا الخطأ تم تفاديه ولكن عند التشغيل بعد تفادي الخطأ تظهر في نفس الكود ألي انا بسأل فيه ونص الرساله للتوضيك ليس أكثر

NO VALUE GIVEN FOR ONE OR MORE REQUIRED PARAMETERS

وشكرا

من الواضح أنك لم تأخذ بالك من نص الرد أنا قلت أن عندي جدول USERS

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