Office: (Office 2016) DoCmd RunSql liefert Fehler in einer Funktion

Hallo Leute.

Mit der folgenden Code in "Private Sub" gibt es kein Problem. Alles läuft super.

Ich bruche diesen Code als Function, damit ich es aus einem Makro ausführen lassen möchte (oder muss).

Allerdings was in "Private Sub" funktioniert, funktioniert nicht als "Public Function" *frown.gif*

Code:

"DoCmd.RunSQL PreisUpdate" > "Syntaxfehler in UPDATE-Anweisung."

Wo ist der Wurm?

Danke im Voraus.
Bigdaddy

:)

 

Die Variable NeuerPreis ist ja nun mal nicht als Typ genau definiert.
Allerdings sollte man wissen, dass der Dezimaltrenner in der Oberfläche als Komma eingegeben wird ... aber an die SQL Anweisung als Punkt übergeben werden muss.

Code:

hilft hier vielleicht.

Und das Brimborium mit Ab- und wieder anschalten der Warnungen kannst Du sparen, wenn Du den SQL String an die Methode .Execute übergibst.
Code:

statt der letzten drei Zeilen.

 

Hinter einem Preis wird sich ziemlich sicher eine Dezimalzahl präsentieren. Eine solche ist entsprechend SQL-gerecht zu formatieren:
Code:

Neben dem "Wurm" sind die Codezeilen noch um einige Schlampigkeiten bereichert:
- Variablen ohne Typdeklaration
- DB-Variable als Luftloch

Das empfinde ich aus den genannten Gründen heraus als unwahr.

 

Hallo hcscherzer, danke für deine Interesse.

Kannst du bitte dein erster Code komplett mit meiner Formulieren?

Ich weiss jetzt nicht genau wo ich den "replace" einsetzen soll.

Sollte ich die Variable Vielleicht als single definieren? oder lieber Variant?

 

Hallo Ebs17 Danke auch dir für deine Interesse.

Habe ich Falsch formuliert, du hast Recht. Es hat nun in meinem Fall nicht Funktioniert.

Ich werde gleich eure Korrigierungen einsetzen... bis gleich.

 

Hallo Bigdaddy,

entferne mal die unnötigen Klammern in der SQL-Update Anweisung.
Die Referenz auf die Database cdb wird nur bei .Execute benötigt und kann bei Docmd.RunSQL komplett entfallen.

Wieso muß der Code eigentlich aus einem Makro ausführbar sein?
Man hätte das Ganze auch direkt als Makro schreiben können.

Und ganz nebenbei:
bei der Deklaration von Variablen und Funktionen sollten auch die Datentypen angegeben werden, auch wenn der Default ein Variant ist.

Ulrich

 

Hallo knobbi38, danke dir ebenfalls für deine Interesse

Die Unnötigen klammer habe ich alle entfernt. Immer noch Fehler.

"Man hätte das Ganze auch direkt als Makro schreiben können."

Ehrlich zugegeben bin ich kein Prof. Programmierer. Mehr oder weniger eher ein "Copy>Paste" Programmierer mit wenig wissen.

Ob ich das ganze in Makro umwandeln kann? Oh ooh, bin mir nicht sicher.

Wenn mir jemand doch einfach mein Code Richtig korrigieren könnte, würde ich mehr lernen.

 

Was aber nach eigenem Profil ausreicht, Computerkurse zu leiten. Autsch, die armen Lernwilligen.

 

Die Computerkurs-Teilnehmer lernen kein VBA oder ähnliches bei mir, sondern nur Excel und Access Oberfläche und Bedienung. Also nur Einsteigerkurse, daher reicht mein wissen Völlig aus, keine Sorge *Smilie .

 

Habe den Code nun wie folgt geändert aber leider noch mit Fehler.

Wenn ich Statt:

Code:

diesen Code:

Code:

eingebe Funktioniert das ganze.

Das Problem ist, dass aus "Forms!FRM_LAGER_HAFO!FRM_LAGER_UFO!LAGER_ID_F" der wert eine "Null" ist und nicht eine Zahl

Ich habe Versucht von "LAGER_ID_F" wert in eine Variable zu übergeben wie z.B.:

Code:

ergibt immer wieder NULL
Mein Problem ist nicht gelöst *rolleyes.gif*

 

Hallo,

mit C & P hat noch nie jemand etwas gelernt, also sollte versuchen, den Programmcode auch zu verstehen.

Du hast meine Frage aber auch noch nicht beantwortet, warum das als Makro ausführbar sein muß.

Immerhin hast du wohl keinen Syntax Error mehr, sondern dein Parameter enthält keinen gültigen Wert.

Hier mal zwei Links, bezüglich Verweise auf Steuerelemente in Formularen:
FAQ4Formulare
Forms: Refer to Form and Subform properties and controls

Ich hoffe doch, daß Feldname und Steuerelementname nicht identisch sind?!!! Wenn doch, sollte das besser geändert werden.

Ulrich

 

Hallo knobbi38,

so leihe bin ich nun auch wieder nicht. OK "Copy-Paste" Programmierer war ein bisschen übertrieben. Denn alles was ich Kopiere und einfüge lerne und verstehe ich zuerst. Schließlich allein mit C&P kann man doch nicht Programmieren. Mit C&P habe ich eigentlich nur die Schreibweise bzw. Syntax gemeint. Nur dabei hakt es manchmal, das ist alles. Ansonsten kenne ich mich wirklich gut mit VBA aus, bin nur kein Profi.

Zu deiner Frage:
"Du hast meine Frage aber auch noch nicht beantwortet, warum das als Makro ausführbar sein muss."

Ganz einfach. Weil gerade diese Frage mich zur Lösung gebracht hat. Denn inzwischen, Dank deiner Frage, habe ich das Makro gelöscht und als VBA eingegeben.

Manchmal ist man Übermüdet und Jemand muss einfach mal klatschen. *Smilie

Ganz ernst, Dank deine Frage habe ich mein Problem gelöst.

Des weiterem habe ich die Empfehlungen und Vorschläge von allen, die in diesem Thema beigetragen haben sehr wahrgenommen und auch befolgt.

Nochmals Herzlichen Dank an Alle
Bigdaddy

 

Code:

 

Hallo hcscherzer.

Dein Code hat Funktioniert allerdings musste ich nach WHERE alle klammer entfernen. Wie in meiner letzten Beitrag angedeutet, habe ich das Problem anderweitig gelöst, in dem ich das Makro weggelassen und in VBA geschrieben habe.
Trotzdem vielen Dank für dein Code. Werde ich auf jeden Fall aufbewahren.

Schöne Grüsse Alle, und Guten Rutsch *wink.gif*