نحوه استفاده از Msgbox از نوع Yes\No ، همراه با شرط If

[G.hemati]

با سلام
من کد زیر رو برای Msgbox از نوع Yes\No استفاده میکنم .

حالا میخوام یه شرط بزارم که اگر اون شرط برقرار بود Msgbox فعال بشه و اگه شرط برقرار نبود Msgbox فعال نشه

کد Msgbox :

If MsgBox("آیا مایل به نمایانسازی میباشید ؟", vbExclamation + vbYesNo, "توجه") = vbNo Then
Text1.Visible = False
Else
Text1.Visible = True
End If

که میخوام این شرط اضافه بشه

If Text1.Value = 1 Then


ممنون و سپاسگذار

[G.hemati]

با سلام
من کد فوق رو به صورت زیر تغییر دادم ولی نتیجه ای نگرفتم

ممنون میشم اساتید و دوستان گرامی راهنمایی بفرماین

Private Sub Text3_LostFocus()
If Text1.Value = 1 Then
If MsgBox("آیا مایل به نمایانسازی میباشید ؟", vbExclamation + vbYesNo, "توجه") = vbNo Then
Text1.Visible = False
Else
Text1.Visible = True
End If
End If
End Sub

[hamid-nice]

با سلام
دوست گرامی قالب صحیحی از تابع msgbox سه کلیده در 2010، به صورت زیر است سعی کن خواسته خودت را در قالب زیر در آوری
کدهای زیر را در یک دگمه قرار بده تا نمونه را ببینی

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNoCancel + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, vbYesNoCancel, Title, Help, Ctxt)
If Response = vbNo Then ' User chose Yes.
' Perform some action.
MsgBox "NO"
End If
If Response = vbCancel Then ' User chose Yes.
' Perform some action.
MsgBox "Cancel"
End If
If Response = vbYes Then ' User chose Yes.
' Perform some action.
MsgBox "Yes"
End If

[G.hemati]

با سلام

دوست گرامی قالب صحیح از تابع msgbox سه کلیده ، به صورت زیر است سعی کن خواسته خودت را در قالب زیر در آوری ممنون دوست گرامی
ولی مشکل من نحوه به کار گیری قالب Msgbox نیست

من میخوام یه شرط بزارم که اگر اون شرط برقرار بود Msgbox از نوع Yes\No فعال بشه که با انتخاب Yes یه عمل و انتخاب No عمل دیگری که تعریف شده است را انجام دهد

و اگه شرط برقرار نبود Msgbox فعال نشه

نمونه ضمیمه را ملاحظه بفرمایین

[hamid-nice]

1- اولین اشکال از فرمتان هست که خراب شده دستورات را به درستی اجرا نمی کند و من آنرا حذف کرده و فرم جدیدی ساختم

2- فایل ضمیمه مطابق آنچه خواستید اصلاح شده است
موفق باشید

[G.hemati]

با سلام و تشکر بابت وقتی که گذاشتین و زحمتی که کشیدین

من کد شما رو کمی خلاصه کرده و سعی کردم به صورت ساده ای بیان شود

ممنون میشوم نظرتان را در مورد صحیح یا غلط بودن آن بدانم

If Me.Text3.Value = 1 Then
Dim Msg As String
Msg = MsgBox("آیا مایل به نمایانسازی میباشید ؟, vbQuestion + vbYesNo, "توجه")
If Msg = vbNo Then
Text1.Visible = False
End If

If Msg = vbYes Then
Text1.Visible = True
End If
End If
End Sub

[hamid-nice]

توجه داشته باشید که برنامه ای می نویسید اگر بخواهید در runtime اجرا کنید در این حالت اگر در برنامه تان کوچکترین ایرادی وجود داشته باشد با پیغام runtime error مواجه خواهید شد اما در حالت غیر آن ممکن است ایرادی داشته باشد ولی اکسس آنرا کامپایل کند و پیغامی ندهد
در مورد msgbox خودم دقیقا با این موضوع برخورد کرده ام از این جهت هم بود که در پست قبل در مورد قالب msgbox هم تذکر دادم
در مورد خلاصه کردن شما ، mystring را به string تبدیل کردید که در اینصورت در حالت runtime تست نکردم نمیدانم ولی شما با سرچ کردن در این سایت برای اجرا در حالت runtime و تست آن مطالب مفیدی خواهید یافت
موفق باشید

[1830264753]

سلام دوستان من یه فایلی دارم که میخوام با دبل کلیک بتونم کمبو باکس رو جایگزین تکست باکس کنم
اگر تکست باکس پر بود ازم سوال بخواد که جایگزین بشه یا خیر
اگر هم خالی بود مستقیم و بدون سوال جایگزین شود