[RESOLVED]Paste Errors ????? I am Stumped.
Paste Errors ????? I am Stumped.
--------------------------------------------------------------------------------
I am stumped.
I have added a button to my form with the following code. When I run the code I get the "Paste Error" message.
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
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_Command1666_Click:
Exit Sub
Err_Command1666_Click:
MsgBox Err.Description
Resume Exit_Command1666_Click
End Sub
Access 2000
Records that " " was unable to paste have been inserted into a new table called paste errors.
Thanks
Carbo
RESOLUTION:
The reason for the error was two of the fields on the form had validation rules; once removed the code worked fine.
Carbo
Paste Errors ????? I am Stumped.
--------------------------------------------------------------------------------
I am stumped.
I have added a button to my form with the following code. When I run the code I get the "Paste Error" message.
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
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_Command1666_Click:
Exit Sub
Err_Command1666_Click:
MsgBox Err.Description
Resume Exit_Command1666_Click
End Sub
Access 2000
Records that " " was unable to paste have been inserted into a new table called paste errors.
Thanks
Carbo
RESOLUTION:
The reason for the error was two of the fields on the form had validation rules; once removed the code worked fine.
Carbo
Last edited: