Beitrag aus SmartTools Access Weekly
Bericht aus Listenfeld per Doppelklick drucken
Access 365 2024 2021 2019 2016 2013 2010
FRAGE Ich möchte den Anwendern meiner Datenbank eine komfortable Druckfunktion zur Verfügung stellen. In einem Listenfeld sind verschiedene Berichte aufgeführt. Nun möchte ich erreichen, dass der Anwender durch einen Doppelklick auf dieses Listenfeld den entsprechenden Bericht entweder in der Seitenansicht angezeigt bekommt oder ihn direkt ausdrucken kann. Den Code für den Aufruf des Berichtes habe ich, aber wie verbinde ich ihn mit einem Doppelklick auf einen Eintrag im Listenfeld?
U. Richter
ANTWORT Legen Sie unter der Liste zunächst ein Kontrollkästchen "cbPreview" mit der Beschriftung "Seitenansicht" und dem Standardwert "-1" an. Stellen Sie dann die Eigenschaft "Bei Doppelklick" der Liste auf den Eintrag "[Ereignisprozedur]" ein. Klicken Sie nun auf die Schaltfläche mit den drei Punkten, um den VBA-Editor zu öffnen und geben Sie folgende Anweisungen ein:
Dim strReport As String
strReport = Me.Listenfeld 'Berichtsname auslesen
If Me.cbPreview Then
DoCmd.OpenReport strReport, acViewPreview 'Seitenansicht
Else
DoCmd.OpenReport strReport, acViewNormal 'Drucken
End If 'Seitenansich? Drucken?
Bei einem Doppelklick auf einen Eintrag in der Liste wird nun geprüft, ob das Kontrollkästchen Seitenansicht aktiviert ist. Trifft das zu, öffnet sich der Bericht in der Seitenansicht, andernfalls wird er direkt auf den Drucker ausgegeben.