Question

我有一个主表单，其中包含两个列出no / product的coloumns。我已经为产品字段点击事件提供了vba代码，以打开包含所选产品的产品详细信息表单以及要编辑的详细信息。我给出了如下代码

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

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

当我点击产品时，它会显示一个输入框，同时输入值，打开产品详细信息并提供正确的信息。

我不想每次都输入产品名称。我希望在点击产品时直接使用，并打开产品详细信息。

请告诉我怎么做？

Answer 1

如果[Product]字段是文本数据类型，请在stLinkCriteria语句中附加带引号的OpenForm。

DoCmd.OpenForm stDocName, , , "Product = '" & stLinkCriteria & "'"

Answer 2

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

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

如何在点击事件中打开访问编辑的表单？

2 个答案: