#

 

 

Mit dem folgenden vba Code werden in MS Access der aktuelle Datensatz mit allen Feldern übertragen.

Dabei wird eine Kopie des Datensatzes als Recordsetclone erstellt und dann die einzelnen Felder direkt in die Kopie im Code übertragen.

Der Vorteil dabei ist, dass die Feldwerte zur Laufzeit angepasst werden können.

 

Datensatz im Formular vor der Kopie

 

Datensatz Nach dem Einfügen

 

 

Vba Code

Private Sub fg_Zeile_einfuegen()

    '----------------< fg_Zeile_einfuegen() >----------------

 

    Dim rec As Recordset

    Set rec = Me.Recordset

   

    '----< Clone Recordset_Data >----

    Dim recClone As Recordset

    Set recClone = Me.RecordsetClone

    recClone.AddNew

    recClone("LfdNr") = rec("LfdNr")

    recClone("LfdNr_SubNr") = "9"

    recClone("ID_Projekt") = rec("ID_Projekt")

    recClone("SchottNr") = rec("SchottNr")

    recClone("Etage") = rec("Etage")

    recClone("Raum") = rec("Raum")

    recClone("FotoNr") = rec("FotoNr")

    recClone("LV_Position") = rec("LV_Position")

 

    recClone.Update

    recClone.MoveLast

    '< bookmark >

    Dim ID As Long

    ID = ID_Position

    '</ bookmark >

    recClone.Close

    '--</ @Loop: Clone >--

    '----</ Clone Recordset_Data >----

 

    AllowAdditions = True

    Requery

    fg_Goto_ID ID

 

    '----------------</ fg_Zeile_einfuegen() >----------------

End Sub

 

Mobile

.

0123movie.net