5
Access Bericht öffnen mit Paramaterübergabe
Hallo,
ich habe eine Access 2003 DB von meinem Vorgänger, die ich bearbeite möchte.
Ich möchte einen Button erstellen, der mir auf Knopfdruck einen Bericht in der Vorschau anzeigt. Ich habe mal so angefangen
Private Sub Befehl26_Click()
DoCmd.OpenReport "Angebot Fax Frz", acViewPreview, , "AID= """ & Formulare!Angebot!AID & """"
End Sub
Es soll dann die ID des Angebots an den Bericht übergeben werden, damit genau dieser Datensatz angezeigt wird. Der Druckbutton ist nicht im Formular Angebot sondern in einem anderen Formular.
Ich bekomme beim Klick auf den Button immer die Fehlermeldung "Laufzeitfehler 424 - Objekt erforderlich". Irgendwas stimmt da mit der Where-Klausel nicht oder?
Gruß,
Oliver
ich habe eine Access 2003 DB von meinem Vorgänger, die ich bearbeite möchte.
Ich möchte einen Button erstellen, der mir auf Knopfdruck einen Bericht in der Vorschau anzeigt. Ich habe mal so angefangen
Private Sub Befehl26_Click()
DoCmd.OpenReport "Angebot Fax Frz", acViewPreview, , "AID= """ & Formulare!Angebot!AID & """"
End Sub
Es soll dann die ID des Angebots an den Bericht übergeben werden, damit genau dieser Datensatz angezeigt wird. Der Druckbutton ist nicht im Formular Angebot sondern in einem anderen Formular.
Ich bekomme beim Klick auf den Button immer die Fehlermeldung "Laufzeitfehler 424 - Objekt erforderlich". Irgendwas stimmt da mit der Where-Klausel nicht oder?
Gruß,
Oliver
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 206357
Url: https://administrator.de/forum/access-bericht-oeffnen-mit-paramateruebergabe-206357.html
Ausgedruckt am: 14.04.2025 um 04:04 Uhr
5 Kommentare
Neuester Kommentar
Moin,
sieht eigentlich korrekt aus. Geht denn der Bericht auf, wenn du manuell den Filter direkt in den Bericht einträgst oder dem darunterliegenden Query einträgst?
lg,
Slainte
sieht eigentlich korrekt aus. Geht denn der Bericht auf, wenn du manuell den Filter direkt in den Bericht einträgst oder dem darunterliegenden Query einträgst?
lg,
Slainte
Ich habe den Filter jetzt mal direkt in den Bericht eingetragen. Unter Eigenschaften-Filter: [AID]=[Formulare]![Angebot]![AID]
Wenn ich dann auf den Button klicke, fragt er noch einen Wert für ein Feld ab und dann sieht es so aus als ob der Bericht auf geht und direkt wieder zu geht. Das kann ich mir irgendwie nicht erklären.
Wenn ich dann auf den Button klicke, fragt er noch einen Wert für ein Feld ab und dann sieht es so aus als ob der Bericht auf geht und direkt wieder zu geht. Das kann ich mir irgendwie nicht erklären.
...fragt er noch einen Wert für ein Feld ab...
Das ist wohl das Problem. Evtl. Tippfehler? Oder ein Feld aus einem geshclossenen Formular?Hast Du ActiveX Steuerelemente auf dem Report? Barcodes o.ä.? Evtl. wird hier eines nicht mir einem Wert gefüllt.
Ich habe das Feld was noch abgefragt wurde gelöscht. Hat sich nichts geändert.
ActiveX oder Barcodes habe ich keine drauf. Der Bericht wurde vorher per Makro geöffnet, damit klappt auch alles. Aber weil Makros nicht mag wollte ich das Öffnen über VBA machen.
Im deutschen Access muß ich noch [Formulare]![Angebot]![AID] schreiben und nicht [Forms]![Angebot]![AID]? Oder kann man beides? Macht allerdings auch keinen Unterschied wenn ich das ändere.
ActiveX oder Barcodes habe ich keine drauf. Der Bericht wurde vorher per Makro geöffnet, damit klappt auch alles. Aber weil Makros nicht mag wollte ich das Öffnen über VBA machen.
Im deutschen Access muß ich noch [Formulare]![Angebot]![AID] schreiben und nicht [Forms]![Angebot]![AID]? Oder kann man beides? Macht allerdings auch keinen Unterschied wenn ich das ändere.
Jetzt hab ich es. Hochkomma war falsch, weil der Datentyp AutoWert ist und nicht Text.
So gehts jetzt
Private Sub Befehl26_Click()
DoCmd.OpenReport "Angebot Fax Frz", acViewPreview, , "[AID]= " & Nz(Forms!Angebot.AID, 0)
End Sub
So gehts jetzt
Private Sub Befehl26_Click()
DoCmd.OpenReport "Angebot Fax Frz", acViewPreview, , "[AID]= " & Nz(Forms!Angebot.AID, 0)
End Sub
