Office: (Office 2016) Werte aus Endlosformular je Datensatz in Tabelle ergänzen

Guten Abend zusammen,

ich habe ein Endlosformular das auf einer Tabelle (tbl_Leistung) basiert.
Die im unteren Teil angezeigten roten Angaben sollen bei Auswahl des JA/Nein-Kästchens "Fertig" in der Tabelle dem entsprechenden Datensatz hinzugefügt werden.

Wie stelle ich das an ?
Danke Jens

:)

 

Leider funktioniert der nachfolgende Code nicht wegen:

Laufzeitfehler 3144:
Syntaxfehler in Update-Anweisung

Code:

 

Mach den ,* hinten weg

 

Wie meinst Du das ?

Der Code hängt sich eigentlich immer nur an der folgenden Stelle auf: DoCmd.RunSQL SQL

 

Schau dir halt den Abfragestring an...

 

Guten Morgen,

ich find' da leider keinen Fehler.

 

Ich komme einfach nicht weiter ... kann mir bitte noch jemand helfen ?

 

Deutlicher kann ichs dann wirklich nicht mehr machen, falls das auch nicht helfen sollte.

Bei genauerem Hinsehen ist aber festzustellen, dass die ganze Abfrage syntaktisch falsch ist.
Hattest du eine Anfügeabfrage anstelle einer Aktualisierungsabfrage im KOpf ???

Da fehlt der FROM Teil der Unterfrage, im Update ist kein SET drin.
In der Abfrage gibt es auch keine Einschränkung. D.h. bei richtiger Syntax, würdest du alle Datensätze mit den Kombiwerten überschreiben.

Formal sieht eine Update-Abfrage so aus
Code:

Ich weiß nicht, wie du auf diesen Mischmasch deines Strings kommst.


Im Übrigen ist SQL als Variablennamen tabu -> reserviertees Wort
Anstelle des Docmd.
solltest du .Excecute für den Abfragestring "strSQL" verwenden.

 

Hallo und danke Fred,

habe es angepasst.

strSQL = "Update tbl_Leistung (Datum, Schicht, Schichtkonstellation, Vermerk, SchichtTeamleiter, Kontrolleur) SELECT '" & Me.Text119.Value & "' AS Datum, '" & Me.Kombinationsfeld113.[Column](1) & "' AS Schicht, '" & Me.Kombinationsfeld117.[Column](1) & "' AS Schichtkonstellation, '" & Me.Kombinationsfeld140.Value & "' AS Vermerk, '" & Me.Kombinationsfeld135.[Column](1) & "' AS SchichtTeamleiter, '" & Me.Kombinationsfeld133.[Column](1) & "' AS Kontrolleur ;"
Excecute.RunSQL strSQL

Nun kommt Laufzeitfehler 424:
Objekt erforderlich

 

siehe meine Ergänzungen im letzten Beitrag.

Kombinationsfeld133 ... usw.
ist natürlich Quark. Gib deinen Kombis sprechende Namen.

 

Also der Datensatz ist bereits vorhanden und die betreffenden Felder sind in der Tabelle LEER und sollen mit den Werten aus dem Formular des betreffenden Datensatzes befüllt werden. Somit soll es eine Aktualisierungsabfrage sein.


strSQL = "Update tbl_Leistung Set (Datum, Schicht, Schichtkonstellation, Vermerk, SchichtTeamleiter, Kontrolleur) SELECT '" & Me.Text119.Value & "' AS Datum, '" & Me.Kombinationsfeld113.[Column](1) & "' AS Schicht, '" & Me.Kombinationsfeld117.[Column](1) & "' AS Schichtkonstellation, '" & Me.Kombinationsfeld140.Value & "' AS Vermerk, '" & Me.Kombinationsfeld135.[Column](1) & "' AS SchichtTeamleiter, '" & Me.Kombinationsfeld133.[Column](1) & "' AS Kontrolleur ;"
WHERE Me.ID.Value = tbl_Leistung.ID
Excecute.RunSQL strSQL

Jetzt wird die WHERE-Klausel von Access bei der Prüfung angemeckert. *frown.gif*

 

Ich weiß nicht wie ich dir noch helfen kann/soll.
Ich habe sehr deutlich ausgeführt, dass das mit dem SELECT keine gültige Syntax für eine UPDATE Abfrage ist !

Den formalen Aufbau einer UPDATE-Abfrage findest du ebenso im letzten Tweet.
Warum also führst du deinen misslungenen Versuch fort ?

Und wie das so usus ist im Forum, bitte Abfragen in Code-Tags.

Bzgl. deines WHERE-Kriteriums.
Im String obendrüber ist es dir gelungen den Wert eines Kombis syntakisch richtig in den String einzubauen, warum machst du es beim Kriterium dann falsch ?

Warum überhaupt der ganze Tanz ?
Warum bindest du die Kombis nicht einfach im Formular an Tabellenfelder ?

 

Das SELECT habe ich nun entfernt.
Ich programmiere das als Laie einfach nur neben der regulären Arbeit her. Genau deswegen stell' ich mich zumal etwas dusselig an.

Die im Endlosformular angezeigten Datensätze sollen beim Anklicken des FERTIG-Häckchens einfach um die Informationen in roter Schrift ergänzt werden.


Ich krieg's einfach nicht hin. *frown.gif*

 

Deine SQL-Anweisung ist ein Mischmasch aus Update und Insert. Außerdem solltest du den .Execute-Befehl auch richtig einsetzen.
Siehe Beispiel unten, den Rest solltest du dann selber hinkriegen.
Code:

Ich würde mal vermuten, dass da noch einige Anpassungen wegen der Datentypen nötig sein werden.
maike

 

Ich verstehe, das s du Laie bist, aber try and error ist nicht hilfreich.
Es macht doch dann mehr Sinn, kurz in Google nachzulesen wie eine UPDATE-Abfrage in Access aussieht.
Oder mal im Entwurfsmodus im Abfrageeditor eine Update-Abfrage bauen und schauen, was der Assistent zusammenbaut.

Und nochmal die Frage:
Warum sind die Felder, die du im Screen im ersten Post zeigst, nicht einfach an die Tabelle gebunden ?
Das erspart dir die Update-Abfrage.

benenne die Kombinationsfelder sinngemäß um, du tust dir damit selbst einen Gefallen.
Es scheint auch so, dass dein Datenmodell nicht normalisiert ist oder warum, werden Texte anstelle von Schlüsselfeldern geschrieben ?