0

我有一个包含两个列的主表单，其中列出了一个否/产品。我已经为产品字段单击事件提供了 vba 代码，以使用所选产品打开产品详细信息表单，并对其详细信息进行编辑。我给出的代码如下

Dim stDocName As String
    Dim stLinkCriteria As String
    stLinkCriteria = Me.Product

    stDocName = "ProductDetail"
    DoCmd.openform stDocName, , , "Product = " & stLinkCriteria

当我单击产品时，它会显示一个输入框，并在输入值时打开带有正确信息的产品详细信息。

我不想每次都输入产品名称。我希望这可以在单击产品时直接工作，并且应该打开它的产品详细信息。

请让我知道怎么做？

4

2 回答 2

1

如果 [Product] 字段是文本数据类型，请在语句stLinkCriteria中用引号引起来。OpenForm

DoCmd.OpenForm stDocName, , , "Product = '" & stLinkCriteria & "'"
于 2012-06-16T06:58:44.127 回答
0

此代码帮助我解决上述问题

Forms!Frm.SetFocus 

Const FORMNAME = "frm1"


Dim ctrl As Control
Dim strCriteria As String

On Error GoTo Err_Handler

Set ctrl = Me.ActiveControl

strCriteria = "[Product] = """ & ctrl & """"


DoCmd.OpenForm FORMNAME, WhereCondition:=strCriteria

Exit_Here:
Exit Sub

Err_Handler:
MsgBox Err.Description, vbExclamation, "Error"
Resume Exit_Here
于 2012-06-21T04:49:24.733 回答