نقص در شروط مقایسه ای

[dllsysip]

با سلام و عرض ادب

یک فرم Unbound و سه تا تکست دارم
تکست اول با یک باتون و یا بصورت دستی مقدار دهی میشه
تکست دوم خالی و بصورت دستی مقدار میگیره
و تکست سوم پیغام رو میرسونه

چنانچه تکست اول بصورت پیش فرض پر بشه نتیجه عملیات با نقص مواجه میشه و اگه بصورت دستی وارد بشه نتیجه موفقیت آمیز خواهد بود.


If txt_1 > txt_2 Or txt_1 = txt_2 Then
txt_3 = "True!"
Else
txt_3 = "False!"
End If

[amirzazadeh]

سلام
كدها رو به اين شكل اصلاح كنيد:

Private Sub cmd_2_Click()
If CInt(txt_1) > CInt(txt_2) Or CInt(txt_1) = CInt(txt_2) Thentxt_3 = "True!"
Elsetxt_3 = "False!"
End If
End Sub