حول isnull(dlookup)

[tiger wanted]

بسم الله الرحمن الرحيم 

حاولت استعمال دالة isnull(dlookup ("tab","text"))  مع كود if واظهار msgbox ولم يفلح الامر  هل هناك خطأ ارجو مساعدتنا فى كتابة الكود بشكل صحيح ولكم جزيل الشكر

[kkhalifa1960]

تفضل استاذ @tiger wanted الكود والشرح .

                       

Private Sub Command0_Click()
If IsNull(DLookup("Salary", "Table1")) Then
MsgBox "أدخل المبيعات"
End If
End Sub

                                                                               

تم تعديل مارس 30 بواسطه kkhalifa1960

[tiger wanted]

حاولت استعمال الكود فى حدث in current مرفق الصورة 

 

[Foksh]

14 دقائق مضت, tiger wanted said:

حاولت استعمال الكود فى حدث in current مرفق الصورة 

 

جرب الحدث عند التحميل أخي الكريم ، وليس عند الفتح أو الحالي

[tiger wanted]

هل هناك مايمنع عند الحالى 

مجرد استفهام 

[kkhalifa1960]

يا أخي الفاضل مجرد ملاحظة على كودك  then (("اسم الجدول","اسم الحقل")Dlookup)if isnull .أنت عاكسهم !! ,وبين (isnull) و (والقوس) لايوجد مسافة .

تم تعديل مارس 30 بواسطه kkhalifa1960

[Foksh]

47 دقائق مضت, tiger wanted said:

هل هناك مايمنع عند الحالى 

 

هل جربت الحل أولاً ؟؟

استخدام الدالة Dlookup يحتاج تأثير أو عنصر يستدعيها مثل زر أو أثناء تحميل النموذج . بينما في الحالي ليس هناك حدث . أتمنى أكون قدرت أوصل فكرتي بشكل واضح 

 

حتى لا تذهب الأفكار بعيداً ، ما قصدته

أن حدث ( في الحالي ) يتم تنفيذه عندما يتم تغيير السجل الحالي أو عند تحديد سجل جديد ، بينما يتم تنفيذ حدث ( عند التحميل ) عند بدء تحميل النموذج أو الاستعلام

تم تعديل مارس 30 بواسطه Foksh
توضيح

[kkhalifa1960]

تفضل أخي حلك هنا واليك الشرح والمرفق بطريقتان بزر أمر أو كما طلبت .

Private Sub Form_Current()
If Len(Me.Text1 & "") = 0 Then
MsgBox "أدخل المبيعات", vbCritical
Else
MsgBox "OK", vbInformation
End If
End Sub

               

DDTest112-2.rar

[tiger wanted]

بارك الله فيكم تم حل المشكلة