vba - VBA: Sub から関数を呼び出す

Question

Private Function DisplayReport()
    DoCmd.OpenReport List0, acViewNormal
End Function

Private Sub Command3_Click()

End Sub

Command3 がクリックされたときに DisplayReport() を呼び出す方法を見つけようとしています (これは Access 2010 にあります)。

これにより、List0 (リスト ボックス) で現在選択されているレポートが開かれることを願っています。これは適切な方法ですか？

編集：これが「信頼できる場所」の問題であることをどこかで読んだことから理解していると思いますか？これは何を意味し、どうすれば修正できますか?

Answer 1

Sub Command3_Click実行可能なステートメントが含まれていません。試す

Private Sub Command3_Click()
    DisplayReport
End Sub

また、On Clickボタンのイベント プロパティがハンドラーに関連付けられていることを確認します。その行が空の場合は、省略記号ボタン [...] をクリックし、[コード ビルダ] を選択します。

編集

これらの変更を行ってもイベントが発生しない場合は、データベースを閉じてから再度開きます。Access ウィンドウの上部に次のような警告が表示された場合...

セキュリティ警告一部のアクティブ コンテンツが無効になっています。詳細については、クリックしてください。

...次に、必ず [コンテンツを有効にする] ボタンをクリックしてください。

Answer 2

1. DisplayReport を関数のふりをしますが、実際には何も返しません
2. したがって、それを Sub に変更します。

  プライベートサブディスプレイレポート
      DoCmd.OpenReport List0、acViewNormal
  サブ終了

したがって、クリック ハンドラから呼び出します。

    プライベート サブ Command3_Click()
        DisplayReport を呼び出す
    サブ終了

Answer 3

これは Access 2010 の問題です。問題は、データベースが信頼されていないことでした。この設定を変更して、コードが正常に動作するようになりました。