Err_Execute: ' Notify user of any errors that result from ' executing the query If rstTemp.ActiveConnection.Errors.Count > 0 Then For Each Err In rstTemp.ActiveConnection.Errors MsgBox "Error number: " & Err.Number & vbCr & _ Err.Description Next Err End If Resume Next
1 2 3 4 5 6 7 8 9 10 11 12 | Err_Execute: ' Notify user of any errors that result from ' executing the query If rstTemp.ActiveConnection.Errors.Count > 0 Then For Each Err In rstTemp.ActiveConnection.Errors MsgBox "Error number: " & Err.Number & vbCr & _ Err.Description Next Err End If Resume Next |
No comments:
Post a Comment