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
Ms access 使用vba从Access 2010中的其他表单中使用ID打开表单_Ms Access_Vba_Ms Access 2010 - Fatal编程技术网

Ms access 使用vba从Access 2010中的其他表单中使用ID打开表单

Ms access 使用vba从Access 2010中的其他表单中使用ID打开表单,ms-access,vba,ms-access-2010,Ms Access,Vba,Ms Access 2010,我正在尝试从另一个窗体中的按钮打开窗体。带有按钮的表单contracts\u all form具有字段ID,我想打开包含该ID信息的表单。第二个表单contracts具有附加信息,并具有允许编辑特定合同的按钮。我已经设法得到了一些东西,但它给了我一个“运行时错误2489”。格式合同未打开' 代码如下。提前谢谢 Private Sub Command74_Click() ID = [Forms]!Contracts_all![ID] DoCmd.GoToRecord acDataF

我正在尝试从另一个窗体中的按钮打开窗体。带有按钮的表单contracts\u all form具有字段ID,我想打开包含该ID信息的表单。第二个表单contracts具有附加信息,并具有允许编辑特定合同的按钮。我已经设法得到了一些东西,但它给了我一个“运行时错误2489”。格式合同未打开' 代码如下。提前谢谢

Private Sub Command74_Click()
    ID = [Forms]!Contracts_all![ID]
    DoCmd.GoToRecord acDataForm, "Contracts", ID
End Sub

我有答案。谢谢大家的帮助。我最后做的是从合同表格中获取ID,每次我重新打开合同表格。这是我的代码

Private Sub next_Click()
    On Error GoTo Err_next_Click
    DoCmd.SelectObject acForm, "contracts_all"
    DoCmd.GoToControl "ID"

    DoCmd.GoToRecord , , acNext
    DoCmd.OpenForm "Contracts", , , "ID = " & Forms!contracts_all![ID]

Exit_next_Click:
    Exit Sub

 Err_next_Click:
    MsgBox Err.Description
    Resume Exit_next_Click

 End Sub

我尝试了这段代码。但它给了我“找不到方法或数据集”。我是否遗漏了一些非常简单的东西?
Private Sub next_Click()
    On Error GoTo Err_next_Click
    DoCmd.SelectObject acForm, "contracts_all"
    DoCmd.GoToControl "ID"

    DoCmd.GoToRecord , , acNext
    DoCmd.OpenForm "Contracts", , , "ID = " & Forms!contracts_all![ID]

Exit_next_Click:
    Exit Sub

 Err_next_Click:
    MsgBox Err.Description
    Resume Exit_next_Click

 End Sub