|
probleme mit daten an server zu schicken
|
| Autor |
Nachricht |
Gast
Verfasst am: 01. Aug 2006, 11:31 Rufname:
|
|
| |
|
Hallo zusammen,
ich habe folgendes Problem:
Ich will von einer DB die Ergebnisse an den Server schicken. Ich habe einen Pri. Key auf dem Feld [Testnr - Autowert] in der Tabelle. Wenn ja jetzt zwei User gleichzeitig an der DB arbeiten, bekommen sie ja nun die gleiche Testnr. Der erste User kann ja ohne Probleme die Daten hochspielen, aber sobald der 2 User das selbe tun will, kommt die Fehlermeldung Datensatz vorhanden. Wie kann ich nun das überprüfen lassen, ob der Datensatz schon vorhanden ist, wenn ja das er den Datensatz einfach um eins erhöht!
Dies ist der Befehl um die Daten zu expotieren (Bin leider blutiger Anfänger):
| Code: | Private Sub btn_export_Click()
Dim SQL1, SQL2, SQL3
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim i As Integer
Dim Anzahl As Integer
Dim dbs As DAO.Database
Set dbs = CurrentDb
SQL1 = "SELECT * FROM T_Testumgebung"
Set rst1 = dbs.OpenRecordset(SQL1)
rst1.MoveLast
rst1.MoveFirst
Anzahl = rst1.RecordCount
i = 1
Do
If i > Anzahl Then Exit Do
SQL2 = "SELECT * FROM T_Testumgebung1"
Set rst2 = dbs.OpenRecordset(SQL2)
Me!txtzahl.SetFocus
Me!txtzahl = i
rst2.AddNew
rst2![Testnr] = rst1![Testnr]
rst2![Tester] = rst1![Tester]
rst2![Karosserie] = rst1![Karosserie]
rst2![Baureihe] = rst1![Baureihe]
rst2![Finas-Nr] = rst1![Finas-Nr]
rst2![Charge] = rst1![Charge]
rst2![Getriebetyp] = rst1![Getriebetyp]
rst2![Modellpflege] = rst1![Modellpflege]
rst2![Motor] = rst1![Motor]
rst2![Wandler] = rst1![Wandler]
rst2![Allrad] = rst1![Allrad]
rst2![HAG] = rst1![HAG]
rst2![Übersetzung] = rst1![Übersetzung]
rst2![GelenkwelleVorne] = rst1![GelenkwelleVorne]
rst2![GelenkwelleHinten] = rst1![GelenkwelleHinten]
rst2![Fahrschemeltilger] = rst1![Fahrschemeltilger]
rst2![HAGTilger] = rst1![HAGTilger]
rst2![Schaltplatten] = rst1![Schaltplatten]
rst2![Getriebesoftware] = rst1![Getriebesoftware]
rst2![Wandlerkennlinie] = rst1![Wandlerkennlinie]
rst2![Turbinentorsionsdämpfer] = rst1![Turbinentorsionsdämpfer]
rst2![Seitenwellen] = rst1![Seitenwellen]
rst2![Seitenwellenmassen] = rst1![Seitenwellenmassen]
rst2![Getriebe] = rst1![Getriebe]
rst2![HA] = rst1![HA]
rst2![HAGLagerVorne] = rst1![HAGLagerVorne]
rst2![HAGLagerHinten] = rst1![HAGLagerHinten]
rst2![FahrschemellagerVorne] = rst1![FahrschemellagerVorne]
rst2![FahrschemellagerHinten] = rst1![FahrschemellagerHinten]
rst2![VAG] = rst1![VAG]
rst2![ÜbersetzungVAG] = rst1![ÜbersetzungVAG]
rst2![Besonderheiten] = rst1![Besonderheiten]
rst2![Zeit] = rst1![Zeit]
rst2.Update
i = i + 1
rst1.MoveNext
Loop
SQL3 = "DELETE * FROM T_Testumgebung"
DoCmd.RunSQL SQL3
dbs.Close
End Sub |
Gruß Steffen
|
|
Gast
Verfasst am: 03. Aug 2006, 10:21 Rufname:
|
|
| |
|
Hi,
Wenn Testnr der PrimaryKey und ein Autowert ist, darfst Du diesen nicht anfügen.
| Code: | | rst2![Testnr] = rst1![Testnr] | muß also raus
Gruß
|
|
Gast
Verfasst am: 03. Aug 2006, 12:15 Rufname:
|
|
| Verwandte Themen |
| Forum / Themen |
Antworten |
Autor |
Aufrufe |
Letzter Beitrag |
 |
Access Programmierung / VBA: Daten von mehreren Formularen in Wordvorlage |
38 |
Gast |
731 |
11. Feb 2010, 13:00 Michelle1  |
 |
Access Formulare: Gefilterte Daten im Listenfeld |
9 |
stubsy4 |
218 |
09. Nov 2009, 18:55 MiLie  |
 |
Access Formulare: Formular erstellen mit Daten aus mehreren Tabellen? |
6 |
zizou |
537 |
09. Okt 2009, 15:18 KlausMz  |
 |
Access Formulare: Daten im Ufo eingeben |
2 |
sonixxl |
111 |
09. Jun 2009, 08:06 sonixxl  |
 |
Access Formulare: Daten für Feld aus zwei Textfeldern zusammenstellen |
9 |
Dill |
221 |
11. Apr 2009, 18:45 Willi Wipp  |
 |
Access Programmierung / VBA: Daten aus dem Webshop importieren |
5 |
drakon |
115 |
22. März 2009, 22:01 Gast  |
 |
Access Formulare: Kombinationsfeld Daten in anderer Tabelle speichern |
3 |
Meister2008 |
207 |
02. März 2009, 19:00 KlausMz  |
 |
Access Programmierung / VBA: daten aus db nach word holen und in text einfügen |
8 |
jensspeedy |
514 |
16. Mai 2008, 00:48 jensspeedy  |
 |
Access Formulare: Daten aus mehren Tabellen und Abfragen zusammenstellen |
1 |
Sebo91 |
324 |
13. Aug 2007, 09:36 Robsl  |
 |
Access Programmierung / VBA: Endlosformular mit DAO Daten befüllen |
7 |
Lothar_OMC |
412 |
11. Mai 2007, 13:11 Lothar_OMC  |
 |
Access Formulare: Button im Formular um Daten einzuschränken |
4 |
klaus30 |
315 |
28. März 2007, 14:25 Willi Wipp  |
 |
Access Tabellen & Abfragen: Daten aus Tabelle automatisch in Abfragefelder einfügen |
6 |
rosert |
729 |
01. März 2007, 13:56 rosert  |
| |