Getting the value of text selected in a text box.

[ChrisOswald]

Hi,

Does anybody know if it's possible to return the text in a textbox control that is selected? the closest I've come is this code:

Private Sub Command24_Click()
    Dim myCntl As Control
    Set myCntl = Me.txtBody
    myCntl.SetFocus
    MsgBox (myCntl.SelText)
End Sub

which puts the entirety of the contents of me.txtbody in the msgbox.

 

[boblarson]

If you can specify the name explicitly without moving back, you can get it with:

Private Sub Command24_Click()
    MsgBox Me.txtBody.SelText)
End Sub

it will work. But the minute you set focus, it is lost. So, you would need to save that value to a variable in the Lost Focus event of the text boxes so that you can grab it directly.

' in the General Declarations Section of the form
Private strSelText As String

and then in the LostFocus event of each text box you will possibly want this from:

Private Sub txtBody_LostFocus()
   strSelText = Me.txtBody.SelText
End Sub

So then you can get it from your command button:

Private Sub Command24_Click()
       MsgBox strSelText
End Sub

 

[ChrisOswald]

Thanks Bob.

This doesn't work entirely correctly on my computer (Access 2007) -- the text is being truncated to the first 128 characters. It does work correctly on a coworkers computer (Access 2003).

Any Ideas?

edit: the original code snippet also was truncating to 128 characters.

 

[boblarson]

Not sure - I somewhat vaguely have this idea that there was a bug in 2007 which was associated with something of this nature but I just can't remember.