per vba datensatz kopieren und id des alten ds mitnehmen

[SonnyCorleone]

Hallo,

ich habe folgendes Problem: ich möchte Datensätze kopieren, wobei im neuen Datensatz die ID des alten Datensatzes im Feld ID_old mitgenommen werden und das Jahr aktualisiert werden soll. Außerdem soll im alten Datensatz ein Flag gesetzt werden. Ich habe dazu einen Button in einem Formular gemacht, der zwar den DS kopiert, das Jahr aktualisiert und im alten DS das Flag setzt, nur die Überhahme der alten ID ins Feld ID_old will nicht klappen  Mein Code:

Private Sub Copy_Gültigkeit_2_Heuer_Click()
If Me.Dirty Then
    MsgBox "Datensatz nicht gespeichert."
    Exit Sub
  End If
 
  If Me.CopyFlag = False Then
    Me.CopyFlag = True
    Me.Dirty = False     
   
    Dim f As DAO.Field
    Dim bm

    With Me.RecordsetClone
      .AddNew
      For Each f In .Fields
        Select Case f.Name
          Case "ID_old"
            f = Me("ID")   
          Case "CopyFlag"
            f = False       
          Case "Jahr"
            f = Year(Date)
          Case "ID"       
          Case Else
            f = Me(f.Name)
        End Select
      Next f
      .Update
      bm = .LastModified   
     
    End With
   
    Me.Requery               
   
  End If
End Sub



Hat jemand eine Idee, wie man das hinkriegt??

Danke und viele Grüße, Sonny

[MzKlMu]

Hallo,
siehe auch:
http://www.office-loesung.de/ftopic556852_0_0_asc.php

Warum machst Du nicht dort weiter?

[SonnyCorleone]

... weil dort niemand mehr antwortet