Problem bei der Speicherung von Datensätzen

06/05/2010 - 10:38 von Gerd Haseloff | Report spam
Hallo,

folgende Arbeitsumgebung: Win2000, Access 2000

Ich habe ein Formular mit ungebunden Feldern. Nachdem alle Daten
eingegeben wurden, sollen diese über einen Befehlsbutton abgespeichert
werden.

Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim sql1$
sql1 = "INSERT INTO daten(A,B,C,D,E) Select " & v2 & ", '" & v3 &
"','" & v4 & "','" & v5 & "','" & v6 & "'"
Set db = Currentb
CurrentDb.Execute (sql1)
Die Tabelle Daten enthàlt ein Primàrschlüsselfeld, welches automatisch
hochzàhlt.
Wenn ich nun den Button -speichern - anklicke, erscheint kein neuer
Datensatz in der Tabelle.
Nach nochmaligem Anklicken des Buttons, erscheint der Datensatz in der
Tabelle, jedoch wurde der Zàhler bzw. Primàrschlüssel um 2
hochgezàhlt.
Woraus resultiert dieses scheinbare Phànomen bzw. wo liegt mein
Fehler?

Grüsse Gerd
 

Lesen sie die antworten

#1 Peter Doering
06/05/2010 - 12:05 | Warnen spam
Hallo,

Gerd Haseloff wrote:

folgende Arbeitsumgebung: Win2000, Access 2000

Ich habe ein Formular mit ungebunden Feldern. Nachdem alle Daten
eingegeben wurden, sollen diese über einen Befehlsbutton abgespeichert
werden.

Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim sql1$



Dim sql1 As String

sql1 = "INSERT INTO daten(A,B,C,D,E) Select " & v2 & ", '" & v3 &
"','" & v4 & "','" & v5 & "','" & v6 & "'"



Hier kannst du schreiben:

sql1 = "INSERT INTO Daten ( A, B, C, D, E ) " & _
" VALUES ("& v2 &",'"& v3 &"','"& v4 &"','"& v5 &"','"& v6 &"')"

Set db = Currentb
CurrentDb.Execute (sql1)



db.Execute sql1, dbFailOnError

Die Tabelle Daten enthàlt ein Primàrschlüsselfeld, welches automatisch
hochzàhlt.
Wenn ich nun den Button -speichern - anklicke, erscheint kein neuer
Datensatz in der Tabelle.



Wie pruefst du das?
Welchen Button klickst du da? Zeig mal den Code.

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen