Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
07.08.2006, 15:11 Uhr
~mika87
Gast

Hallo!

Ich habe folgendes vor:

In meinem Access Formular gibt es mehrere Eingabefelder für die gleiche Tabelle. Ich will mit einem Button alle Felder auslesen und nacheinander in die Tabelle einfügen.

Dies habe ich mit einem Button realisiert, und folgendem Code:

Visual Basic:

Dim value1 As String
Dim value2 As String
Dim value3 As String
Dim value4 As String




    value1 = Textfeld1.Value
    value2 = Field1.Value

'Hier in Tabelle einfügen?!?

    value3 = Textfeld2.Value
    value4 = Field2.Value

'Hier in Tabelle einfügen?!?

Es sind noch wesentlich mehr Textfelder, aber macht nicht viel Sinn sie alle hier reinzuschreiben.

Ich würde nun gern wissen ob ich direkt vom Code in SQL Statement absetzen kann. So in der Art " Insert Into Table1 Values(value1, value2); "

Kann einer helfen?

mfG

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
10.08.2006, 12:36 Uhr
Airdamn

Wenn Du in einem Formular ALLE Textfelder in die Tabelle eintragen willst, dann könntest Du es so machen:

Visual Basic:

Private Sub Befehl6_Click()
Dim ctl As Control
Dim txt As TextBox
Dim db As Database
Dim rs As Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM Tab1") 'Hier die Tabelle angeben

    For Each ctl In Me.Controls

        If ctl.Properties("ControlType") = acTextBox Then
            Set txt = ctl
            rs.AddNew
            rs!bez = txt.Value 'nach dem Schema die Werte setzen, hier wird das Feld "bez" gesetzt
            rs.Update
        End If

    Next

    rs.Close

End Sub

Dieser Post wurde am 10.08.2006 um 12:37 Uhr von Airdamn editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: