اليوم هنتعرف على دالة جديدة و هى If.....Then......Else
هذه الاداه تستخدم لاختبار شرطين
على سبيل المثال نقوب بعمل برنامج به مربع كتابة Textbox
و زر Button و نكتب الكود به الموجود اسفل
في السطر الاول من الكود اختبرنا شرط ان اذا كان صندوق
الكتابة فاضي و غير مكتوب به اي شئ يصدر رسالة مكتوب بها
أملأ الحقل اما السطر الاخير قلنا انه ان لم يكن فاضي اذا يصدر
رسالة العملية تمت بنجاح.
يظهر خطأ بعد التنفيذ الا اذا اضفنا كلمة Trim قبل مربع النص
ردحذفIf Trim(TextBox1.Text) = "" Then
MsgBox("ادخل رقما للسجل الذي تريد حذفه")