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!!!
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:
Hoffe, Du kommst damit klar!
Gruss TomKelly
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

