Required text Macro at completion of form. 1

[RonnieDobbs]

I have a form that should be fully completed by an employee. At the end of the form the final step is selecting, by combo box, whether an assignment is confirmed or not. I am wondering if it is possible, when an employee selects "yes" in the confirmed combo box, to have a macro that will check to see if all text boxes are filled in. If not, the form will not close unless fully completed.

Thanks for the help,

ab

 

[dwlerwill]

something like

Private Sub Combo6_AfterUpdate()

If Combo6.Text = "Yes" Then
If Text0.Text = "" Then GoTo Please_Complete
If Text0.Text = "" Then GoTo Please_Complete
If Text0.Text = "" Then GoTo Please_Complete


End If

Exit Sub
Please_Complete

MsgBox ("Type message")

End Sub



David Lerwill
"If at first you don't succeed go to the pub"

 

[RonnieDobbs]

thanks for the reply.

So i would have to call all of the text boxes on the form individually?
like:

If Combo6.Text = "Yes" Then
If Text23.Text = "" Then GoTo Please_Complete
If First.Text = "" Then GoTo Please_Complete
If Last.Text = "" Then GoTo Please_Complete
etc....

 

[dwlerwill]

It depends on the names. you could create an array and use a do until event to save time

David Lerwill
"If at first you don't succeed go to the pub"

 

[RonnieDobbs]

ok so since I do not know how create an array and am not to familiar with the code for do until, naming all text boxes like above will work, or no?

 

[dwlerwill]

I'm not an expert on arrays will see if I can dig up a sample for your to look at.

David Lerwill
"If at first you don't succeed go to the pub"

 

[RonnieDobbs]

Thanks for all the input and help.

I have tried the code you mentioned above with one text box and it is giving me an error in VB saying that it does not recognize the following:

Private Sub confirmed_AfterUpdate()[/color yellow]

If Confirmed.Text = "Yes" Then
If Offlimits.Text = "" Then GoTo Please_Complete


End If

Exit Sub
Please_Complete

MsgBox ("Type message")
End Sub

 

[dwlerwill]

oops try

Private Sub confirmed_AfterUpdate()

If Confirmed.Text = "Yes" Then

Offlimits.SetFocus
If Offlimits.Text = "" Then GoTo Please_Complete


End If

Exit Sub
Please_Complete:

MsgBox ("Type message")
End Sub

David Lerwill
"If at first you don't succeed go to the pub"

 

[RonnieDobbs]

nice one, worked!

ok last thing, would i repeat code for text boxes i require being filled in:

Private Sub confirmed_AfterUpdate()

If Confirmed.Text = "Yes" Then

Offlimits.SetFocus
If Offlimits.Text = "" Then GoTo Please_Complete

fee.SetFocus
If fee.Text = "" Then GoTo Please_Complete

End If

Exit Sub
Please_Complete:

MsgBox ("Type message")
End Sub
David Lerwill

 

[dwlerwill]

Yup thats it.

David Lerwill
"If at first you don't succeed go to the pub"

 

[RonnieDobbs]

terrific. Thanks a bunch!