从另一种形式的组合框打开表单

时间:2016-09-27 23:51:03

标签: ms-access access-vba

我有一个名为DisplayForm的表单。在该表单中是一个组合框下拉列表,位于表单上的列顶部,标签通常位于该列的顶部。我想从该下拉菜单中选择一个项目并使用该位数据打开另一个表单。我从网上复制了一个例子,更改了名称,无法使其工作。这是代码;

If Not Me.NewRecord Then
DoCmd.OpenForm "AreaForm", _
    WhereCondition:="LArea=" & Me.AreaCBDrop
End If

Area是查询中字段的名称,该字段是表单的记录源,但是当我运行它时,它会打开一个msgbox,要求我输入peramater值。我也不明白IF是什么。我试过这个有和没有if但得到相同的结果。 Me.AreaCBDrop中包含正确的值,但哪里不起作用。

由于

由于

1 个答案:

答案 0 :(得分:1)

您的WHERE条件需要一个文本参数,但您没有提供预期的格式,因此需要一个。

使用单引号包围您的Me.AreaCBDrop,如下所示:

If Not Me.NewRecord Then
DoCmd.OpenForm "AreaForm", _
    WhereCondition:="LArea='" & Me.AreaCBDrop & "'"
End If