我想根据在comboBox上选择的值向特定记录打开表单。我已经编写了一个代码及其工作原理,但是在打开表单之前,它显示了一个带有输入字段的对话框,要求输入我想要的表单参数,我不希望VB代码询问。
DoCmd.OpenForm "Final_Exam", acNormal, , "[admclass] = " & Me.Combo4.Value & ""
这是我编写的代码,要求是在单击按钮时打开表单,而没有任何对话框要求输入参数。谢谢
答案 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
如果要过滤的字段是文本字段,请确保正确地对双引号进行转义(如上所述)。