Kopieren in Tabelle

[Youssef]

Code [Auswählen] Erweitern

Private Sub Button_Click()
Dim strSQL As String

strSQL = "Update TMS_TDM_TOOLTECHNOLIST " & _
             "Set CUTSPEED  = '" & str(Me!txtCUTSPEED) & _
             "', FEEDPTOOTH = '" & str(Me!txtFEEDPTOOTH) & _
             "', PROCEDURE  = '" & str(Me!txtPROCEDURE) & "' " & _
             "Where TOOLID  = '" & Me!txtTOOLID

CurrentDb.Execute (strSQL)

End Sub

Fehlermeldung:
Laufzeitfehler '13'
Typen unverträglich

irgendwas stimmt nicht

[Youssef]

CUTSPEED : Zahl in der Tabelle
FEEDPTOOTH :Zahl in der Tabelle
PROCEDURE :text  in der Tabelle
TOOLID   :text  in der Tabelle

[Youssef]

Code [Auswählen] Erweitern

Private Sub Button_Click()
Dim strSQL As String

strSQL = "Update TMS_TDM_TOOLTECHNOLIST " & _
             "Set CUTSPEED  = " & Me!txtCUTSPEED & _
             "', FEEDPTOOTH = " & Me!txtFEEDPTOOTH & _
             "', PROCEDURE  = '" & str(Me!txtPROCEDURE) & "' " & _
             "Where TOOLID  = '" & str(Me!txtTOOLID)

CurrentDb.Execute (strSQL)

End Sub


immer noch die gleiche Fehlermeldung (

[MzKlMu]

Hallo,
bei Zahlen entfallen die Hochkomma. Und bei Text wird auch zum Schluss eines benötigt.

strSQL = "Update TMS_TDM_TOOLTECHNOLIST " & _
             "Set CUTSPEED  = " & Me!txtCUTSPEED & _
             ", FEEDPTOOTH = " & Me!txtFEEDPTOOTH & _
             ", PROCEDURE  = '" & Me!txtPROCEDURE & "'" & _
             " Where TOOLID  = '" & Me!txtTOOLID & "'"

[el_gomero]

so funzt es und ist imho besser lesbar

Code [Auswählen] Erweitern


strSQL = "Update TMS_TDM_TOOLTECHNOLIST " & _
              "Set CUTSPEED  = " & Me!txtCUTSPEED & ", " & _
              "FEEDPTOOTH = " & Me!txtFEEDPTOOTH & ", " & _
              "PROCEDURE  = '" & str(Me!txtPROCEDURE) & "' " & _
              "Where TOOLID  = '" & str(Me!txtTOOLID) & "' "

[Youssef]

immer noch die Gleiche Fehler : Laufzeit. '13' Typen unverträglich (

[el_gomero]

die Fehlermeldung ist ja aussagekräftig ... bist du sicher, dass ToolID ein Text ist? Und warum wird Procedure in Text konvertiert?

[Youssef]

bei mir ist der TOOLID bzw. PROCEDURE sicher als textdatentyp festgelegt.

in der Tabelle habe ich 3 Primärschlüssel vordefiniert...liegt das darin?
siehe Anhang

[el_gomero]

sollte nicht, du willst ja ein update, kein insert. Lass dir mal per debug.print das fertige Statement im Direktfenster ausgeben (ggf mit strg+g einschalten).

[Youssef]

ich habe leider nicht verstanden was du meinst .

ich will eigentlich ungebundene Felder Inhalte in einer Tabelle einfügen, da wo der ToolID keine werte noch hat.

hast du vielleicht eine andere Vorgehensweise???

[el_gomero]

du willst also anfügen? Dann spielt der zusammen gesetzte PK schon eine Rolle. Zudem schreien die feldnamen Procedure00 bis ProcedureXX geradezu nach Normalisierung.

[Youssef]

was ist PK ?

[el_gomero]

PK = PrimaryKey

[MaggieMay]

strings sind innerhalb des SQL-Statements zu maskieren, zB:

Code [Auswählen] Erweitern


... FEEDPTOOTH = [color=red][b]'[/b][/color]" & str(Me!txtFEEDPTOOTH) & "[color=red][b]'[/b][/color] " & _ ...


Ich hatte da die Str-Funktion eingesetzt, in der Annahme dass es sich bei "FEEDPTOOTH" um eine Kommazahl handelte. Zumindest konnte man das dem Screenshot entnehmen.
Gänsefüßchen sind dort fehl am Platz.

Bei Texten wird die Str-Funktion nicht benötigt.

[Hondo]

Hallo,
hier würde sich der Einsatz eines FilterStringBuilders lohnen - vorausgesetzt man weiss welche Datentypen die Felder haben.
Siehe das CodeArchiv auf access-codelib.net.

Gruß Andreas