Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Tab2HTML: Excel Tabellen ins Forum! <-
probleme mit daten an server zu schicken
zurück: Access Exportassistent in Makro einbauen weiter: Komme nicht mehr an meine Sourcen HILFE Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
01. Aug 2006, 11:31
Rufname:

probleme mit daten an server zu schicken - probleme mit daten an server zu schicken

Nach oben
       

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:

AW: probleme mit daten an server zu schicken - AW: probleme mit daten an server zu schicken

Nach oben
       

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:


AW: probleme mit daten an server zu schicken - AW: probleme mit daten an server zu schicken

Nach oben
       

ok danke!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen




Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: Daten von mehreren Formularen in Wordvorlage 38 Gast 731 11. Feb 2010, 13:00
Michelle1 Daten von mehreren Formularen in Wordvorlage
Keine neuen Beiträge Access Formulare: Gefilterte Daten im Listenfeld 9 stubsy4 218 09. Nov 2009, 18:55
MiLie Gefilterte Daten im Listenfeld
Keine neuen Beiträge Access Formulare: Formular erstellen mit Daten aus mehreren Tabellen? 6 zizou 537 09. Okt 2009, 15:18
KlausMz Formular erstellen mit Daten aus mehreren Tabellen?
Keine neuen Beiträge Access Formulare: Daten im Ufo eingeben 2 sonixxl 111 09. Jun 2009, 08:06
sonixxl Daten im Ufo eingeben
Keine neuen Beiträge Access Formulare: Daten für Feld aus zwei Textfeldern zusammenstellen 9 Dill 221 11. Apr 2009, 18:45
Willi Wipp Daten für Feld aus zwei Textfeldern zusammenstellen
Keine neuen Beiträge Access Programmierung / VBA: Daten aus dem Webshop importieren 5 drakon 115 22. März 2009, 22:01
Gast Daten aus dem Webshop importieren
Keine neuen Beiträge Access Formulare: Kombinationsfeld Daten in anderer Tabelle speichern 3 Meister2008 207 02. März 2009, 19:00
KlausMz Kombinationsfeld Daten in anderer Tabelle speichern
Keine neuen Beiträge Access Programmierung / VBA: daten aus db nach word holen und in text einfügen 8 jensspeedy 514 16. Mai 2008, 00:48
jensspeedy daten aus db nach word holen und in text einfügen
Keine neuen Beiträge Access Formulare: Daten aus mehren Tabellen und Abfragen zusammenstellen 1 Sebo91 324 13. Aug 2007, 09:36
Robsl Daten aus mehren Tabellen und Abfragen zusammenstellen
Keine neuen Beiträge Access Programmierung / VBA: Endlosformular mit DAO Daten befüllen 7 Lothar_OMC 412 11. Mai 2007, 13:11
Lothar_OMC Endlosformular mit DAO Daten befüllen
Keine neuen Beiträge Access Formulare: Button im Formular um Daten einzuschränken 4 klaus30 315 28. März 2007, 14:25
Willi Wipp Button im Formular um Daten einzuschränken
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Tabelle automatisch in Abfragefelder einfügen 6 rosert 729 01. März 2007, 13:56
rosert Daten aus Tabelle automatisch in Abfragefelder einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Pareto Diagramm