Question

I’m new to Visual Basic 6, so please be patient (and thorough with your answers).

I’m building a form and I need to check if the information entered in one of its fields is numeric, otherwise the program has to beep.

The field is part of an array of controls and it is named txtMyField(0)

Last thing in my code I’ve written:

Private Sub txtMyField_Change(Index As Integer)
If Not IsNumeric(txtMyField(0).Text) Then
    Beep
End If
End Sub

I don’t know if this code is correct and I don’t how to call the Sub to use it in order to check the field’s value before inserting in database.

Thanks a lot for your help!

Answer 1

You can do this by using the Validate event. You need to ensure that the CausesValidation property is true, if it is then the Validate event will be raised for that control.

Your event might look something like this:

Private Sub txtMyField_Validate(Index As Integer, Cancel As Boolean)
    If Not IsNumeric(txtMyField(Index).Text) Then
        Beep
        Cancel = True
    End If
End Sub

This would ensure that all the controls in your control array are numeric (given that their CausesValidation property is set to True at startup). If one of the controls is empty or contains non-numeric characters you will get a Beep when the control loses focus.

Note some things here

• Sounding a Beep is not really a good way to indicate a validation error. A messagebox or textbox in the form to display the error is usually a better way. The user may not hear your beep or may not understand that “a beep” means “you need to provide a number in this field”.
• Your code referenced control with index = 0. The event may fire for any of the controls in the control array, so checking the value of control(0) is not really a logical thing to do when you should be validating control(5) (for example).