Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

 

 

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
»
ASP.Net: Link Liste mit Tabellen Design
»
ASP.Net: Width in Laufzeit per Unit in Percent festlegten
»
ASP.Net: Wie kopiert man eine WebForm oder UserControl
»
Google: Translate API in ASP.Net Webseite einbinden
»
ASP.Net: Text als Symbol oder SymboIcon anzeigen
»
Telerik: Farbe Color eines SiteMap Link ändern
»
Asp.Net: Text zur Laufzeit ausgeben
»
Asp.Net: Fehlermeldung bei UserControls NullReferenceException
»
Asp.Net: Tabelle in runtime erstellen
»
Asp.Net: HTML Element in der Codebehind Seite verfügbar machen.

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de