0

フォームやレポートの問題を解決するのに助けが必要です。コンボボックスから選択した会社のいくつかの値を含むレポートを表示するボタンのある会社を選択するコンボボックスを使用してフォームを作成する必要があります。これどうやってするの？コンボボックスを作成しました。プレビューボタンを押すと、すべての会社が表示されます。助言がありますか？

これが私の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
4

1 に答える 1

2

この場合、whereフィルター を使用してレポートを開くことができます。

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

これは、コンボボックスにバインドされた列としてIDフィールドがあり、そのフィールドがCompany_IDレポートのクエリで呼び出されることを前提としています。ComboBoxはこれ以上のコードを必要としません。レポートを開く前に、何かが選択されているかどうかを確認する必要がある場合があります。

于 2013-02-08T11:35:43.003 に答える