Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/variables/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Variables 将变量从一种形式传递到另一种形式_Variables_Ms Access - Fatal编程技术网

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

Variables 将变量从一种形式传递到另一种形式,variables,ms-access,Variables,Ms Access,我试图通过单击按钮将组合框中的名称从一个表单传递到另一个表单,但我似乎无法让它工作。我不习惯使用MS Access,我相信这是一个简单的答案。以下是我目前掌握的情况: 表格A: Private Sub Command104_Click() On Error GoTo Err_Command104_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Vol_Hrs" Do

我试图通过单击按钮将组合框中的名称从一个表单传递到另一个表单,但我似乎无法让它工作。我不习惯使用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

引用对象ie文本框时,请使用此选项

Forms!FormName!ObjectName.ObjectProperty = "Testing"
Forms!FormName.Form.Method.
访问方法时,请使用此选项

Forms!FormName!ObjectName.ObjectProperty = "Testing"
Forms!FormName.Form.Method.
话虽如此。当我在表单之间使用信息只是为了提取调用表单的名称时,我发现这要容易得多。然后,我就可以在那里查阅到通话表上的几乎所有信息。如果需要更新组合框或列表框、更改文本、重新查询等,我还可以将数据推回到调用表单

Private Sub Form_Load()

    Set frmPrevious = Screen.ActiveForm

    Me.tbText.value = frmPrevious.cbPassTest.value

End Sub

将该代码放入正在调用的表单的LOAD()中,然后您就可以提取出所需的内容。

Froms是您实际代码中的一个输入错误吗?如果是这样,它应该是
表单
(切换
o
r
)。我得到的错误如下A到B对象不支持此属性或方法B到A您输入的表达式引用的对象已关闭不存在该操作或方法无效,因为for或报表未绑定到表或查询,是定义linkcriteria时我得到的错误,之前,错误如前一条评论中所述。。非常感谢。