通过在列表下拉组合框中选择它来访问 VBA 代码以转到另一个表单上的特定记录

Posted 2023-05-07

【中文标题】通过在列表下拉组合框中选择它来访问 VBA 代码以转到另一个表单上的特定记录

【英文标题】：Access VBA code to go to a specific record on another form via selecting it in a list drop down combo box

【发布时间】：2020-07-27 17:26:51

【问题描述】：

我有一个带有组合框的表单，其中包含位于不同表单上的工作列表，所有工作都有自己独特的记录。我希望能够单击组合框的下拉菜单，选择一个特定的工作，然后让它打开我选择的特定工作记录......努力想出一个 VBA 代码来做到这一点。任何人都可以帮忙吗？谢谢

【参考方案1】：

如果你想打开另一个窗体，只显示组合框中选择的记录，那么你可以使用控件的AfterUpdate 事件，并使用OpenForm 操作的“Where 条件”参数：

Private Sub cboSearch_AfterUpdate()
    On Error GoTo E_Handle
    DoCmd.OpenForm "frmData", , , "FileID=" & Me!cboSearch
sExit:
    On Error Resume Next
    Exit Sub
E_Handle:
    MsgBox Err.Description & vbCrLf & vbCrLf & "frmSearch!cboSearch_AfterUpdate", vbOKOnly + vbCritical, "Error: " & Err.Number
    Resume sExit
End Sub

问候，