Einfügefehler - Aber warum?

[accessy]

Das hat bisher immer funktioniert.

Code [Auswählen] Erweitern


Private Sub Datensatz_Copy_Click()
On Error GoTo Err_Datensatz_Copy_Click
Dim Copy_Ja_Nein
Copy_Ja_Nein = MsgBox("Dieser Datensatz wird kopiert und ans Ende der DB wieder eingefügt," & _
                      " so dass die Grunddaten verwendet werden können", vbYesNo, "Datensatz Copy")
    If Copy_Ja_Nein = vbNo Then Exit Sub
Call Offen 'Alle Felder auf Edit setzen
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Call Gesperrt ' Alle Felder auf Gesperrt setzen
Exit_Datensatz_Copy_Click:
    Exit Sub

Err_Datensatz_Copy_Click:
    MsgBox Err.Description
    Resume Exit_Datensatz_Copy_Click
End Sub

Jetzt plötzlich kommt der Fehler
"Alle DS, die nicht eingefügt werden konnten, werden in der Tabelle Einfügefehler.....usw.."

Was ist hier passiert?
Kann mir das jemand erklären?

Gruß Achim

[accessy]

Nachtrag.

In der neu erzeugten Tabelle gibt es jetzt plötzlich 2 neue Felder.
Das eine heißt "Gefiltert" und hat den Datentyp Memo
Das andere heißt "Unifilter" und hat auch den Datentyp Memo.

Unifilter kann ich noch nachvollziehen.
Das könnte von hier her kommen.
Allerdings wird doch diese SUB überhaupt nicht berührt, also benutzt beim Kopieren.

Code [Auswählen] Erweitern


Private Sub UniFilter_Change() 'Universalfilter
  Me.Filter = "Art_Tool & Bearbeitungsart & Mitarbeiter & Kunde & Werkzeug & Schneidstoff & Festigkeit & Beschichtung & C & Material & Bezeichnung & Durchmesser & Durchmesser_Zusatz & Maschinentyp & Bemerkungen like '*" & Me!UniFilter.Text & "*'"
  Me.FilterOn = True
End Sub

Private Sub UniFilter_DblClick(Cancel As Integer) 'Universalfilter Feld leeren
  Me.UniFilter = ""
  Me.Filter = ""
  Me.FilterOn = False
End Sub


[accessy]

Okay, ich glaube ich habe es gefunden.
Es sind die Felder für den Universalfilter und ein Berechnungsfeld.
Diese sind keine Felder für eine DS Copy.... vermutlich.

Aber kann man für dieses "Standard - VBA Access-Copy Makro für DS Kopieren"
etwas einbauen, dass Felder von diesem Kopiervorgang ausgeschlossen werden können?

Gruß Achim