Как сделать, чтобы нажать на кнопку и открыть форму, предоставленную в значении в поле в Ms Access?

Question

Я открываю форму, как показано здесь: Как использовать комбинированный список для открытия определенной формы в Ms Access

Но у меня все еще есть проблема.Когда я нажимаю кнопку, она сразу открывает две формы.Что я хочу сделать, когда значение в выпадающем списке равно 1, это открыть только форму 1, а когда значение в выпадающем списке равно 2, открыть форму 2.

Должен ли я что-то исправить в своем макросе?Как мне это сделать?

Answer 1

Мне лично не нравится этот конструктор макросов.Вот правильный способ сделать это с VBA.

Выберите ваш комбинированный список и войдите в события.В событии После обновления удалите код макроса и вместо него добавьте код VBA, используя параметр «Построитель кода»

Ваш код должен быть следующим:

Private Sub ComboBoxColor_AfterUpdate()

    On Error GoTo Err_Handler

    Dim strForm As String

    Select Case ComboBoxColor.Value

        Case "Color1"
            strForm = "Form1"

        Case "Color2"
            strForm = "Form2"

        Case "Color3"
            strForm = "Form3"

        Case Else
            MsgBox "I don't know what to do with this combobox value"
            GoTo Exit_Sub
    End Select

    DoCmd.OpenForm strForm, acNormal

Exit_Sub:
    Exit Sub

Err_Handler:
    MsgBox Err.Description, vbExclamation, "Error " & Err.Number
    Resume Exit_Sub

End Sub

Адаптируйте ComboBoxColor с правильным именем и Form1 / Form2 / Form3 с именами ваших форм курса (и Color1 / Color2 / color3, если необходимо)