How to supress Access messages and using own messages

  • Thread starter Thread starter Smiley
  • Start date Start date
S

Smiley

Good afternoon,

Would someone tell me how to supressed message from Access but give a
message of my own words. I know there is a setting in Tools --> Options -->
tab Edit/Find, there is a section which headed Confirm. I know I would
unticked those boxes which will not give me the message. But this is only
partial of what I want, I want to give a more meaningful message to users
and not the default message from Acess. Anyway this would be done ?

Many thanks in advance.

Smiley
 
It depends on which messages your are referring to. Warning messsages on
file and record operations can be suppressed by setting the options under
Tools, Options, Edit/Find tab. There are 3 check boxes in the Confirm
section that control these messages.

If it is error messages, then those have to be handled with your own error
handling code.
 
Hi Dave,

Thank you for the info.

I still would like to know how would I find out which message popped up and
I would 'pop' my own message. For example, if I suppressed the warning
message that 2 records are to be deleted. How do I know (in coding) that the
message is a confirmation of deleting record and not information message,
say record not found.

Another query is where do I find the error codes from MSAccess and handled
it in the coding. for example, if the error is can't find a function. When
this happened, I would like to pop up a message to say that function xxx is
not found rather then error code which means nothing to most user.

Smiley
 
I don't know if there is a printed list of all the possible Access errors.
What I usually do if I don't know what to expect is to allow the error to
occur in testing, then write my own message. Here is an example of an error
handling routine. In this example, I don't care if error 2501 occurs, so I
don't even show it as an error.

PrintReport_Exit:

On Error Resume Next

Set qdf = Nothing
Set qdfXl = Nothing
Set qdfs = Nothing
Set dbf = Nothing

Exit Sub

PrintReport_Error:

If Err.Number <> 2501 Then
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure PrintReport of VBA Document Form_frmBPOReports"
End If
GoTo PrintReport_Exit

End Sub

If you want to display your own meaningful message then you use the msgbox
to display it to the user:

FindFieldName_Error:

If Err.Number = 3265 Then
MsgBox "Table " & strTblName & " Not Found"
Else
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure FindFieldName of Module modUtilities"
End If
GoTo FindFieldName_Exit
 
Back
Top