如何基于Microsoft Access中的梳理盒选择导航到窗体

时间:2017-07-21 14:53:34

标签: vba ms-access combobox

我正在为我的Microsoft Access数据库创建一个表单。我有一个组合框,我需要它根据用户点击的项目导航到表单。

我该怎么做?我知道它需要一些VBA代码,但到目前为止我尝试过的方法都没有。

我尝试导航的表单称为“Forms_Reports”

我目前的代码:

Private Sub Combo0_AfterUpdate()
    If Me.Combo0.Value = 1 Then
        DoCmd.OpenForm "Forms_Reports", acNormal
    End If
End Sub

1 个答案:

答案 0 :(得分:1)

您的代码基本上没问题,但您无法将其合并为一行。另外,我猜你的表单实际上只是命名为“Reports”。您不包括项目窗口中显示的Form_前缀。试试这个:

Private Sub Combo0_AfterUpdate()
    If Me.Combo0.Value = 1 Then
        DoCmd.OpenForm "Reports", acNormal
    End If
End Sub