我正在为我的Microsoft Access数据库创建一个表单。我有一个组合框,我需要它根据用户点击的项目导航到表单。
我该怎么做?我知道它需要一些VBA代码,但到目前为止我尝试过的方法都没有。
我尝试导航的表单称为“Forms_Reports”
我目前的代码:
Private Sub Combo0_AfterUpdate()
If Me.Combo0.Value = 1 Then
DoCmd.OpenForm "Forms_Reports", acNormal
End If
End Sub
答案 0 :(得分:1)
您的代码基本上没问题,但您无法将其合并为一行。另外,我猜你的表单实际上只是命名为“Reports”。您不包括项目窗口中显示的Form_前缀。试试这个:
Private Sub Combo0_AfterUpdate()
If Me.Combo0.Value = 1 Then
DoCmd.OpenForm "Reports", acNormal
End If
End Sub