التعامل مع القيمة NULL

[خالد أبو هشام]

الزملاء الأعزاء تحية طيبة

عندى قاعدة بيانات يختار مدخل البيانات القسم من القائمة ليفتح نموذج بيانات الموظفين بالقسم و  قمت بوضع شرط عدم فتح النموذج إذا  لم يتم إختيار قيمة من القائمة (كانت قيمة القائمةNULL )

المشكلة فى حالة  مع عدم إختيار قيمة من المربع يعطى رساله خطأ على الشرط Invalid use of Null

مرفق ملف للتوضيح شاكرا لسيادتكم تعاونكم و مساهماتكم القيمة 

خالد

Data.rar

[أ / محمد صالح]

جرب تعديل كود زر الأمر إلى هذا الكود

If Not (IsNull(Me.Dept)) Then
DoCmd.OpenForm "Employees", , , "Dept =Forms!main!Dept"
Else
MsgBox ("تأكد من إدخال البيانات بشكل سليم")
End If

 

[jjafferr]

السلام عليكم

 

وبعد إذن الاستاذ محمد

 

اذا كان هناك حقل فاضي وليس Null ، مثلا عملت الاضافة التالية:

.

فاصبحت القيم

.

ولكي نستطيع ان نتجنب الحقول الفارغة و Null ، فيمكنك استخدام هذا الكود:

Private Sub Command6_Click()

    If Len(Me.Dept & "") <> 0 Then

        'DoCmd.OpenForm "Employees", , , "Dept =Forms!main![Dept].value"
        DoCmd.OpenForm "Employees", , , "Dept ='" & Me.Dept & "'"
    Else

        MsgBox ("تأكد من إدخال البيانات بشكل سليم")
    End If

End Sub

 

جعفر

[خالد أبو هشام]

الزملاء الأعزاء

سعادة الاستاذ محمد صالح و سعادة الاستاذ jjeffarr

تحية طيبة

ألف مليون شكر على مساهمات سيادتكم القيمة التى انارت لى عملى  حيث كانت خير معين على التغلب على هذه المشكلة

وقد أستخدمت مزيج من فكرتكم بعمل متغير  رقمى لإصطياد الخطأ و تجنبة

dim j as integer

if  Not (Isnull(Me.Dept))  then

J = val(Me.Dept)

End if

if  j<> 0   then

Docmd.openform"Employees",,, "Dept = Me.Dept"

else

Msgbox("تأكد من إخال البيانات بشكل سليم")

End if