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" <phillips@tiscali.co.uk> schreef in bericht
news:%23898TBhhFHA.1252@TK2MSFTNGP09.phx.gbl...
> have you got some code to share?
>
> --
> HTH
>
> Bob Phillips
>
> "Peter" <scotsman@xs4all.nl> wrote in message
> news:efyUPWghFHA.3448@TK2MSFTNGP12.phx.gbl...
>> Hello everyone,
>>
>>
>>
>> So far I've managed to get a textbox updated when typing characters in
>> another textbox. Unfortunately, there are drawbacks that I can't get rid
> of.
>> Maybe someone can help me.
>>
>>
>>
>> Textbox: tbNumber
>>
>> This textbox is part of the source for the textbox that follows shortly.
>> When typing a number into tbNumber, I want that number to become visible
> in
>> the tbReference textbox with each character has just been typed.
>>
>>
>>
>> Textbox: tbReference
>>
>> The text in this textbox is a string variable consisting of a standard
> text
>> combined with a word that is put in the variable based on the selection
>> of
> 1
>> of 2 option buttons and the number typed in tbNumber.
>>
>>
>>
>>
>> Things that work and things that do not (yet?) work:
>>
>> When starting to type something into tbNumber the first character appears
>> only after the second one is typed.
>>
>> Another thing that does not (yet?) work is pressing "backspace" to delete
>> the last character.
>>
>> And choosing the other option does not cause immediate adjustment of the
>> string shown in tbReference.
>>
>>
>>
>> Maybe someone knows how to handle this.
>>
>>
>>
>> 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




--
HTH

Bob Phillips

"Peter" <scotsman@xs4all.nl> wrote in message
news:%23yR60%23EiFHA.1444@TK2MSFTNGP10.phx.gbl...
> 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" <phillips@tiscali.co.uk> schreef in bericht
> news:%23898TBhhFHA.1252@TK2MSFTNGP09.phx.gbl...
> > have you got some code to share?
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > "Peter" <scotsman@xs4all.nl> wrote in message
> > news:efyUPWghFHA.3448@TK2MSFTNGP12.phx.gbl...
> >> Hello everyone,
> >>
> >>
> >>
> >> So far I've managed to get a textbox updated when typing characters in
> >> another textbox. Unfortunately, there are drawbacks that I can't get
rid
> > of.
> >> Maybe someone can help me.
> >>
> >>
> >>
> >> Textbox: tbNumber
> >>
> >> This textbox is part of the source for the textbox that follows
shortly.
> >> When typing a number into tbNumber, I want that number to become
visible
> > in
> >> the tbReference textbox with each character has just been typed.
> >>
> >>
> >>
> >> Textbox: tbReference
> >>
> >> The text in this textbox is a string variable consisting of a standard
> > text
> >> combined with a word that is put in the variable based on the selection
> >> of
> > 1
> >> of 2 option buttons and the number typed in tbNumber.
> >>
> >>
> >>
> >>
> >> Things that work and things that do not (yet?) work:
> >>
> >> When starting to type something into tbNumber the first character
appears
> >> only after the second one is typed.
> >>
> >> Another thing that does not (yet?) work is pressing "backspace" to
delete
> >> the last character.
> >>
> >> And choosing the other option does not cause immediate adjustment of
the
> >> string shown in tbReference.
> >>
> >>
> >>
> >> Maybe someone knows how to handle this.
> >>
> >>
> >>
> >> Greetings,
> >>
> >> Peter
> >>
> >>
> >
> >
>
>
>