ورود

View Full Version : پیغام در صورت مساوی بودن یا مساون نبودن مقدار


c4soft
دوشنبه 15 آذر 1389, 19:10 عصر
با سلام و عرض ادب
اشکال کد زیر که در نمونه پیوستی هست چی میتونه باشه؟!

If id = Text0 Then
MsgBox "ok"
Else
MsgBox "no"
End Ifبا تشکر
bemilove
دوشنبه 15 آذر 1389, 19:27 عصر
دقیقا توضیح دهید چه کار می خواهید بکنید
Zero Defect
دوشنبه 15 آذر 1389, 19:49 عصر
سلام

کد اشتباه نیست , یک خطای منطقی رخ داده ( Logical )

شما نباید دو نوع داده متفاوت رو با هم مقایسه کنید

Cstr مشکل شما رو حل میکنه

یه کم فکر کنید
c4soft
دوشنبه 15 آذر 1389, 21:03 عصر
با تشکر
من به این شکل با راهنمایی شما عمل کردم در صورت مساوی بودن عمل میکنه ولی در صورت غیر مساوی بودن خطا میده

If id = CStr(Val(Text0)) Then
MsgBox "ok"
Else
MsgBox "no"
End If
Zero Defect
دوشنبه 15 آذر 1389, 21:33 عصر
سلام


Private Sub Form_Open(Cancel As Integer)
Me.Text0 = Text10 * 50
If id = CStr(Text0) Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub
c4soft
دوشنبه 15 آذر 1389, 22:07 عصر
کلا از کدی که ارائه کردید بدور سیر میکردم:لبخند:
دست شما درد نکنه جناب پیروز مهر
موفق باشید