باز شدن کمبو باکس زمان انتقال فوکس

when the user goes to a new control it will run the code and dropdown if it's a combo box

کمبو باکس سه قسمت دارد تکست باکس لیست باکس و دراپ داون 

زمانیکه کاربر به کنترل جدیدی میرود کد کار خواهد کرد و اگر کمبو باکس باشد DropDown میشود ( البته طبق گفته ی بالا در کنترل ها لوپ زده و گفته اگر ControlType کنترل acComboBox باشه DropDown انجام شود  ) که در رویداد GotFocus  هر کنترلی که کمبو باکس است می توانید به یک رویه کلی در همون آبجکت فرم ارجاع دهید.

Sub ControlName_GotFocus

DrowDownComboBox comboControl

End Sub

Public Sub DropDownComboBox(ComboControl As ComboBox)

  ComboControl.Dropdown

End Sub

DropDown MenuBar

نمایش منوبار بعد از کلیک کردن روی باتن در همان مختصات بعد از ساختن CommandBar از مجموعه ی DLL های  متصل به اکسس ، ولی قابلیت چپ چین شدن رو ندارند بنابراین در پروژه های فارسی کاربردی ندارند.

Public objPopup As Object

Private Sub Command13_Click()
    Set objPopup = CommandBars("Menu Bar")
    objPopup.ShowPopup
    Set objPopup = Nothing

End Sub