使用按钮打开表单记录

Question

我需要通过另一个表单上的按钮打开一个表单（货运），并将打开的表单记录在 "CustomerID" 的记录中，以便您可以轻松地向该客户添加新货运。有什么建议么？我试过使用宏无济于事，但代码让我望而却步。一切都通过关系下的客户 ID 链接。

我使用的是 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")。如果您的 table 的字段名称或文本框名称不同，您必须适当地编辑这些值。此外，您还必须将 'stDocName' 的值更改为您的表单名称。

使用按钮打开表单记录

open form record with button

ms-access

button