الأخوة الأكارم مامعنى هذا الكود أرجو أن يتسع صدركم لي
Public Sub CheckValue()
Dim frm As Form
Dim ctl As Control
Dim varResult As Variant
' Return Form object variable pointing to Orders form.
Set frm = Forms!Orders
' Return Control object variable pointing to ShipRegion.
Set ctl = frm!ShipRegion
' Choose result based on value of control.
varResult = IIf(Nz(ctl.Value) = vbNullString, _
"No value.", "Value is " & ctl.Value & ".")
' Display result.
MsgBox varResult, vbExclamation
End Sub
أخي الكريم
السلام عليكم
يقوم هذا الكود بفحص القيمة الموجودة في الحقل المحدد وهو ShipRegion في النموذج المحدد وهو Orders
فإذا كانت القيمة هي null أي فارغة فيعرض رسالة لا يوجد قيمة أما إذا كان هناك قيمة فيعرض رسالة بالقيمة الموجودة في الحقل
ويلاحظ أن الكود يستخدم دالتين الأولى وهي IIf التي سبق أن شرحتها ضمن دوال تدفق البرنامج
ودالة nz التي تقوم بتحويل القيم الخالية إلى صفر
Dim frm As Form Dim ctl As Control Dim varResult As Variant Set frm = Forms!Orders Set ctl = frm!ShipRegion varResult = IIf(Nz(ctl.Value) = vbNullString, _ "No value.", "Value is " & ctl.Value & ".") MsgBox varResult, vbExclamation
تحياتي
أخوك / أبو هاجر
جزاك الله خيرآ وما أخطأ من رشحك لتكون أفضل عضو عن شهر شوال وإنني أعتبر ردك السهل الممتنع يجعلك في نظري أحب أخ ورب أخ لك لم تلده أمك أخوك محسن
هذا الموضوع مغلق.