Access-o-Mania

Hallo,
ich brauche Unterstürzung wieder und zwar, gibt es eine möglichkeit mit dem INSERT... oder ähnliches Daten zu übertragen unter einem bestimmten ID-Nummer.
Das heißt wo der ID-Nummer zb.12345 auftaucht , die Daten A und B und C und Daten etc... dazu einordnen.

LG
Youssef

hier ist mein Code was ich bis jetzt gebastlet habe :-)
Private Sub Button_Click()
Dim strSQL As String
Dim dDatabase As Database
Set dDatabase = CurrentDb

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

Hallo,

1) bei Datentyp Text ist die str()-Funktion überflüssig.
2) bei der letzten Zuweisung fehlt das abschliessende Hochkomma und ein Leerzeichen.

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

Hallo Youssef,

Zitatich brauche Unterstürzung wieder

ich würde eher sagen "immer noch".

Denn es geht doch wohl immer noch um das alte Problem, aber du fängst immer wieder neue Threads an ohne die alten abzuschließen und ziehst immer wieder dieselben Fehler mit durch. Was soll das?

Du hattest bereits an anderer Stelle angegeben dass bspw. das Datenfeld TOOLID vom Typ Text ist und FEEDPTOOTH  eine Zahl. Und wir hatten bereits darauf hingewiesen, wie mit Texten und Zahlen im SQL-Code umzugehen ist.

Warum also immer wieder von vorne anfangen?!

Hallo MaggieMay,
ich bedanke mich beim allen :-).
Die Datentypen FEEDPTOOTH, CUTSPEED, PROCEDURE sind doch Zahlen, TOOLID ein Text.
Die alten Probleme sind gelöst worden und das habe ich auch erwähnt.
Ich mache nur einbisschen erweitern mit der Programmierung.Das einfügen in 2 Tabellen funktioniert einwandfrei, die 3 Tabelle ( mit Update) bis jetzt arbeite ich dran.
LG
Youssef

Hallo,
nach lange probiererei mit dem Update Abfrage, komme auf die Fehlermeldung (operation muss eine aktualisierbare abfrage verwenden)und keine Ahnung wie ich weiter machen kann :-((
Hier ist mein Code :
Private Sub Werkstoffeinfügen_Click()
Dim strSQL As String
Dim dDatabase As Database
Set dDatabase = CurrentDb
strSQL = "Update TMS_TDM_TOOLTECHNOEXV " & _
             "Set MATERIALID = '" & Me!txtMATERIALID & _
             "', MATERIALNAME  = '" & Me!txtMATERIALNAME & _
             "', MATERIALGROUPID = '" & Me!txtMATERIALGROUPID & _
             "' , MATERIALGROUPNAME = '" & Me!txtMATERIALGROUPNAME & _
             "' Where TOOLID = " & Me!txtTOOLID
CurrentDb.Execute strSQL
End Sub

Die Felder sind Text Felder.
Möchte damit, in der Tabelle (TMS_TDM_...)dort wo der TOOLID ist, die leeren Felder(MATERIAL, MATERIALNAME ....) ausfüllen.

Für weitere Hilfe, bin ich sehr Dankbar
LG
Youssef

Ich schätze mal, da fehlen wieder die Hochkommata um TOOLID...

Und bist du sicher, dass alle deine IDs vom Typ Text sind?

Moin,
alles ist von Typ Text.
aber was ist das mit "Óperation muss eine aktualisierbare abfrage verwenden" ??verstehe ich nicht!!!

Hallo,

ZitatDie Datentypen FEEDPTOOTH, CUTSPEED, PROCEDURE sind doch Zahlen, TOOLID ein Text.

Was jetzt? Alles Text oder nur TOOLID?

Private Sub Werkstoffeinfügen_Click()
Dim strSQL As String
strSQL = "Update TMS_TDM_TOOLTECHNOEXV Set "  & _
             "MATERIALID = " & Me!txtMATERIALID & ", " & _
             "MATERIALNAME  = " & Me!txtMATERIALNAME & ", " & _
             "MATERIALGROUPID = " & Me!txtMATERIALGROUPID & ", " & _
             "MATERIALGROUPNAME = " & Me!txtMATERIALGROUPNAME & _
             " Where TOOLID = '" & Me!txtTOOLID & "'"
CurrentDb.Execute strSQL
End Sub

Ich denke mal so wird es funktionieren - wobei der Name ToolID auf eine Zahl schließen lässt?!
Wenn du nicht sicher sein kannst dass in den Zahlenfeldern was drin steht, musst du dort überall nz(Ausdruck,0) schreiben, wobei Ausdruck hier deine Textfelder sind.

Andreas

Hallo Andreas,
Die Datentypen FEEDPTOOTH, CUTSPEED ... sind  Zahlen, das sind Felder von einer andern Tabelle.
ToolID in der Tabelle ist als TEXT vor defeniert.

Hi Andreas,
jetzt habe ich die Fehlermeldung = syntaxfehler(fehlender Operator) in Abfrageausdruck ' ST 37 - 2'.
Das ist von Materialname
Wenn ich die Hochkomma stelle bei Materialname, springt die Fehlermeldung zu den nächsten Materialgroupname und wieder Hochkomma stellen kommt die Fehlermeldung :
"Óperation muss eine aktualisierbare abfrage verwenden" ????

Hallo,
"ST 37 - 2" ist keine Zahl!!! Du hast doch gesagt alles Zahlen außer ToolID??

Jetzt gehst du bitte hin, öffnest in der VBA-IDE unter Ansicht das Direktfenster, und gibst in dem Fenster folgendes ein:
?strSQL
und Entertaste drücken.
Danach den ganzen angezeigten String hier posten.
Dann sehen wir weiter.

Gruß Andreas

für diese Tabelle ist ToolID und den Rest alles text.

Update TMS_TDM_TOOLTECHNOEXV   Set  MATERIALID = '1.0037' ,  MATERIALNAME  = 'ST 37-2' ,  MATERIALNAME00  = 'ST 37-2' ,  MATERIALGROUPID = '1.0' ,  MATERIALGROUPNAME = 'ALLGEMEINE BAUSTÄHLE',  MATERIALGROUPNAME00 = 'ALLGEMEINE BAUSTÄHLE'Where TOOLID = 'WERKZEUGE_1'

Hallo,
ich sehe nur Textfelder.
Insofern mal alle Bezeichner korrekt sind, solltest du den letzten Fehler eigentlich schon längst gesehen haben:
'ALLGEMEINE BAUSTÄHLE'Where
Da fehlt ein Leerzeichen vor Where.
Ich hatte doch auch geschrieben: " Where TOOLID =... ;-)

Gruß Andreas

Ok danke  ;D
Das Problem hat sich endlich mall gelöst...freue mich wie ein Schnitzel hhhhhhhhhh