disable textboxes when conditions are met

[kelly mort]

Hello All,
I have this challenge here: i wanna find out if what i am thinking is possible. Then after that i need help with it.

So i have a textbox called txtCurrentUser and in this textbox i have username in it. Now i wanna write a script to look at the txtCurrentUser, counting from the left to right, match the third character to another textbox's value(txtOption). If value is not the same, then disable all textboxes from Rw2 to Rw23 (these are the names of textboxes i wanna disable if names didnt match). The value in txtCurrentUser could be as:
M1Afighter
M2Bswimmer
M3Csinger
M4Dpainter
M5 fisher

But when the values are the same, then i will like to disable all but two textboxes. Say i have the username: M5 fisher then in txtOption there is blank, then disable all except two say Rw6 and Rw16. Else disable all of them.

So the A, B, C, D or Blank is what i am talking about as the third character in the txtCurrentUser. Thanks and i hope this is very clear.
Kelly

Ps.
All these controls are on a userform

 

[kelly mort]

Bump

 

[My Aswer Is This]

I would normally ask my question like:
If this happens do this if not do this.

But you asked your question like this:

If this does not happen do this but if this does happen do this.


If my child was talking too much I may say this:

"If you speak one more time your going to bed" and I would think he could understand this.

But If I said: "If you do not speak one more time your going to stay up". I would think he would have to think a little longer to figure out what that may mean.

Just a thought of mine.

I worked on this for a little while but my head started hurting figuring out all the not and if not's

But this is probable because my Brain is just too simple.
I hope someone else will jump in here and help you

 

[mikerickson]

I think this loop will do what you want

For i = 2 to 23
    Me.Controls("Rw" & i).Enabled = False
Next i

Rw6.Enabled = (LCase(Mid(txtCurrentUser, 3, 1)) = LCase(txtOption.Text))
Rw16.Enabled = Rw6.Enabled

But this is probable because my Brain is just too simple.

That's what happens when you start thinking like a computer.

 

[kelly mort]

Wow!!!! Cant believe this but i have to. Worked like a charm. Thanks a lot. I need some more guidance here: the textboxes from Rw6 to Rw23 are 18 in number and pairing them gives me 9 pairs. And the thing is when the fourth character in txtCurrentUser is say "f" , i will enable only a pair of the "Rw" & i. So when txtCurrentUser contains say "p" as the 4th character, then another pair is enabled and so on. So this time we looking at the txtCurrentUser and txtOption for the match of the 3rd character then back to the txtCurrentUser to tell which of the Rw & i to enable based on the 4th character in it.

I should have added this in the first place but did not see the image clearly then. Thanks again.
Kelly

 

[kelly mort]

I would normally ask my question like:
If this happens do this if not do this.

I went through a lot of headaches myself to be able to put this post out here. Haha. Thanks for the response.
Kelly

 

[mikerickson]

Wow!!!! Cant believe this but i have to. Worked like a charm. Thanks a lot. I need some more guidance here: the textboxes from Rw6 to Rw23 are 18 in number and pairing them gives me 9 pairs. And the thing is when the fourth character in txtCurrentUser is say "f" , i will enable only a pair of the "Rw" & i. So when txtCurrentUser contains say "p" as the 4th character, then another pair is enabled and so on. So this time we looking at the txtCurrentUser and txtOption for the match of the 3rd character then back to the txtCurrentUser to tell which of the Rw & i to enable based on the 4th character in it.

I should have added this in the first place but did not see the image clearly then. Thanks again.
Kelly

What adaptations of my code have you tried?

You might try using something like

For i = 2 to 23
    Me.Controls.("Rw" & i).Enabled = CBool((i And 2) And 3)
Next I

 

[kelly mort]

What adaptations of my code have you tried?

You might try using something like

For i = 2 to 23
    Me.Controls("Rw" & i).Enabled = CBool((i And 2) And 3)
Next I

This is how i adapted to the code and how it is turn the textboxes on and off is not cool with me.
So what actually does the CBool((i And 2) And 3) do?

For i = 2 to 23
    Me.Controls("Rw" & i).Enabled = CBool((i And 2) And 3)
Next I
Rw6.Enabled = (LCase(Mid(txtCurrentUser, 3, 1)) = LCase(txtOption.Text))
Rw16.Enabled = Rw6.Enabled

 

[mikerickson]

my mistake, that should be (i Mod 2) = 0

 

[kelly mort]

what if i want to disable like this: when the fourth character in txtCurrentUser is say "f" , i will enable only a pairs say Rw6 and Rw15. Then when txtCurrentUser contains say "p" as the 4th character, then another pair say Rw7 and Rw16 is enabled and so on?