Access-o-Mania

Hallo an alle,
habe schon wieder ein Problem. Ich habe in einem Formular ein Listenfeld eingefügt. Ich möchte nun, wenn ich in meinem Listenfeld einen eintrag anklicke, dass der angezeigte Datensatz in einem Bericht angezeigt wird und dann ausgedruckt werden kann. Dazu habe ich eine Schlatfläche eingefügt und folgenden Befehl hinterlegt:
Private Sub cmdDrucken_Click()
If IsNull(Liste18) Then
   MsgBox "Bitte geben Sie ein Rezept aus!"
   Exit Sub
End If

DoCmd.OpenReport "rptRezept", acViewPreview, , "rez_id=" & Me!rez_id
End Sub
Leider kommt aber immer die Meldung "Laufzeitfehler 2103) habe schon alles auf Schreibfehler gecheckt, aber nichts gefunden. Was habe ich falsch gemacht?
Doris

Hallo,

ZitatLeider kommt aber immer die Meldung "Laufzeitfehler 2103)

für den Laufzeitfehler 2103 nimmt man die Lösung 3344   ???
Bitte zitiere auch den Text der Fehlermeldung vollständig, mit der Nummer kann man nichts anfangen.

Welchen Datentyp hat denn rez_id, Text oder Zahl?

Hallo Doris,

Zitat

Code [Auswählen] Erweitern

Private Sub cmdDrucken_Click()
If IsNull(Liste18) Then
   MsgBox "Bitte geben Sie ein Rezept aus!"
   Exit Sub
End If

DoCmd.OpenReport "rptRezept", acViewPreview, , "rez_id=" & Me!rez_id
End Sub


Wie wird denn Me!rez_id befüllt?

ZitatIch möchte nun, wenn ich in meinem Listenfeld einen eintrag anklicke, dass der angezeigte Datensatz in einem Bericht angezeigt wird und dann ausgedruckt werden kann.

Dann sollte, unter der Voraussetzung, dass die Liste auch eine rez_id zurückgibt, der Aufruf des Berichts so aussehen:

DoCmd.OpenReport "rptRezept", acViewPreview, , "rez_id=" & Me!Liste18.Value

hth
gruss ekkehard

Hallo,
der Datentyp rez_id ist Autowert, weil Primärkey also Zahl. Die Fehlermeldung lautet genau:
"Laufzeitfehler 2103
Der Berichtsname "rptRezept", den Sie entweder in das Eigenschaftsfenster oder in ein Makro eingegeben haben, ist falsch geschrieben, oder verweist auf einen Bericht, der nicht vorhanden ist."
Die Abfrage ist aber da und Schreibfehler kann ich auch keine finden
Auch wenn ich das ändere in "Liste18.Value kommt der selbe fehler.
gruß doris

Hallo,

ZitatDie Abfrage ist aber da und Schreibfehler kann ich auch keine finden

Es geht um den Namen eines Berichts und nicht um eine Abfrage!

Die Fehlermeldung besagt explizit, dass es den angegebenen Bericht mit diesem Namen nicht gibt.