איך מציבים משתנה בmsgbox?

[Mr Chelo]

איך מציבים משתנה בmsgbox?

שלום.. אני רוצה להציב משתנה בתוך msgbox ואני לא מצליח ניסיתי להגדיר משתנה ולמקם אותו כך: Me.cb1.Checked = a If Me.cb1.Checked = True Then a = 1 MsgBox("the price is"(a) Else MsgBox("chose another item") אבל זה לא עובד לי.. כול התנאי לא עובד לא יודע למה...? מה שאני בעצם רוצה זה שהוא ברגע שאני מסמן את תיבה אז הוא יוציא לי את ערך a, וכאשר סתם סימנתי בטעות ואני רוצה לבטל את הסימון שלא יעשה כלום, אבל זה לא עובד משהוא יודע למה?

 

[שלמה47]

הקוד שלך שגוי

צריך להיות:

Option Explicit Dim a As Currency Private Sub Command1_Click() If Me.cb1.Value Then a = 1 MsgBox "The price is " & a Else MsgBox "Choose another Item" End If End Sub​

 

[Mr Chelo]

../images/Emo51.gif