لا يمكنك اخفاء عنصر تحكم يتضمن التركيز run-time error 2165

[ابو ميرال]

مسا الخير استاذه

عملت قوائم منسدلة وعندما انتقل ويمر موشر الفارة على الازرار في البداية تظهر رسالة 

لا يمكنك اخفاء عنصر تحكم يتضمن التركيز    run-time error 2165

وش الحل 

 

شكرا

[ابو جودي]

1 ساعه مضت, ابو ميرال said:

مسا الخير استاذه

عملت قوائم منسدلة وعندما انتقل ويمر موشر الفارة على الازرار في البداية تظهر رسالة 

لا يمكنك اخفاء عنصر تحكم يتضمن التركيز    run-time error 2165

وش الحل 

 

شكرا

ممكن مرفق 

[jjafferr]

12 ساعات مضت, ابو ميرال said:

لا يمكنك اخفاء عنصر تحكم يتضمن التركيز    run-time error 2165

وش الحل 

 

انت تريد ان تخفي كائن/كائنات في النموذج ، لذا ، يجب ان تجعل التركيز على كائن/حقل/زر آخر ، ثم يمكنك ان تجعل الكائن مخفي 🙂

وبعض الاوقات ما تهمك رسالة الخطأ ، لأن الفأرة تكون على جميع انواع الكائنات ، فالنموذج عندك يعمل بطريقة صحيحة ، ولا تريد هذه الرسالة ، لذا يجب ان تصطاد هذه الرسالة ، وتخبر الكود بالمواصلة ، شيء من هذا القبيل:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo err_Form_MouseMove

'...
'the code
'...

Exit_Form_MouseMove:

Exit Sub
err_Form_MouseMove:


    If Err.Number = 2165 Then
        'ignore
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
        Resume Exit_Form_MouseMove
    End If
    
End Sub

 

جعفر

[ابو ميرال]

يعطيك العافية  انا استخدم  on error resume next    وتمام الان الرسالة ماظهرت

لكن عندما افتح النموذج واخرج منه وانتقل الى النموذج التالي لازال النموذج الاول مفتوح على اني وضعت كود   واذا رجعت عليه بالفارة يختفي

Private Sub تفصيل_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Me.a1.Visible = False
Me.a2.Visible = False
Me.a3.Visible = False
Me.a4.Visible = False
Me.A5.Visible = False
Me.a6.Visible = False
Me.a7.Visible = False
Me.a8.Visible = False
Me.a9.Visible = False
End Sub

 

 

تم تعديل ديسمبر 22, 2021 بواسطه jjafferr
عمل تنسيق للكود بإستخدام زر القائمة <>

[jjafferr]

8 دقائق مضت, ابو ميرال said:

انا استخدم  on error resume next

همممم ، طريقتك توقف عمل جميع الرسائل التحذيرية في الكود ،

بينما انا اعطيتك الطريقة الصحيحة في التغلب على الرسالة بالذات !!

 

12 دقائق مضت, ابو ميرال said:

لكن عندما افتح النموذج واخرج منه وانتقل الى النموذج التالي لازال النموذج الاول مفتوح على اني وضعت كود   واذا رجعت عليه بالفارة يختفي

1. لم اجد كود اغلاق النموذج ،

2. قد يكون هناك رسالة تحذيرية اخرى في النموذج ، ولكنها لا تظهر بسبب استخدامك السطر اعلاه لإيقاف جميع الرسائل !!

 

جعفر

 

[ابو ميرال]

تمام  ابعدل الكود واشوف

[ابو ميرال]

نفس الكود طبقته  ونفس  المشكلة 

Private Sub b1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo err_Form_MouseMove

'...
Me.a1.Visible = True
Me.a2.Visible = False
Me.a3.Visible = False
Me.a4.Visible = False
Me.A5.Visible = False
Me.a6.Visible = False
Me.a7.Visible = False
Me.a8.Visible = False
Me.a9.Visible = False
'...

Exit_Form_MouseMove:

Exit Sub
err_Form_MouseMove:

    If Err.Number = 2165 Then
        'ignore
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
        Resume Exit_Form_MouseMove
    End If
End Sub

[jjafferr]

رجاء ، لما تريد ان تضع الكود في مشاركتك ،

1. انقر على هذا الزر :

.

2. الصق الكود هنا ، واعمل عليه التغيير الذي تحب :

.

 

 

 

نعود الى موضوغك:

رجاء ارفاق الجزئية من برنامجك الذي فيه مشكلة 🙂

 

جعفر

[ابو ميرال]

20 ساعات مضت, ابو جودي said:

ممكن مرفق 

 

البرنامج حجمه كبير ورفعته على رابط

تم تعديل ديسمبر 22, 2021 بواسطه jjafferr
تم حذف المرفق

[jjafferr]

اي نموذج؟

[jjafferr]

لقيت النموذج 🙂

 

انصحك بإستخدام القوائم المنسدلة في هذه المشاركة  ، والتي قام بها اخونا @Moosak :

 

.

فهي مشابهه لطريقة عرض قوائمك ، وخفيفة على البرنامج (بدل 9 نماذج فرعية) 🙂

 

جعفر

[jjafferr]

اعتقد هذا اللي تبحث عنه :

استعمل هذا الكود بدل الموجود عندك:

Private Sub تفصيل_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo err_Form_MouseMove

Try_Again:

'...
Me.a1.Visible = False
Me.a2.Visible = False
Me.a3.Visible = False
Me.a4.Visible = False
Me.A5.Visible = False
Me.a6.Visible = False
Me.a7.Visible = False
Me.a8.Visible = False
Me.a9.Visible = False
'...

Exit_Form_MouseMove:

Exit Sub
err_Form_MouseMove:


    If Err.Number = 2165 Then
        'set focus on another element, then hide it
        Me.b9.SetFocus
        Resume Try_Again
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
        Resume Exit_Form_MouseMove
    End If
End Sub

.

ولازلت انصحك بالمشاركة التي اشرت لك عليها 🙂

 

جعفر

[ابو ميرال]

تمام  الله يعطيك العافية استاذي   في الحقيقة عمل القوائم المنسدلة رائع  

 

شكرا لك