PDA

Vollständige Version anzeigen : Nach Anwahl Kombifelder Daten in neue tbl


Homer-two
27.08.2001, 09:30
Hallo!
Wie kann ich die Daten aus meinen miteinander verknüpften Kombifeldern nach Anwahl in eine
neue tbl bekommen? Das heist wenn ich die Auswahl getroffen habe z.b. comb1 = PKW, comb2 = Audi, comb3 A4 müssen diese 3 Datensätze in der neuen tbl in Spalte1,2 und 3 stehen. Nach neuer Auswahl der Kombifelder das gleiche nur eine Reihe tiefer in Spalte1,2und3
Bin Anfänger und für jede Hilfe dankbar.

Jochum Rainer
27.08.2001, 16:30
Hallo!
Hier ein Beispiel
Update Ereignis des Formular

Private Sub Form_AfterUpdate()
Dim WS As Workspace
Dim DB As Database
Dim rsT As Recordset

Set WS = DBEngine(0)
Set DB = WS(0)
Set rsT = DB.OpenRecordset("ta_test", DB_OPEN_DYNASET) -> ta_test= Tabelle in die Daten geschrieben werden sollen.

rsT.AddNew -> neuer DS
rsT!comb1 = me!comb1 -> Kombifeld in neue Tabelle in Feld mit Name comb1
rsT!comb2 = me!comb2 -> dito
rsT!comb3 = me!comb3 -> dito
rsT.Update

End Sub

Der Code ist optimierbar, aber so leicher zu verstehen.

Gruesse
Rainer Jochum