text box in frames in user forms

[VBAmalta89]

I have a user form which contains a frame. Within this frame tehre are a number of text boxes where the user is asked to enter numerical information.

I would like to create a data validation so that when the user clicks teh done button on the user form, the procedure is halted and a message prompted if one of the text boxes is left blank.

How can i code this?

 

[Domenic]

Try...

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton1_Click()
    [color=darkblue]Dim[/color] Ctrl [color=darkblue]As[/color] Control
    [color=darkblue]For[/color] [color=darkblue]Each[/color] Ctrl [color=darkblue]In[/color] Me.Frame1.Controls
        [color=darkblue]If[/color] TypeName(Ctrl) = "TextBox" [color=darkblue]Then[/color]
            [color=darkblue]If[/color] Ctrl.Object.Value = "" [color=darkblue]Then[/color]
                MsgBox "Please enter a value for " & Ctrl.Name & "...", vbExclamation
                [color=darkblue]Exit[/color] [color=darkblue]Sub[/color]
            [color=darkblue]End[/color] [color=darkblue]If[/color]
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color] Ctrl
    [color=green]'Your code[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]

Change the name of the controls (CommandButton1 and Frame1), accordingly.