Supportnet / Forum / Datenbanken
Bericht in Acces mittels VBA erstellen
Frage
Hallo, ich erstelle einen Bericht mittels VBA. Dazu folgende Codeauszüge
Set ctlText = CreateReportControl(frm.Name, acTextBox, acDetail, frm.RecordSource, TDFHier.Fields(Zaehler).Name, intDataX, intDataY)
MeinFeld = TDFHier.Fields(Zaehler).Name
ctlText.ControlSource = "=Wenn([" + MeinFeld + "]>0;[" + MeinFeld + "])"
Nun erscheint ein Laufzeitfehler, Der von ihnen eingegebene Ausdruck ist syntaktisch falsch.
Ich kann aber keinen Fehler erkennen
Antwort 1 von erik
Wenn du in VBA mit Schlüsselwörtern hantierst, dann musst du immer die englische Syntax verwenden. Die deutsche Syntax findest du ausschließlich im Abfrageeditor und im Eigenschaftsformular von Steuerelementen. In deinem Fall musst du die "Wenn" durch "IIf" ersetzen, sowie Semikolon durch Komma:
ctlText.ControlSource = "=IIf([" + MeinFeld + "]>0,[" + MeinFeld + "])"
ctlText.ControlSource = "=IIf([" + MeinFeld + "]>0,[" + MeinFeld + "])"
Antwort 2 von Chris50
Vielen Dank für den Hinweis