Laufzeitfehler '0'

[AMB]

Hallo,
ich benötige mal bitte fachmännischen Rat.

Ich habe einen ungebundenen Bericht und möchte ein Textfeld mit VBA füllen.
Reports(Bericht).Report("txtC1").Value = DCount("ID", "qry040500129A", "LinieFS=1")

Ich bekomme die Fehlermeldung: Laufzeitfehler '0' reservierter Fehler.
Die Abfrage liegt lokal vor und funkioniert einwandfrei wenn man sie direkt aufruft.
Der VBA-Code funktioniert wenn eine andere (ähnliche) Abfrage gewählt wird.

Hat jemand eine Idee woran das liegen kann bzw. was der Fehler bedeutet?
Gruß Michael

[DF6GL]

Hallo,

zeige mal die gesamte Prozedur, in der der Code steht, bzw. ausgeführt wird.
Und wo im Bericht ist das Textfeld platziert?


Wenn der Bericht ungebunden ist, existiert das Textfeld gegebenenfalls nicht.

Wenn Dcount mit einer anderen Abfrage funktioniert, wird wohl die Funktion mit dieser Abfrage nichts zurückliefern....

[AMB]

Hallo Franz,

Und wo im Bericht ist das Textfeld platziert?
Wenn der Bericht ungebunden ist, existiert das Textfeld gegebenenfalls nicht.

Das Textfeld ist vorhanden und befindet sich im Detailbereich.

Wenn Dcount mit einer anderen Abfrage funktioniert, wird wohl die Funktion mit dieser Abfrage nichts zurückliefern....

Es muss wohl an der Abfrage liegen, mit einer anderen Abfrage läuft der Bericht einwandfrei durch.
Ich verstehe nur nicht was mit der Abfrage nicht stimmt. Es ist eine normale Abfrage, die entsprechenden Felder sind vorhanden. Wenn ich die Abfrage direkt anwerfe funktioniert sie ja einwandfrei.

Hier der gesamte Code:

Code [Auswählen] Erweitern


Private Sub Report_Load()

Me.txtTitel.Value = DLookup("Bezeichnung", "qry0405000", "ID=1")
Me.txtUntertitel.Value = "- " & Forms("frm0405001").Form("txtZeitraum1") & "  -  " & Forms("frm0405001").Form("txtZeitraum2") & " -"
Me.txtDatei.Value = DLookup("Kurzbezeichnung", "qry0405000", "ID=1")
Me.txtVersion.Value = DLookup("Version", "qry0405000", "ID=1")
Me.txtVersionDatum.Value = DLookup("VersionDatum", "qry0405000", "ID=1")
Me.txtDatum.Value = Date
Me.txtZeit.Value = Time()
   
Reports(Bericht).Report("txtC1").Value = DCount("ID", "qry040500129A", "LinieFS=1")
'Reports(Bericht).Report("txtC2").Value = DCount("ID", "qry040500129A", "LinieFS=2")
'Reports(Bericht).Report("txtC3").Value = DCount("ID", "qry040500129A", "LinieFS=3")
'Reports(Bericht).Report("txtC4").Value = DCount("ID", "qry040500129A", "LinieFS=4")
'Reports(Bericht).Report("txtC5").Value = DCount("ID", "qry040500129A", "LinieFS=5")
'Reports(Bericht).Report("txtC6").Value = DCount("ID", "qry040500129A", "LinieFS=6")
'Reports(Bericht).Report("txtC7").Value = DCount("ID", "qry040500129A", "LinieFS=7")
'Reports(Bericht).Report("txtC8").Value = DCount("ID", "qry040500129A", "LinieFS=1013")
'Reports(Bericht).Report("txtC9").Value = DCount("ID", "qry040500129A", "LinieFS=1014")
'Reports(Bericht).Report("txtC10").Value = DCount("ID", "qry040500129A", "LinieFS=1015")
'Reports(Bericht).Report("txtC11").Value = DCount("ID", "qry040500129A", "LinieFS=8")
'Reports(Bericht).Report("txtC12").Value = DCount("ID", "qry040500129A", "LinieFS=9")
'Reports(Bericht).Report("txtC13").Value = DCount("ID", "qry040500129A", "LinieFS=10")
'Reports(Bericht).Report("txtC14").Value = Reports(Bericht).Report("txtC1") + Reports(Bericht).Report("txtC2") + Reports(Bericht).Report("txtC3") + Reports(Bericht).Report("txtC4") + Reports(Bericht).Report("txtC5") + Reports(Bericht).Report("txtC6") + Reports(Bericht).Report("txtC7") + Reports(Bericht).Report("txtC8") + Reports(Bericht).Report("txtC9") + Reports(Bericht).Report("txtC10") + Reports(Bericht).Report("txtC11") + Reports(Bericht).Report("txtC12") + Reports(Bericht).Report("txtC13")

End Sub



Gruß Michael

[DF6GL]

Hallo,

der Detailbereich dürfte nicht existieren und damit das dort platzierte Textfeld.

Reports(Bericht).Report("txtC1").Value = DCount("ID", "qry040500129A", "LinieFS=1")

Was ist "Bericht"? Wo kommt das her? Ist damit der Bericht gemeint, in dem der Code steht/abläuft?

Und warum bindest Du den Bericht nicht an eine geeignete Abfrage und die Textfelder an die passenden Abfragespalten?


Zudem könntest Du die Zuweisung auf die Textfelder direkt mit

Code [Auswählen] Erweitern

Me!txtC1 = DCount("ID", "qry040500129A", "LinieFS=1") bewerkstelligen.

Ich denke, um noch ein bisschen weiter zu motzen  , dass das zugrundeliegende Tabellenmodell nicht optimal ist.

[AMB]

Hallo,

ich habe nun alle verknüpften Tabellen und Abfragen neu eingebunden.
Zwar weiß ich noch immer nicht, was genau das Problem war, aber es funktioniert jetzt.

Danke für die Unterstützung!

Gruß Michael