[RESOLVED] Runtime error 5

Hello All,

I am using VB 6.0 with Win 2000 OS. My problem is that I am getting "Runtime Error 5" when I runs project exe on other machine(Win 2000)but it runs smooth on my machine(Win 2000).

On following Bold line, I am getting an error:

VB Code:

If txtHostID.Text <> vbNullString Then
        If Val(txtHostID.Text) >= 61569 And Val(txtHostID.Text) <= 63487 Then
            MsgBox "Invalid Host Game ID Number." & vbCrLf & "Range 0xF081-0xF7FF Reserved for Non Configured Games.", vbOKOnly + vbCritical, "Host Game ID Number"
            txtHostID.Text = vbNullString
            [B]txtHostID.SetFocus[/B]
            Exit Sub
        End If
    End If

Above code is in txtHostID_LostFocus() event.

Try useing the Validate event instead.

VB Code:

Private Sub txtHostID_Validate(Cancel As Boolean)
    If txtHostID.Text <> vbNullString Then
        If Val(txtHostID.Text) >= 61569 And Val(txtHostID.Text) <= 63487 Then
            MsgBox "Invalid Host Game ID Number." & vbCrLf & "Range 0xF081-0xF7FF Reserved for Non Configured Games.", vbOKOnly + vbCritical, "Host Game ID Number"
            txtHostID.Text = vbNullString
            Cancel = True
            Exit Sub
        End If
    End If
End Sub

Thanx Andrew.....its working :thumb:

But I would like to know reason why it is happening? :)

I'm not sure why it didn't work. I've tried to reproduce the problem but it didn't seem to come up with the error. It might be a bug or something.