Custom error messages?

ekta · Jan 16, 2004

Hi:

I want to create my own custom error message dialog boxes. For example I have a number field on my form. If user enters text in that field I want to display my own error message instead of the error message displayed by access.

Thanks

Ekta

dcx693 · Jan 16, 2004

Searching the forums can often turn up great things, like this: custom message.

Mile-O · Jan 16, 2004

That link is definitely useful but for a textbox, you want to evaluate the value before it is updated and reject it based on our conditions.

Code:

Private Sub MyTextBox_BeforeUpdate(Cancel As Integer)
    If Not IsNumeric(Me.MyTextBox) Then
        MsgBox "Illegal characters in textbox.", vbExclamation, "Error"
        Cancel = True
    End If
End Sub

ekta · Jan 16, 2004

Will do.

Mile-O-Phile,

I tried the code but it doesn't do anything. It still shows the error message by Access.

Thanks,

Ekta

Mile-O · Jan 16, 2004

Paste your code...

ekta · Jan 16, 2004

Private Sub Months_BeforeUpdate(Cancel As Integer)

If Not IsNumeric(Me.Months) Then
MsgBox "You cannot type text in this field. Please enter only number for months", vbExclamation, "Error"
Cancel = True
End If

End Sub

ghudson · Jan 16, 2004

Why not slap them if they dare strike a non numeric key by testing which
keys are pressed in the text boxes KeyPress event?

Code:

Private Sub YourTextBoxName_KeyPress(KeyAscii As Integer)
On Error GoTo Err_YourTextBoxName_KeyPress
    
    If KeyAscii > Asc("9") Or KeyAscii = Asc(" ") Then
        KeyAscii = 0
        Beep
        MsgBox "The ''special field'' can not contain non numeric characters.", vbInformation, "Invalid Key Stroke"
    Else
        'do nothing since they keyed a number
    End If
    
Exit_YourTextBoxName_KeyPress:
    Exit Sub
    
Err_YourTextBoxName_KeyPress:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_YourTextBoxName_KeyPress
    
End Sub

HTH

dcx693 · Jan 16, 2004

Why not slap them if they dare strike a non numeric key by testing which

LOL.

ekta · Jan 16, 2004

It gives me compile error.."Sub or Function not defined" and highlights "ErrorMsg"

Mile-O · Jan 16, 2004

That looks like code copied straight from one of ghudson's databases. It's code he has to store a log of all errors that happen within his database.

You can cut the error handling part out for now:

Code:

Private Sub YourTextBoxName_KeyPress(KeyAscii As Integer)
    
    If KeyAscii > Asc("9") Or KeyAscii = Asc(" ") Then
        KeyAscii = 0
        Beep
        MsgBox "The ''special field'' can not contain non numeric characters.", vbInformation, "Invalid Key Stroke"
    End If
    
End Sub

ekta · Jan 16, 2004

purrrfect. Thanks
Does it make a difference if you don't include the error handling part?

Mile-O · Jan 16, 2004

Not particularly.

If you can anticipate an error happening then its good to intercept it and deal with it.

Custom error messages?

ekta

Registered User.

dcx693

Registered User.

Mile-O

Back once again...

ekta

Registered User.

Mile-O

Back once again...

ekta

Registered User.

ghudson

Registered User.

dcx693

Registered User.

ekta

Registered User.

Mile-O

Back once again...

ekta

Registered User.

Mile-O

Back once again...

Similar threads

Users who are viewing this thread