基于表单中的组合框创建报表

Question

我需要帮助解决表单和报告的问题。 我需要创建一个带有组合框的表单，该框选择具有按钮的公司，以便从组合框中查看具有选定公司的某些值的A REPORT。 我怎样才能做到这一点？ 我创建了组合框，当我按下预览按钮时，它会显示所有公司。 有什么建议么？

这是我的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

Answer 1

在这种情况下，您可以使用where过滤器打开报告：

DoCmd.OpenReport "reportname", acViewPreview, , "Company_ID = " & Me.comboBoxName

这假定您的comboBox具有ID字段作为绑定列，并且该字段在报告的查询中称为Company_ID 。 ComboBox不需要更多代码，您可能只需要在打开报告之前检查是否有任何选择。