MS Access Добавление фильтра FilterBar в форму

Question

У меня есть форма Microsoft Access, где у меня есть таблица данных. Я хочу, чтобы добавить панель фильтрации в форму в режиме MBE. Обратите внимание, что MBE не в режиме конструктора MDB. То есть Я хочу фильтр в распределенном MBE-файле.

В Form.Open случае я добавил:

Private Sub Form_Open(Cancel As Integer) 
    DoCmd.ShowToolbar "Ribbon", acToolbarYes 
    DoCmd.ShowToolbar "ribbonMain", acToolbarYes 
    DoCmd.ShowToolbar "Menu Bar", acToolbarYes 

End Sub 

Я также попытался

Private Sub Ctl__Click() 
    Dim db As DAO.Database 
    Dim prop As DAO.Property 
    Set db = CurrentDb() 
    DoCmd.ShowToolbar "Ribbon", acToolbarYes 
End Sub 

Кроме того, кнопка доступа -> Доступ Opiton -> Текущая база данных Под лентой и параметры панели инструментов: Проверены разрешенные встроенные панели инструментов. Кроме того, название ленты - «ribbonMain».

Я до сих пор не вижу Панель инструментов в верхней части формы. Что мне не хватает в настройках кода или доступа. Я работаю на MS Access 2003. Мне бы очень хотелось иметь такую ​​же фильтрацию, какую вы видите в режиме разработки таблицы в развернутом MBE-файле.

Answer 1

Я бы предложил поставить код в On load, даже вместо этого также DoCmd.ShowToolbar "Ribbon", acToolbarYes может вызвать ошибку в доступе 2003. Когда я строил свою базу данных, я нашел это сообщение полезным. http://www.access-programmers.co.uk/forums/showthread.php?t=97578