| |
Member
Beiträge: 11
| Hallo
Ich habe für einen kleinen Verein ein Adressverwaltung (plus mehr).
In tbl_Alle_Adresen stehen meine HauptDaten.
Hierin möchte ich kein Feld anbringen für Abgang (Austritt, Austritt durch Tot u.s.w) mit z.Bs 0,-1 sondern ein extra
tbl_AlleAdressen_Archief benutzen für Abgänge.
Habe folgendes zusammen gebastelt:
----------------------------------------------------
Private Sub Archief_Click()
On Error GoTo Err_Archief_Click
Dim tbl_Archief As String
tbl_Archief = "tbl_AlleAdressen_Archief"
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.OpenTable tbl_Archief
DoCmd.RunCommand acCmdOpenTable, tbl_Archief
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
DoCmd.RunCommand acCmdClose
Exit_Archief_Click:
Exit Sub
Err_Archief_Click:
MsgBox Err.Description
Resume Exit_Archief_Click
End Sub
------------------------------------------------
Bekomme eine Fehlermeldung z.BS
Der Befehl oder die Aktion 'Gehe zu neuen Datensatz' steht nicht zu Verfügung. (oder 'Kopieren')
Wo liegt der Fehler???
| |
|
