Userform Problem

[zyhin]

Hi all,

Hoping someone can help me. I have a userform that has 2 text boxes and 9 option buttons in a frame. Is there any way to stop text being entered when a option button has been pressed and vice versa.

Zyhin

 

[Tom Urtis]

Assuming:

- Your TextBoxes are named TextBox1 and TextBox2
- Your 9 OptionButtons are named OptionButton1, OptionButton2, and so on until OptionButton9
- If any OptionButton is selected (True) then you do not want any new text to be added to either TextBox

Then

This in the userform module would work:

 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim iOpt%
For iOpt = 1 To 9
If Controls("OptionButton" & iOpt).Value = True Then
KeyAscii = 0
Exit For
End If
Next iOpt
End Sub
 
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim iOpt%
For iOpt = 1 To 9
If Controls("OptionButton" & iOpt).Value = True Then
KeyAscii = 0
Exit For
End If
Next iOpt
End Sub

 

[zyhin]

Thanks Tom...Works well...Just wish I understood it...lol

Makes sense to me except the first line. Being new to VBA don't help

Thank again

Zyhin

 

[zyhin]

Try and try..I cant get the code to work Vise versa.

I put this code in for each option button and changed the code to textboxes. However the first line is got me stumped. Am I on the right track or going wrong.

Private Sub OptionButton1_Click(ByVal KeyAscii As MSForms.ReturnInteger)
Dim iTxt%
For iTxt = 1 To 2
If Controls("TextBox" & iOpTxt).Value = True Then
KeyAscii = 0
Exit For
End If
Next iTxt
End Sub