verify data entered in text box in user forms

[VBAmalta89]

I have a text box in a frame in a user form which can only accept numerical values. There is an OK button on the form which the user clicks once the text boxes are filled in.

I need to create some sort of validation to ensure that numerical values are entered in these text boxes, ie a message is prompted if the user clicks OK and a text box is left blank, forcing the user to fill the text box before exiting.

how can i achieve this? I have managed to do it in normal text boxes that dont have frames but I cant seem to use the same codes for text boxes within frames

 

[MickG]

Try these codes as required:-
Ensures Textboxes within Frame1 have data before close.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim shp As Control
For Each shp In Me.Controls
    If shp.Parent.Name = "Frame1" And TypeName(shp) = "TextBox" Then
        If shp.Text = vbNullString Then
            Cancel = True
            MsgBox "Please fill in all TextBoxes"
        End If
End If
Next shp
End Sub

Ensures Numerical entry in TextBox1

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If -CLng(Chr(KeyAscii) Like "[0-9]") = 0 Then MsgBox "Please Enter Numbers Only"
KeyAscii = KeyAscii * -CLng(Chr(KeyAscii) Like "[0-9]")
End Sub

Mick

 

[VBAmalta89]

i would like the prompt to occur yet the data not saved until zone area is inputted because with this code it is storing other data that is filled in frame 1 before inputting zone area...then prompting for zone area and re saving the data