Showing another form once data is validated

[hawaiian1975]

I am trying to show pass data to another form once the data is validated. My problem is that when I click the next form selection, it will validate the data and still move on to the next form. For example, I type in 23A6, it will validate the data as invalid and still move on to the next form. Here is the code that I am trying:

Private Sub mnuDataNextForm_Click()
Const conBtns = vbOK + vbExclamation + vbDefaultButton1 + vbApplicationModal

Dim Ndx As Integer
Dim Cancel As Boolean

For Ndx = txtWheel.LBound To txtWheel.UBound
txtWheel_Validate Ndx, Cancel
If Cancel Then
MsgBox "Invalid Data", conBtns, "Data Entry Form"
txtWheel(Ndx).SetFocus
Else
frmCompute.Show
frmDataEntry.Hide
Exit For
End If
Next Ndx

End Sub

 

[luisfelipe007]

Check my answer in your last post.

--
Luis MX

 

[hawaiian1975]

I tried it, and I'm still having problems with it...

 

[FrankEd]

I can't see what luisfelipe007's suggestion was, but it looks to me as though you've got the 'Exit For' in the wrong place.

If you put it after the failed validation message (instead of after showing the next form) then the program can continue and the Setfocus will work. Otherwise it will keep validating items and if it finds a valid one, it will display the next form and then exit the loop.