- Working with a Form...
- You Select the Current Record...
- Copy The Current Record...
- The Paste Append this record as a new Record.
Your code should work unless perhaps there is something else accessing the Form as well or the original record wasn't saved yet because something was null that shouldn't be or a wrong data type was encountered.
I personally would do it this way:
Private Sub Command1666_Click()
On Error Resume Next
PlaySound "H:\Generald\media\carbo.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
On Error GoTo Err_Command1666_Click
Self Taught In ALL Environments.....And It Shows!