[samprg11]

السلام عليكم

 كيف حالكم جميعا

اخواني انا اريد ان انفذ شرط على قيمتين داخل البرنامج القيمة الاولا في تكست واحد والاخرى في تكست 2

والقيمة تحتوي على ارقام عشرية ولاكن عند تنفيذ الكود على الدالة الشريطية if

If Val(Text1.Text) = Val(Text2) Or Val(Text1.Text) = Val(Text2) + Val(Combo1.Text) Or Val(Text1.Text) = Val(Text2) - Val(Combo1.Text) Then

MsgBox "GGGG"
End If

كما تشاهدون هاذا الكود لا ينفذ الشرط حتى ولو كان صحيح 

حاولت استبدل القيم ووضعها في متغير Double وا Variant
ايضا لا يقبلو الشرط اي لا ينفذ الشرط القيمة حتى ولو كانت مطابقة

وهاذا ملف المشروع في المرفقات ارجاء من كان قادر على المساعدة لا يبخل علي وشكرا


  if.zip (الحجم : 1.17 ك ب / التحميلات : 33)