Ms access 基于表单中组合框的值创建报告

Ms access 基于表单中组合框的值创建报告,ms-access,vba,Ms Access,Vba,我需要帮助解决表单和报表的问题。我需要创建一个带有组合框的表单,该组合框通过一个按钮选择公司,以从组合框中查看包含所选公司某些值的报告。我该怎么做?我创建了组合框,当我按下预览按钮时,它会显示所有公司。有什么建议吗 以下是我的VBA代码: Option Compare Database Private Sub Button_Click() 'Forms!FormFirmKarnet.Visible = False DoCmd.OpenReport "FirmKarnet", a

我需要帮助解决表单和报表的问题。我需要创建一个带有组合框的表单,该组合框通过一个按钮选择公司,以从组合框中查看包含所选公司某些值的报告。我该怎么做?我创建了组合框,当我按下预览按钮时,它会显示所有公司。有什么建议吗

以下是我的VBA代码:

Option Compare Database

Private Sub Button_Click()
    'Forms!FormFirmKarnet.Visible = False
    DoCmd.OpenReport "FirmKarnet", acViewPreview
End Sub

Private Sub Close_Click()
    DoCmd.Close acForm, "FormFirmKarnet"
End Sub

Private Sub id_AfterUpdate()
    Forms!FormFirmKarnet!Code_company = Forms!FormFirmKarnet!id.Column(1)
End Sub

Private Sub id_LostFocus()
    Forms!FormFirmKarnet!code_company = Forms!FormFirmKarnet!id.Column(1)
End Sub

在这种情况下,您可以使用
中的
过滤器打开报告:

DoCmd.OpenReport "reportname", acViewPreview, , "Company_ID = " & Me.comboBoxName
这假定您的组合框有一个ID字段作为绑定列,该字段在报告查询中称为
Company\u ID

组合框不需要任何更多的代码,您可能只需要在打开报表之前检查是否选择了任何内容。

失去焦点事件通常不适用于上面显示的代码,因为每次有人在表单中单击选项卡时,它都会运行。“不起作用”没有任何进一步的描述或问题被理解为“…我已经放弃了,现在尝试成为一名伐木工人。”!它的工作:)对不起,我没有互联网来回答你!谢谢你,伙计