title image


Smiley Re: letzten Datensatz per VBA kopieren
Hallo Sonja,Wenn ich Dich richtig verstanden habe müßtes Du dieses komplett mit einer Anfügeabfrage hinbekommen.Das würde dann zum Beispiel so ungefähr aussehen.Private Sub Form_DblClick(Cancel As Integer)Dim DB As DatabaseSet DB = CurrentDbDB.Execute "INSERT INTO tblPersonal ( Name, Vorname, Geb ) " _ & "SELECT tblPersonal.Name, tblPersonal.Vorname, DateAdd('yyyy',1,[GEB]) " _ & "FROM tblPersonal " _ & "WHERE tblPersonal.ID=" & Me![ID]Forms!frmPersonal.RequeryEnd SubDas heißt beim Doppelklick auf den Datensatzmarkierer wird der aktuelle Datensatz mit einem Jahr Erhöhungim Feld GEB angefügt. Wenn Du möchtest kann ich Dir auch ein Beispiel schicken. Fassi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: