Datensatz duplizieren

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

hab wieder mal ein Problem. Und zwar möchte ich ganz simpel einen datensatz aus einem Formular heraus duplizieren. Wäre an sich nicht das Problem, wenn nicht ständig die Meldung kommen würde, dass der DS nicht dupliziert werden kann. Woran kann das liegen, dass die VBA nicht korrekt ausgeführt wird und wie kann ich das Problem beheben?
Hier mal meine VBA- Anweisung:

Public Sub Befehl80_Click()
On Error GoTo Err

'Datensatz markieren

DoCmd.DoMenuItem acFormBar, acEditMenu, acSelectRecord, , acMenuVer70

'Kopieren
DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70

'Am Ende anfügen
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, 0, acMenuVer70

Exit Sub

Err:
Beep
MsgBox „Der Datensatz kann nicht dupliziert werden!“
Exit Sub

End Sub

Viele Grüße von Beate

#2

Hallo.

Public Sub Befehl80_Click()
On Error GoTo Err

Die Sprungmarke besser anders nennen. Err ist ein Objektcontainer in Access, das kann zu Klemmern führen.

'Datensatz markieren

DoCmd.DoMenuItem acFormBar, acEditMenu, acSelectRecord, ,
acMenuVer70

'Kopieren
DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, ,
acMenuVer70

'Am Ende anfügen
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, 0, acMenuVer70

Exit Sub

Err:
Beep
MsgBox „Der Datensatz kann nicht dupliziert werden!“

Sehr sprechend g … Mach da folgendes dabei :
MsgBox "Fehlernummer : "+Str$(Err.Number)+VbNewLine+Err.Description

Exit Sub

End Sub

Da bekommst Du dann schon mal (hoffentlich) einen etwas genaueren Hinweis …

Gruß Eillicht zu Vensre

#3

Hallo.

Da bekommst Du dann schon mal (hoffentlich) einen etwas
genaueren Hinweis …

Ja, den hab ich jetzt, das hilft mir aber auch nicht weiter, aber vielleicht weißt du ja, was die Lösung ist. Es ist die Fehlernummer 2046 mit dem Text: Der Befehl oder die Aktion ‚Am Ende Anfügen‘ steht momentan nicht zur Verfügung…

uargghh, heut bringt mich Access mal wieder zur Verzweiflung. Bitte um Hilfe…

Gruß, Beate