Das hat bisher immer funktioniert.
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
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.
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
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