Variable Names

[deepheat101]

Greetings (again)

On my MultiPage UserForm that has potentially 20 pages with each page containing three TextBox. I am attempting to perform the following data validation - if the page is visible then none of the three TextBoxes that exist on that page can be blank. If a TextBox is blank SetFocus to it.

The naming convention that I have used for the TextBoxes is as follows...

 Page1     Page2      Page3      Page4   etc.....
txtBox11  txtBox12   txtBox13   txtBox14
txtBox21  txtBox22   txtBox23   txtBox24
txtBox31  txtBox32   txtBox33   txtBox34

For PageNumber = 1 To 20
        
  If frmMain.MultiPage1.Pages(PageNumber).Visible = True Then
            
    Select Case ""
      Case .Pages(PageNumber).txtBox1 & PageNumber
        frmMain.txtBox1 & PageNumber.SetFocus               '<<<<<<<<<<
                
      Case .Pages(PageNumber).txtBox2 & PageNumber
        frmMain.txtBox2 & PageNumber.SetFocus               '<<<<<<<<<<

      Case .Pages(PageNumber).txtBox3 & PageNumber
        frmMain.txtBox3 & PageNumber.SetFocus               '<<<<<<<<<<

    End Select
            
  End If
        
Next

The code marked with "<<<<<<<<<<" does not get past the VBA syntax checker Interestingly, the Case statements pass the syntax checker but fail at run time. What is the correct code for these lines?

Many Thanks

dp

 

[iliace]

Explain what you mean by this:

Select Case ""

 

[deepheat101]

Explain what you mean by this:

Select Case ""

If "" = .Pages(PageNumber).txtBox1 & PageNumber Then
....
If "" = .Pages(PageNumber).txtBox2 & PageNumber Then
....
If "" = .Pages(PageNumber).txtBox3 & PageNumber Then
....

 

[Norie]

Take a look at the controls collection.

Me.Controls("txtbox1" & PageNumber)

 

[iliace]

so in every instance you'd be comparing a blank to something. Normally you do:

Select Case variable_name

not a constant. It defeats the purpose of the construct.

 

[xenou]

It doesn't seem like Case is what you want here to me either. I'm with Norie - maybe you are trying to loop through a collection of textbox controls.

This is interesting:

If "" = .Pages(PageNumber).txtBox1 & PageNumber Then

You'll never get a true result if PageNumber isn't = "" which I doubt it is!

I'm not seeing the syntax error but the logic is puzzling. Are you sure you have the correct With-End structure -- i.e., to go with .Pages(PageNumber).txtBox1

--AB