اظهار اسم عنصر التحكم في رسالة

اخي الفاضل طارق العيد

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

استخدم هذا الكود لمعرفة رقم عنصر الجدولة واسم عنصر التحكم

Private Sub ttt_DblClick(Cancel As Integer)
MsgBox "TabIndex : " & Me.ttt.TabIndex & vbNewLine & "NameIndex : " & Me.Controls(2).Name
End Sub

قم بتغيير الأرقام حسب ما هو موجود لديك في النموذج

TabIndex&Name.rar

بالتوفيق

Dim ctl As Control

Dim prp As Property

Dim ii As Integer

ii = Me.TextBox.Value

On Error GoTo props_err

For Each ctl In Me.Controls

'MsgBox ctl.Properties("Name")

For Each prp In ctl.Properties

If prp.Name = "TabIndex" Then

If prp.Value = ii Then

MsgBox vbTab & ctl.Name & " = " & prp.Value

End If

End If

Next prp

Next ctl

props_exit:

Set ctl = Nothing

Set prp = Nothing

Exit Sub

props_err:

If Err = 2187 Then

Debug.Print vbTab & prp.Name & " = Only available at design time."

Resume Next

Else

Debug.Print vbTab & prp.Name & " = Error Occurred: " & Err.Description

Resume Next

End If

ولاحظ اخي في السطر الرابع يوجد كلمة TextBox فابدلها باسم الحقل الذي سوف تدخل به رقم الفهرسة وإن شاء الله ينفع به الجميع

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

الاخ الفاضل موودي اشكرك على الرد والتجاوب وما قصرت ... شكرا جزيلا

كود الاخت الاستاذه زهرة دائما وابدا 100%

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

وإن شاء الله اجد الحل بالافكار الذكيه التي قدمت من الاخت زهرة والاخ مووودي مشكورين ، واتمنى كذلك ان اجد الحل منكم مشكورين . ((يوجد ملف مرفق))

TabIndex&Name2.rar