Question

我试图通过按钮点击将ComboBox中的名称从一种形式传递到另一种形式，我似乎无法让它工作。我不习惯使用MS Access，我确信这是一个简单的答案。这是我到目前为止所做的：

表格A：

Private Sub Command104_Click()
On Error GoTo Err_Command104_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Vol_Hrs"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Forms.Vol_Hours.Search.Value = Me.Combo94.Column(0)

Exit_Command104_Click:
    Exit Sub

Err_Command104_Click:
    MsgBox Err.Description
    Resume Exit_Command104_Click

End Sub

表格B：

Private Sub cmdAddNew_Click()
On Error GoTo Err_cmdAddNew_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    DoCmd.Close

    stDocName = "frmLookupScreen"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Forms.frmLookupScreen.Combo94.Value = Me.Search.Column(0)

Exit_cmdAddNew_Click:
    Exit Sub

Err_cmdAddNew_Click:
    MsgBox Err.Description
    Resume Exit_cmdAddNew_Click

End Sub

Answer 1

引用对象即文本框时使用此功能。

Forms!FormName!ObjectName.ObjectProperty = "Testing"

访问方法时，请使用此方法。

Forms!FormName.Form.Method.

说完了。当我在表单之间使用信息来拉取调用表单名称时，我发现它更容易。然后，我可以访问调用表单上的几乎所有信息。如果需要更新Combo或List框，更改文本，重新查询等，我还可以将数据推送回调用表单。

Private Sub Form_Load()

    Set frmPrevious = Screen.ActiveForm

    Me.tbText.value = frmPrevious.cbPassTest.value

End Sub

将该代码放入您正在调用的表单的LOAD（）中，然后您可以将所需内容拉出来。

将变量从一种形式传递到另一种形式

1 个答案: