Question

我需要从另一个表单上的按钮打开表单（发货）并将该打开的表单放在该客户ID的记录上，这样您就可以轻松地向该客户添加新的发货。有什么建议？我尝试使用宏无济于事，但代码躲过了我。一切都通过关系下的customerID链接。

我正在使用Access 2007。

Answer 1

创建一个名为btnOpenForm的新按钮，并将其添加到模块中：

Private Sub btnOpenForm_Click()
On Error GoTo Err_btnOpenForm_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmMyForm"
    stLinkCriteria = "[CustomerID] = '" & Me.CustomerID & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_btnOpenForm_Click:
    Exit Sub

Err_btnOpenForm_Click:
    MsgBox Err.Description
    Resume Exit_btnOpenForm_Click

End Sub

这里的关键是变量'stLinkCriteria'。您将其设置为包括字段名称（“CustomerID”）和要过滤的值（“Me.CustomerID”）。如果您的表格的字段名称或文本框名称不同，则必须适当地编辑这些值。此外，您还必须将'stDocName'的值更改为您的表单名称。

用按钮打开表单记录

1 个答案: