خطأ في خاصية IsNull لا تظهر في الحدث

[alhourriah]

مساء الخير الأخوة والأساتذة الكرام

يظهر لي هذا الخطأ في الكود عندما أطلب رسالة بادخال كلمة المرور

رغم ان خاصية IsNull لا تظهر عند كتابة If

مع الرجاء المساعدة في شرح الخطأ وطريقة تصحيحه

 

مع الاحترام

 

[Foksh]

الخطأ في كود التركيز على الحقل الفارغ

Me.Comb_User.SetFocus

 

[alhourriah]

48 دقائق مضت, Foksh said:

الخطأ في كود التركيز على الحقل الفارغ

Me.Comb_User.SetFocus

 

أستاذنا المحترم فادي

لاحظت مكان الخطأ ولكن ما هو الخطأ في الكود 😔

مع الاحترام

[Foksh]

4 دقائق مضت, alhourriah said:

أستاذنا المحترم فادي

لاحظت مكان الخطأ ولكن ما هو الخطأ في الكود 😔

مع الاحترام

اخي العزيز الخطأ ان اللأمر SetFocus ليس له اجراءات شرطية كما في الكود الذي كتبته انت ، فقط كما في التعديل التالي :-

5 دقائق مضت, alhourriah said:

Me.Comb_User.SetFocus

 

 

[alhourriah]

13 دقائق مضت, Foksh said:

اخي العزيز الخطأ ان اللأمر SetFocus ليس له اجراءات شرطية كما في الكود الذي كتبته انت ، فقط كما في التعديل التالي :-

 

اسمح لي ان اعود. اليك بعد التعديل ❤️

كل الاحترام 

[kkhalifa1960]

تفضل أخي التعديل @alhourriah التعديل .

If Len(Me.comp_user & "") = 0 Then
Beep
MsgBox "Put User Name", vbCritical
Undo
Me.comp_user.SetFocus
Exit Sub
End If

 

[alhourriah]

54 دقائق مضت, kkhalifa1960 said:

تفضل أخي التعديل @alhourriah التعديل .

If Len(Me.comp_user & "") = 0 Then
Beep
MsgBox "Put User Name", vbCritical
Undo
Me.comp_user.SetFocus
Exit Sub
End If

 

الاستاذ الغالي خليفة

كل الاحترام والتقدير والشكر الكبير

سأجرب التعديل بالغد ان شاء الله وأعود لك. ❤️

[alhourriah]

14 ساعات مضت, kkhalifa1960 said:

تفضل أخي التعديل @alhourriah التعديل .

If Len(Me.comp_user & "") = 0 Then
Beep
MsgBox "Put User Name", vbCritical
Undo
Me.comp_user.SetFocus
Exit Sub
End If

 

الأستاذ خليفة المحترم، كل الاحترام والتقدير، قضي الأمر بمعادلتك الكريمة ألف شكر يا باشا 🙂