Access Query Error problem 2

[SlakeB]

Every time I run a macro of mine (which triggers a query) I get this error:

"Microsoft Access Can't Append All the Records in the Append Query"

It asks if I want to continue, and I click ok. Is there a way to keep this message box from popping up when this occurs? I've tried 'On Error Resume Next' and it didn't seem to work. The msg box still popped up and prompted me to press ok. Here is my code:

Private Sub Command17_Click()
On Error Resume Next


Dim stDocName As String

stDocName = "macBlake_macGenerateAndExportDailyWalkFiles"
DoCmd.RunMacro stDocName
    
stDocName = "macBlake_macClearAndUpdateFEOrderTableAndExport"
DoCmd.RunMacro stDocName
    
Exit_Command17_Click:
Exit Sub
    
End Sub

 

[PHV]

Have a look at the DoCmd.SetWarnings method.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[mp9]

You could try using SetWarnings, e.g.

Private Sub Command17_Click()
On Error Resume Next

DoCmd.SetWarnings False
DoCmd.RunMacro "macBlake_macGenerateAndExportDailyWalkFiles"
DoCmd.RunMacro "macBlake_macClearAndUpdateFEOrderTableAndExport"
    
Exit_Command17_Click:
DoCmd.SetWarnings True
Exit Sub
    
End Sub

Hope this helps.

http://www22.brinkster.com/accessory/