打开窗体以在ComboBox上选择一个值-Ms Acces

时间:2018-09-11 17:33:33

标签: forms ms-access combobox access-vba

我想根据在comboBox上选择的值向特定记录打开表单。我已经编写了一个代码及其工作原理,但是在打开表单之前,它显示了一个带有输入字段的对话框,要求输入我想要的表单参数,我不希望VB代码询问。

DoCmd.OpenForm "Final_Exam", acNormal, , "[admclass] = " & Me.Combo4.Value & ""  

这是我编写的代码,要求是在单击按钮时打开表单,而没有任何对话框要求输入参数。谢谢

1 个答案:

答案 0 :(得分:0)

我发现从一个表单中打开另一个表单的最佳方法是使用OpenArgs。从表单1的按钮打开表单2时,请使用如下代码:

Private Sub cmdOpenOtherForm_Click()
    DoCmd.OpenForm FormName:="frmOtherForm", OpenArgs:=Me.Combo4.Value
End Sub

然后,在表格2的Load事件中,使用openargs设置过滤器:

Private Sub Form_Load()
    If Not IsNull(Me.OpenArgs) Then
        Me.Filter="[admclass]=""" & Me.OpenArgs & """"
        Me.FilterOn = True
    End If
End Sub

如果要过滤的字段是文本字段,请确保正确地对双引号进行转义(如上所述)。