Kopieren in Tabelle

[Youssef]

hallo,
ich habe folgendes problem.
ich will in aus textfelder(ungebunden) die inhalte in einer   tabelle per Button click kopieren.
ich will das mit vba programm machen.

es geht  um ein kleines projekt und zwar kopieren von bestimmten daten aus dem vorhanden datensätze.

die tabelle ist als unterformular dargestellt, und beinhaltet WerkzeugIDs und die dazugehörigen merkmalen.

in dieser Tabelle tauchen aber auch werkzeugIDs wo die merkmalen teilweise fehlen, besonders  Vc und fz.

meine aufgabe ist :
ich muss die Vc und fz von einem  andern ID kopieren und zu dem werkzeugID einfügen.

wo bin ich jetzt:
-ich habe so gemacht dass ich einen datensatz anclicke, Vc und fz  in 2  textfelder mit der Benennung Vc und fz rüber kopiert...soweit gut
-ich habe ein code geschrieben, das mir die neue daten (jetzt aus felder Vc und fz) zur tabelle mit einem button click einfügt, leider funktioniert nicht (
der Code schaut so aus:

Code [Auswählen] Erweitern

Private Sub Datensatz_übertragen_Click()
Dim strSQL As String

strSQL = "INSERT INTO TMS_TDM_TOOLTECHNOLIST ( TOOLID,CUTSPEED,FEEDPTOOTH, PROCEDURE, TOOLTECHNOPOS, TOOLTECHNOLISTPOS ) VALUES ('" & _
                Me!txtTOOLID & "'," & _
                Me!txtCUTSPEED & "," & _
                Me!txtFEEDPTOOTH & ",'" & _
                Me!txtPROCEDURE & "', " & _
                Me!txtTOOLTECHNOPOS & " , " & _
                Me!txtTOOLTECHNOLISTPOS & "),"
CurrentDb.Execute (strSQL)
               
End Sub

ein screenshot ist im anhang
ich brauche euere hilfe....


LG Youssef

[MaggieMay]

Hallo,

leider funktioniert nicht

die Aussage ist ohne nähere Erklärungen über die Art und Weise des Nicht-Funktionierens bzw. Angabe von Fehlermeldungen wertlos.

Wenn du fehlende Daten ergänzen sollst, so brauchst du wohl eine Aktualisierungsabfrage und keine Anfügeabfrage.
Außerdem brauchst du ein Kriterium, um nur den gewünschten Datensatz zu ändern.

BTW:
Wo in deiner Abfrage findet man die Felder Vc und fz?

[el_gomero]

Hallo,

dass dort

http://forum.freeaccess.de/YaBB.pl?num=1430745949

kein Ergebnis für dich zustande kam, lag nicht an denen, die versucht haben dir zu helfen. Ausserdem sind das hier im wesentlichen die gleichen.

[Youssef]

Hallo MaggieMay,

die Datensätze von Tabelle Filter(unten) als unterformular  sind  die  von Tabelle TMS_TDM_TOOLTECHNOLIST.
Vc und fz  sind CUTSPEED und FEEDPTOOTH.  von Tabelle TMS_TDM_TOOLTECHNOLIST.
was meinst du mit :Außerdem brauchst du ein Kriterium, um nur den gewünschten Datensatz zu ändern...ich verstehe das leider nicht.
wie schauts aus mit einer Aktualisierungsabfrage!! wie geht das?
danke
LG Youssef

[Youssef]

mir es noch was eingefallen:
ein Kriterium wie TOOLID zb. oder ??

[Youssef]

hallo el_gomero,
es hat nicht mit den leute in andern Forum was zu tun, absolut gar nichtsssss.
Ich hatte nur ein Problem, dass wenn ich ein Code einfügen möchte ,  geht einfach nicht  und zeigt mir ein " - " Zeichen.

LG Youssef

[MaggieMay]

Hi,

eine Aktualisierungsabfrage könnte folgendermaßen aussehen:

Code [Auswählen] Erweitern

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

[Youssef]

hi,
ich werde die Aktualisierungsabfrage bei der nächsten gelegenheit ausprobieren.

Vielen Dank
Lg
Youssef

[Youssef]

Morgen MaggieMay:),

so schaut's aus  mit dem Code jetzt:

Code [Auswählen] Erweitern

Private Sub Button_Click()
Dim strSQL As String
strSQL = "Update TMS_TDM_TOOLTECHNOLIST " & _
             "Set CUTSPEED = " & Me!txtCUTSPEED & ", FEEDPTOOTH = " & str(Me!txtFEEDPTOOTH) & " " & _
             "Where TOOLID = " & Me!txtTOOLID

CurrentDb.Execute (strSQL)
End Sub

bei der Ausführung des Codes habe ich eine Fehlermeldung

Laufzeit '3061'
1 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben

bitte Hilfe

Lg
Youssef

[el_gomero]

Moin,

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] " & _ ...


[Youssef]

hi,zeigt immer noch die gleiche Fehler, Debuggen zeigt auf CurrentDb.Execute (strSQL)??!!
Lg
Youssef

[el_gomero]

zuerst - deinen post #5 hab ich jetzt erst gesehen. Das Problem mit dem einfügen von Code hatte ich auch schon. Liegt an Schlüsselworten wie Select, Update usw...

Zu deinem aktuellen Prob - ggf hast du mehr Felder mit strings, die sind dann alle nach dem Beispiel zu maskieren.

[Youssef]

hi ,
was heißt  maskieren??
kannst du mich bitte  villeicht das erklären.

LG
Youssef

[Youssef]

hi
meinst du so :

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) & _
             "', NAME       = '" & str(Me!txtName) & "' " & _
             "Where TOOLID = " & Me!txtTOOLID

CurrentDb.Execute (strSQL)

End Sub

[el_gomero]

wenn das alles Text ist, ja. Name ist ein sehr unglücklicher Bezeichner, weil für Access reserviert - solltest du umgehend ändern.