Office: Werte aus Formular in Abfrage übernehmen

Sorry, falls die Frage schon gestellt wurde, aber ich habe dann die Antwort nicht gefunden.

Folgendes Problem:

In einem Formular werden neben einem Zeitraum [von] und [bis] insgesamt bis zu sechs Werte in entsprechende Felder eingegeben. Angereichert um jeweils fünf weitere Informationen (OZ, Org-Zuordnung etc.) müssen diese sechs Werte in eine Tabelle übertragen werden. Ich möchte das über eine Anfügeabfrage lösen. Leider übernimmt die Abfrage keine Werte aus dem Formular.

Kann mir jemnad da helfen?

Danke im voraus.

 

Hallo mannhoefer,

es gibt in SQL 2 Versionen der Anfügeabfrage, , wobei bei Dir wahrscheinlich nur die 2. sinnvoll sein wird:

Anfügeabfrage mit mehreren Datensätzen:
INSERT INTO Ziel [(Feld1[, Feld2[, …]])] [IN ExterneDatenbank] SELECT [Quelle.]Feld1[, Feld2[, …] FROM Tabellenausdruck

Anfügeabfrage mit einem Datensatz:
INSERT INTO Ziel [(Feld1[, Feld2[, …]])] VALUES (Wert1[, Wert2[, …])

Code:

Private Sub cmdBtnAnfügen_Click()

    Dim dbs As Database
    On Error GoTo Err_cmdBtnAnfg
    Set dbs = CurrentDb    
    dbs.Execute " INSERT INTO AnfügeTabelle (VorName,NachName, Alter) " _
        "VALUES ('"& txtVorname.Value &"','"& txtNachname.Value &"',"& txtAlter.Value &");"
    dbs.Close
    Exit Sub
Err_cmdBtnAnfg:
    MsgBox "Fehler " & Err &": " & Err.Description & vbCrLf & "Satz wurde nicht angefügt."
End Sub

Mein Beispiel geht von folgender Annahme aus:
1) Ich habe ein Formular mit einem Button namens 'cmdBtnAnfügen', mit dessen Click-Ereignis vorgenannte Sub verknüpft ist.
2) Ferner seien im Formular 3 Felder: txtVorname, txtNachname, txtAlter, wobei die ersten 2 Text beinhalten, das 3. jedoch eine Zahl.
3) Ferner eine Tabelle mit Namen 'AnfügeTabelle', in der es 4 Felder gibt:
Feld 'Id' (Typ: Autowert, Primärschlüssel)
Feld 'Vorname' (Typ: Text, Länge=30)
Feld 'Nachname' (Typ: Text, Länge=30)
Feld 'Alter' (Typ: Zahl, Single)
4) Bei Klick auf den Button sollen die Inhalte der 3 Formularfelder als neuer Datensatz an die Tabelle 'AnfügeTabelle' angefügt werden.
5) Dabei kann es mehrere Fallen geben:
5a) Es gibt in der Tabelle ein Feld 'Id', das als Autowert-Feld (als Primärschlüssel) definiert ist: dieses Feld darf auf keinen Fall in der VALUES-Liste enthalten sein; sein Inhalt wird von Access automatisch erzeugt in der Weise, dass die Primärschlüsseleigenschaft nicht verletzt wird.
5b) In der Tabelle gibt es 2 Textfelder (Vorname,Nachname): die aus dem Formular stammenden Werte müssen in der VALUES-Liste in Anführungszeichen oder Hochkommas eingeschlossen sein (im Beispiel sind es Hochkommas), während das numerische Feld 'Alter' in der VALUES-Liste mit einem Wert ohne Hochkommas vertreten ist.
5c) Natürlich müssen die Tabellenfelder groß genug sein, um die Werte aus den Formularfelder aufzunehmen.

Unter diesen Bedingungen müsste sich der Satz problemlos anfügen lassen.

 

Danke für den Tipp.