keypress on a userform (with code)

[Peter]

Yes I do. Here it is. (BTW Sorry to not include it in my first post)

<Beginning of code in the module for the Userform>

Option Explicit
Const CONCERNING As String = "Concerning: "
Const OPTIONBUTTON1TXT As String = "optionbutton 1 text "
Const OPTIONBUTTON2TEXT As String = "optionbutton 2 text "
Dim sConcerning As String


Private Sub tbNumber_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If obOptionButtonOne Then
sConcerning = CONCERNING & OPTIONBUTTON1TXT & tbNumber
Else
sConcerning = CONCERNING & OPTIONBUTTON2TXT & tbNumber
End If
tbReference = sConcerning
End Sub


Private Sub obOptionBttn1_Click()
sConcerning = CONCERNING & OPTIONBUTTON1TXT & tbNumber
tbNumber.SetFocus
End Sub


Private Sub obOptionBttn2_Click()
sConcerning = CONCERNING & OPTIONBUTTON2TXT & tbNumber
tbNumber.SetFocus
End Sub

<End of code>

Greetings,

Peter

 

[Bob Phillips]

Peter,

How about this

Option Explicit

Const CONCERNING As String = "Concerning: "
Const OPTIONBUTTON1TXT As String = "optionbutton 1 text "
Const OPTIONBUTTON2TXT As String = "optionbutton 2 text "
Dim sConcerning As String

Private Sub tbNumber_Change()
If obOptionBttn1 Then
sConcerning = CONCERNING & OPTIONBUTTON1TXT & tbNumber
Else
sConcerning = CONCERNING & OPTIONBUTTON2TXT & tbNumber
End If
tbReference = sConcerning
End Sub


Private Sub obOptionBttn1_Click()
sConcerning = CONCERNING & OPTIONBUTTON1TXT & tbNumber
tbNumber.SetFocus
End Sub


Private Sub obOptionBttn2_Click()
sConcerning = CONCERNING & OPTIONBUTTON2TXT & tbNumber
tbNumber.SetFocus
End Sub