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

[بلال بلال]

السلام عليكم

لدي نموذج فرعي فيه اريد عند وضع الماوس أم الزر تظهر القائمة المسندلة

اليكم الصورة فيها الشرح

 

1 قاعدة بيانات.accdb _1146714590913439_8483909941377199527_n.bmp

تم تعديل منذ 2 ساعات بواسطه بلال بلال
توضيح

[ابو جودي]

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

Private m_LastForm As String
Private m_LastCombo As String

Public Function ToggleDropdCombo(frm As Form, ByVal strObjComboName As String) As Boolean
    On Error GoTo Err_Handler
    
    Dim strObjButtonName As String
    strObjButtonName = Screen.ActiveControl.Name
    
    If m_LastForm = frm.Name And m_LastCombo = strObjComboName Then
        frm.Controls(strObjButtonName).SetFocus
        GoTo Clean_Exit
    Else
        frm.Controls(strObjComboName).SetFocus
        frm.Controls(strObjComboName).Dropdown
        
        m_LastForm = frm.Name
        m_LastCombo = strObjComboName
    End If
    
    ToggleDropdCombo = True
    Exit Function

Reset_Exit:

Clean_Exit:
    m_LastForm = vbNullString
    m_LastCombo = vbNullString
    ToggleDropdCombo = True
    Exit Function

Err_Handler:
    m_LastForm = vbNullString
    m_LastCombo = vbNullString
    MsgBox Err.Description, vbExclamation, "ToggleDropdCombo"
    ToggleDropdCombo = False
End Function

على اعتبار ان زر الامر اسمه : ToggleButtonName
وان مربع السرد اسمه : ComboName
يكون الاستدعاء بالشكل التالى

Private Sub ToggleButtonName_Click()
    ToggleDropdCombo Me, "ComboName"
End Sub

ويستخدم نفس سطر الاستدعاء السابق مع زر أخر ومربع تحرير وسرد اخر فقط بتغير : ComboName الى اسم مربع التحرير والسرد الاخر

مرفق للتجربة

 

 

 

ComboDropdown.accdb

[ابو جودي]

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

 

ComboDropdown_V2.accdb