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