Daten von einem UFO in ein anderes kopieren

markusp, Montag, 04. Januar 2010, 15:49 @ Martin Asal

Hallo Martin,

besten Dank für deine Mühe. Mit einem Einzeiler ist es mir nicht gelungen. Dennoch bin ich dir dankbar für deine Antworten auf meine Fragen. Ich habe folgende Variante gewählt:

Private Sub Uebernehmen_Click()
Dim db As Database
Dim rs As Recordset
Dim frm As Form
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblPar13LTG")
rs.AddNew
rs!ZL = HBZL
rs!Nam = HBNAM
rs!ZUSATZ = HBZUSATZ
rs!Strasse = HBSTRASSE
rs!Ort = HBORT
rs!Zuordnung = "B"
rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing
Forms!Planbuch!frmPar13LTGListe.Form.Requery
End Sub

Beste Grüße
Markus