Доступ - раскрывающийся список Открытая форма

Question

Пожалуйста, будьте осторожны, я новичок в доступе, но я пытаюсь создать список вниз, который открывает формы. Я сделал честный поиск Google и ничего не нашел.

В моем ComboBox как на «После обновления», так и на «Вкл.» Я пробовал код ниже ... Как с данными, так и без них в моем выпадающем списке.

Private Sub Combo1_AfterUpdate() 

    Select Case Combo1.Value 

     Case "Menu1" 
      DoCmd.OpenForm "Form1" 
     Case "Menu2" 
      DoCmd.OpenForm "Form2" 
     Case "Menu3" 
      DoCmd.OpenForm "Form3" 
End Sub 

Я также пробовал;

DoCmd.OpenForm Combo1.Value 

и добавление имен моей формы в ComboBox, но это тоже не сработает.

Спасибо заранее.

.Lee

Answer 1

Я просто сделал вид, используя второй метод, который вы пытались. Я хотел подтвердить, что это точный код, который вы использовали:

Private Sub Combo1_AfterUpdate() 
DoCmd.OpenForm Combo1.Value 
End Sub 

Этот способ проще. (По крайней мере, с точки зрения кодирования VBA). Вы можете использовать вкладку дизайн, чтобы положить выпадающий на форму, затем выберите «Я буду вводить значения, которые я хочу» вы затем сделать две колонки:

Column1  Column2 
Form1 name Display Name1 
Form2 name Display Name2 
Etc. 

После того, как вы создали выпадающий список нажмите на combobox в представлении дизайна и перейдите на лист свойств (в вкладке «Дизайн») и измените ширину столбца на 0 », что скроет первый столбец, но значение все равно будет привязано к выделению. Важно отметить, что поле со списком должно это два столбца для работы этого метода, и когда вы вводите значения непосредственно в лист свойств на вкладке данных в источнике строки, будут отображаться те же значения («Form1 name», «Display Name1», «Form2 Name»; «Display Name2» и т. Д.). Этот код должен работать довольно легко, но имена форм должны быть точными или вызвать ошибку. Сообщите мне, если это работает для вас.