كيف يمكن إلغاء حدث "عند الضغط" بشرط معين

[بوعبد الله محفوظ]

السلام عليكم ورحمة الله تعالى وبركاته

عندي في النموذج مربع نص اسمه "txtSaveOpérateur" 

أريد في حال كان مربع نص يحوي قيمة وتم الضغط على زر المراقبة لا يتم الدخول ويبق حيث هو

لقد أضفت الكود التالي

Private Sub navbtnControl_Click()
If Len(Trim(Me.txtSaveOpérateur) & vbNullString) <> 0 Then

MsgBox "لا تملك صلاحيات الدخول ، يرجى الإتصال بالمسؤول", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "دخول غير مصرح !"
Me.Undo
Cancel = True
End If

End Sub

لكن للأسف لم أنجح

بارك الله فيكم وفي علمكم

Navigation1.zip

[ابو جودي]

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

[ابوخليل]

واذا اردت حلا  اسهل   فهذا السطر يفي بالغرض

If Not IsNull(txtSaveOpérateur) Then Exit Sub

 

[بوعبد الله محفوظ]

6 ساعات مضت, ابا جودى said:

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

مشكوووووور أخونا الحبيب على اهتمامك

المشكلة التي بقيت لدي هي منعه من الدخول 

فكما لاحظت يتم ظهور الرسالة التحذيرية لكن رغم ذلك يمكنه الولوج إلى "المراقبة"

وأنا أريد أن أمنعه من ذلك

6 ساعات مضت, ابوخليل said:

واذا اردت حلا  اسهل   فهذا السطر يفي بالغرض

If Not IsNull(txtSaveOpérateur) Then Exit Sub

 

شرفتنا بدخولك سيدي الكريم أبو خليل

لقد جربته لكن للأسف لم ينجح معي

تم تعديل أغسطس 24, 2016 بواسطه بوعبد الله محفوظ

[AlwaZeeR]

السلام عليكم ورحمة الله وبركاته

 

تفضل اخي بوعبد الله 

::

تحياتي

waz-Navigation.rar

[بوعبد الله محفوظ]

8 ساعات مضت, alwazeer said:

السلام عليكم ورحمة الله وبركاته

 

تفضل اخي بوعبد الله 

::

تحياتي

waz-Navigation.rar

شرفتنا أخي الحبيب الوزير

هو بالضبط ما أريد

رفع الله قدرك في الدارين