دوال التحقق من البيانات
دالة IsNull
If IsNull(Text1.Text) Then
("لا يوجد بيانات فى هذا الحقل") MsgBox
Else
("يوجد بيانات داخل صندوق النص")MsgBox
End If
IsNull Function Example
' مثال اخر
Dim MyVar, MyCheck
. MyCheck = IsNull( MyVar ) ' Returns False
"" = MyVar
. MyCheck = IsNull( MyVar ) ' Returns False
MyVar = Null
. MyCheck = IsNull( MyVar ) ' Returns True
msgbox MyCheck
تقوم هذه الدالة باختبار الحقل هل يوجد به بيانات أم لا .
دالة IsEmpty
Dim V1 As Variant, V2 As Variant,V3 As Variant, V4 As Variant
'قيمة صفر V1=0
'قيمة عددية V2=Null
'سلسلة عددية "" =V3
If Is Empty (V1) Then
"المتغير v1 فارغ " MsgBox
End If
If IsEmpty (V2) Then
"المتغير v2 فارغ " MsgBox
End If
If Is Empty (V3) Then
"المتغير v3 فارغ " MsgBox
End If
If Is Empty (V4) Then
" المتغير v4 فارغ " MsgBox
End If
والمخرجات الوحيدة التي ستحصل عليها من هذا البرنامج كما يلي
“فارغ V4 المتغير”
وذلك لأن كل المتغيرات الأخرى لديها نوع من البيانات أي أنه تم استهلالها فالمتغير V1 استهل بالصفر و المتغير V2 استهل بالقيمة العديمة والمتغير V3 استهل بالسلسلة العديمة أي أن كل متغير من هذه المتغيرات لدية قيمة مهما كان نوعها أما المتغير V4 فلم يستهل أصلا لأنه غير موجود في منطقة الإعلان عن المتغيرات .
تقوم هذه الدالة باختبار هل المتغير Boolean استهل أم لا ؟ ... وإرجاع القيمة True إذا كان المتغير قد استهل و القيمة False إذا لم يكن قد استهل فعلي سبيل المثال الإجراء الذي أعلن فيه عن المتغير لكن لم يخزن فيه أية بيانات يعتبر Empty وفي المثال ستعرف لماذا يختلف المتغير الفارغ Empty عن العديم Null والصفري .
يوضح المثال ما إذا كان المستخدم ادخل شيئا في الحقول أم لا ومنه تلاحظ ماذا يحدث عندما تطبق الدالة IsEmpty وعلي المتغير الذي لم يستهل فيه شئ .
دالة IsNumeric
لمثال 1
Dim ric as string
"ric="7.1342
(alaa=IsNumeric(ric
المثال 2
Dim ric as string
"ric="LM7.1342
(alaa=IsNumeric(ric
تستخدم لمعرفة ما إذا كان تعبير معين يدل على عدد أم لا فنحن ندخل للدالة تعبير من نوع Variant أو String فتختبر الدالة هذا التعبير هل يمكن التعامل مع هذا التعبير كعدد أم لا فإذا كان يمكن التعامل معه كعدد فإن الدالة IsNumeric ترجع بالقيمة True وإذا كان التعبير لا فإن الدالة ترجع بالقيمة False , فمثلا في المثال كان المتغير ric من نوع String ويحمل عدد معين و نريد أن نختبر هذا العدد هل يمكن التعامل معه كعدد أم لا وفي حالتنا هذه سوف تكون قيمة المتغير True لان المتغير ric يصلح لأن يكون عدد.
ستكون نتيجة المثال 1هي True لأن المتغير ric يحمل عددا بالفعل .
ستكون نتيجة المثال 2 هي False لأن المتغير ric لا يحمل عددا فقط بل عدد مع أحرف وهذا غير صالح للتعامل معه كعدد .
دالة VarType
(Function IsReal(VarArg As String
If VarType(VarArg) = 4 Or VarType(VarArg) = 5 Then
IsReal = True
Else
IsReal = False
End If
End Function
تستخدم هذه الدالة في معرفة نوع بيانات المتغير .
دالة IsError
(IsError(expression
يعيد قيمة boolean تحدد اذا كان تعبير ما هو قيمة خطا ام لا
الصيغة
دالة IsMissing
(IsMissing(argname
يرجع قيمة boolean تحدد اذا كان معامل اختياري من نوع variant قد مرر الى الاجراء ام لا
0 التعليقات:
إرسال تعليق
ما هو رايكم فى المدونة ؟ او يتم الاقتراح لاضافة اشياء اخرى ؟