| |
Regular
Beiträge: 79
| Hallo Iemhoff,
das würde ich an deiner Stelle ganz anders lösen, nämlich mit einem INSERT:
Private Sub Archief_Click()
On Error GoTo Err_Archief_Click
Currentdb.Execute "INSERT INTO tbl_AlleAdressen_Archief (...alle Felder aus tbl_AlleAdressen_Archief außer dem Primärschlüssel...) SELECT ...alle Felder aus tbl_AlleAdressen außer dem Primärschlüssel... FROM tbl_AlleAdressen WHERE DeinPrimärschlüssel = " & Me!DeinPrimärschlüssel
Exit_Archief_Click:
Exit Sub
Err_Archief_Click:
MsgBox Err.Description
Resume Exit_Archief_Click
End Sub | |
|