Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Access DB Datensatz kopieren





Frage

Hallo! Mein Problem: Ich habe eine Tabelle welche mehrere Datensätze enthält. Nun würde ich aber gerne daraus nur einen bestimmten Datensatz in eine andere Tabelle kopieren, welche die gleichen Felder besitzt. Wie kann man das am besten realisieren??? mfg mani

Antwort 1 von mani345

Eigentlich ist es noch etwas komplizierter:
und zwar habe ich ein Formular und ich möchte genau den Datensatz den man gerade betrachtet ein Feld aus lesen, mit diesem Wert einen Datensatz in der großen Tabelle suche und wenn dieser gefunden wird, diesen in eine andere Tabelle kopieren.
Ach ja: Microsoft Access

es mag zwar alles ein bisschen kompliziert klingen, aber bei Unklarheiten einfach fragen....

Danke für die Hilfe!!!

Antwort 2 von TomKelly

Hallo mani

Ich gehe davon aus, dass das Feld das Du auslesen willst eindeutig in Bezug auf die "grosse Tabelle" ist. Dann kannst Du es in etwa so machen:


Sub CopyDS()
    Dim TabQuelle as Recordset, TabZiel as Recordset
    If IsNull([Feld vom Formular]) Then Exit Sub ´ Das war ein leeres Feld!
    Set TabQuelle = CurrentDB("QuellenName", dbOpenSnapshot)
    TabQuelle.FindFirst "[Spaltenname] = " & [Feld vom Formular] ´ Wenn das Feld numerisch ist
oder    TabQuelle.FindFirst "[Spaltenname] = ´" & [Feld vom Formular] & "´" ´ Wenn das Feld nicht numerisch ist
    If Not TabQuelle.NoMatch Then ´ Wir haben den Datensatz gefunden!
        Set TabZiel = CurrentDB("ZielName", dbOpenDynaset)
        TabZiel.AddNew
        TabZiel![Spalte1] = TabQuelle![Spalte1]
        TabZiel![Spalte2] = TabQuelle![Spalte2]
        usw.
        TabZiel.Update
        TabZiel.Close ´ Bloss um sauberen Code zu erzeugen... kann auch weggelassen werden
    End If
    TabQuelle.Close ´ Bloss um sauberen Code zu erzeugen... kann auch weggelassen werden
End Sub


Hoffe, Du kommst damit klar!

Gruss TomKelly