UserForm

[Jacques Grobler]

Hi guys,

Have a small problem.

I have a userform that requires 2 fields to be filled into textboxes, one text and one numeric.
I do a test to see if the correct is applied. Have a msgbox that pops up saying incorrect one filled in but as soon as I click ok on the popup msgbox, the userform closes.

I just want the focus to move back to the userform so the user can fill in the correct value in the correct textbox.

Please help...

Thanks in advance

[royUK]

You need to post the code. You must have something like Exit Sub in the message box code

[Jacques Grobler]

Private Sub btnSolve_AddVar_Click()

'=========================================
'1. Obtain values of known variables

    varName = txtSolve_VarName.Value
    varValue = txtSolve_VarValue.Value
    
'=========================================
'2. Do check for errors
        
    'Error: See if text is text, numbers are numbers
    '--------------------------------------------------

    If Application.WorksheetFunction.IsText(varValue) Then myError (2)
    If Application.WorksheetFunction.IsNumber(varName) Then myError (2)

    'Rest of code if no error

End Sub

Sub myError(x)
'=========================================
'Error Handling - Variable
'=========================================

Dim response
    
Select Case x

Case "1"
'1 refers to variable

    response = MsgBox("Please do not use 'R' or 'C' as a variable", vbSystemModal + vbInformation, "ACTOM - Incorrect Value Entered!")
    End
    
    btnvSolve_Reset_Click

Case "2"
'2 refers to text or numbers being used wrong

    response = MsgBox("Please ensure that the textbox has text and numbers in values", vbSystemModal + vbInformation, "ACTOM - Incorrect Value Entered!")
    End

End Select

End Sub

[royUK]

I can't see why the form should close unless there is something in btnvSolve_Reset_Click.

I can't see why you use worksheet functions to check for numbers

Option Explicit

Private Sub CommandButton1_Click()
    With Me
        If Len(.TextBox1.Value) = 0 Then
            MsgBox "You must complete the box"
            Exit Sub
        End If
        If IsNumeric(.TextBox1.Value) Then
            MsgBox "It's a number"
        Else: MsgBox "It's text"
        End If
    End With
End Sub

[Jacques Grobler]

Hi Roy,

Sorry for the late reply, have been occupied a bit.
I'll give this a try thanks.