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

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

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

عندي في النموذج مربع نص اسمه "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.zipFetching info...

[ابو جودي]

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

[ابوخليل]

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

If Not IsNull(txtSaveOpérateur) Then Exit Sub

 

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

  في 23‏/8‏/2016 at 22:04, ابا جودى said:

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

Expand  

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

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

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

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

  في 23‏/8‏/2016 at 22:16, ابوخليل said:

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

If Not IsNull(txtSaveOpérateur) Then Exit Sub

 

Expand  

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

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

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

[AlwaZeeR]

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

 

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

::

تحياتي

waz-Navigation.rar

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

  في 24‏/8‏/2016 at 09:22, alwazeer said:

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

 

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

::

تحياتي

waz-Navigation.rarFetching info...

Expand  

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

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

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