Wie geben Sie in VBA den Namen einer zugrunde liegenden Abfrage für ein Berichtsobjekt zurück?

Question

Ich möchte den Namen einer Abfrage hinter einem bestimmten Bericht erhalten. Ich hatte gehofft, so etwas zu tun ...

Dim QueryName As String 
QueryName = CurrentProject.AllReports(MyReportName).RecordSource.Name 

Aber ich weiß, dass dies nicht funktioniert, aber ich möchte ein Mittel, dies zu tun finden. Gibt es etwas, das ich offensichtlich übersehen habe?

Answer 1

Sie müssen den Bericht öffnen, um auf diese Arten von Eigenschaften zugreifen zu können.

Öffnen Sie im Design-Modus, so dass Sie nicht wirklich das Ding laufen.

Dim QueryName As String 

DoCmd.OpenReport MyReportName, acViewDesign 

QueryName = Reports(MyReportName).RecordSource 

DoCmd.Close acReport, MyReportName