Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem mit Insert into
zurück: Drucken eines Diagramms in VBA weiter: Daten übernehmen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
2stupid4this
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jan 2006, 15:48
Rufname:

Problem mit Insert into - Problem mit Insert into

Nach oben
       

Hallo Forum,

habe ein Formular (Access 2000) mit dem neuen Datensätze in eine Datenbank einfügt werden sollen. Doch leider funzt das nicht so wie ich es mir vorstelle. In dem Formular sind ungebundene Felder enthalten. Beim anklicken des Buttons OK soll der Datensatz gespeichert werden. Doch leider erhalte ich da nur die Fehlermeldung Laufzeitfehler 3134. Syntaxfehler in der INSERT INTO-Anweisung.

Was mache ich falsch?

Hier der Code:
Code:
    Dim ssql As String
    Dim db As DAO.Database
   
    ssql = "INSERT INTO DB_Kunden (Kunden-Nr, Kundenart, Anrede, " & _
                                  "Nachname, Vorname, Adresse, " & _
                                  "Postleitzahl, Ort, Telefonnummer, " & _
                                  "Faxnummer, EmailAdresse, Titel) " & _
           "VALUES ([Forms]![Kundenneuanlage]![Kunden-Nr], " & _
                   "[Forms]![Kundenneuanlage]![Kundenart], " & _
                   "[Forms]![Kundenneuanlage]![Anrede], " & _
                   "[Forms]![Kundenneuanlage]![Nachname], " & _
                   "[Forms]![Kundenneuanlage]![Vorname], " & _
                   "[Forms]![Kundenneuanlage]![Adresse], " & _
                   "[Forms]![Kundenneuanlage]![Postleitzahl], " & _
                   "[Forms]![Kundenneuanlage]![Ort], " & _
                   "[Forms]![Kundenneuanlage]![Telefonnummer], " & _
                   "[Forms]![Kundenneuanlage]![Faxnummer], " & _
                   "[Forms]![Kundenneuanlage]![EmailAdresse], " & _
                   "[Forms]![Kundenneuanlage]![Titel])"
    If MsgBox("Soll der Kunde wirklich gespeichert werden?", vbYesNo, _
              "Speichern?") = vbYes Then
        Set db = CurrentDb
        DoCmd.SetWarnings False
        db.Execute ssql
        DoCmd.SetWarnings True
        ssql = ""
        Set db = Nothing
        MsgBox "Kunde wurde gespeichert!", vbOKOnly, "Gespeichert!"
        DoCmd.Close
    End If
End Sub
jens05
Moderator


Verfasst am:
22. Jan 2006, 17:58
Rufname:
Wohnort: ~~~~~

AW: Problem mit Insert into - AW: Problem mit Insert into

Nach oben
       

Hallo,
die Formularvariablen müssen außerhalb des Strings stehen.
Versuche es mal so (Bei Execute brauchst du SetWarnings nicht ;))
Code:
    Dim ssql As String
    Dim db As DAO.Database
   
    ssql = "INSERT INTO DB_Kunden ([Kunden-Nr], Kundenart, Anrede, " & _
                                  "Nachname, Vorname, Adresse, " & _
                                  "Postleitzahl, Ort, Telefonnummer, " & _
                                  "Faxnummer, EmailAdresse, Titel) " & _
           "VALUES (" & [Forms]![Kundenneuanlage]![Kunden-Nr] & ", " & _
                  "'" & [Forms]![Kundenneuanlage]![Kundenart] & "', " & _
                  "'" & [Forms]![Kundenneuanlage]![Anrede] & "', " & _
                  "'" & [Forms]![Kundenneuanlage]![Nachname] & "', " & _
                  "'" & [Forms]![Kundenneuanlage]![Vorname] & "', " & _
                  "'" & [Forms]![Kundenneuanlage]![Adresse] & "', " & _
                  "'" & [Forms]![Kundenneuanlage]![Postleitzahl] & "', " & _
                  "'" & [Forms]![Kundenneuanlage]![Ort] & "', " & _
                  "'" & [Forms]![Kundenneuanlage]![Telefonnummer] & "', " & _
                  "'" & [Forms]![Kundenneuanlage]![Faxnummer] & "', " & _
                  "'" & [Forms]![Kundenneuanlage]![EmailAdresse] & "', " & _
                  "'" & [Forms]![Kundenneuanlage]![Titel] & "')"
    If MsgBox("Soll der Kunde wirklich gespeichert werden?", _
              vbYesNo, "Speichern?") = vbYes Then
        DBEngine(0)(0).Execute ssql, dbFailOnError
        ssql = ""
        MsgBox "Kunde wurde gespeichert!", vbOKOnly, "Gespeichert!"
        DoCmd.Close
    End If
Bei numerischen Werten (habe ich bei Kundennummmer angenommen) sind die Hochkommas wegzulassen.
_________________
mfg jens05 Wink
2stupid4this
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Jan 2006, 00:50
Rufname:


AW: Problem mit Insert into - AW: Problem mit Insert into

Nach oben
       

Danke für die schnelle Hilfe. Das Problem lag an der einen Variablen mit dem Bindestrich.
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 Tabellen & Abfragen: INSERT INTO aus Listenfeld 2 crankthat88 189 21. Jun 2011, 02:40
crankthat88_ INSERT INTO aus Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Syntaxfehler in Insert Into Anweisung 4 keksmobsi 501 28. Apr 2011, 20:08
keksmobsi Syntaxfehler in Insert Into Anweisung
Keine neuen Beiträge Access Tabellen & Abfragen: fehler in insert into anweisung 3134? 4 ptuser 491 29. Okt 2010, 10:06
ptuser fehler in insert into anweisung 3134?
Keine neuen Beiträge Access Tabellen & Abfragen: insert + select + where bedingung 18 strolli 1245 09. Jul 2010, 14:15
strolli insert + select + where bedingung
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage funktioniert nicht, Aggregatfunktion, Insert 8 Gast 2935 17. März 2010, 19:23
Gast Abfrage funktioniert nicht, Aggregatfunktion, Insert
Keine neuen Beiträge Access Tabellen & Abfragen: Insert von NULL werten 4 wm_andi 307 06. Apr 2009, 17:36
wm_andi Insert von NULL werten
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle 1 insert into Tabelle 2 mit Primarykey in selber db 1 BenneB 2012 16. Dez 2008, 00:44
Willi Wipp Tabelle 1 insert into Tabelle 2 mit Primarykey in selber db
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: INSERT INTO mit festem Wert und SELECT 1 DrPepper 2328 27. März 2008, 15:59
Willi Wipp Abfrage: INSERT INTO mit festem Wert und SELECT
Keine neuen Beiträge Access Tabellen & Abfragen: Wo baue ich bei einem Insert Befehl die Where Bedingung ein? 5 Steffen29 503 07. Dez 2007, 15:05
Willi Wipp Wo baue ich bei einem Insert Befehl die Where Bedingung ein?
Keine neuen Beiträge Access Tabellen & Abfragen: Insert+replace funktion ueber Nummernfeld 1 galaxy 600 19. Sep 2007, 10:30
SGast Insert+replace funktion ueber Nummernfeld
Keine neuen Beiträge Access Tabellen & Abfragen: ZU viele Felder definiert - erst bei INSERT 2 waldwuffel 1620 28. Aug 2007, 21:41
waldwuffel ZU viele Felder definiert - erst bei INSERT
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle per INSERT INTO m. Werten o. Quelltabelle erweitern? 6 Zamp 802 25. Jun 2007, 19:13
Zamp Tabelle per INSERT INTO m. Werten o. Quelltabelle erweitern?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln