Hi Ed,
To resolve this issue, you need to capture the focus position. I write the
following code for you, please check if it works at your side:
Private Sub Command7_Click()
Me.Comments.Value = Left$(Me.Comments.Value, startPos) & "_TEST_" &
Right$(Me.Comments.Value, Len(Me.Comments.Value) - startPos)
End Sub
Private Sub Comments_GotFocus()
startPos = Me.Comments.SelStart
End Sub
Private Sub Comments_LostFocus()
startPos = Me.Comments.SelStart
End Sub
However the above code has a minor issue. When you input something to the
comment field and then move the focus to a middle position without leaving
the focus from the comment field, the text "_TEST_" cannot be correctly
inserted. I am trying to perform further research on this issue and will
reply back as soon as possible.
Best regards,
Charles Wang
Microsoft Online Community Support
===========================================================
Delighting our customers is our #1 priority. We welcome your
comments and suggestions about how we can improve the
support we provide to you. Please feel free to let my manager
know what you think of the level of service provided. You can
send feedback directly to my manager at: (e-mail address removed).
===========================================================
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/subscriptions/managednewsgroups/default.aspx#notif
ications.
Note: The MSDN Managed Newsgroup support offering is for
non-urgent issues where an initial response from the community
or a Microsoft Support Engineer within 1 business day is acceptable.
Please note that each follow up response may take approximately
2 business days as the support professional working with you may
need further investigation to reach the most efficient resolution.
The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by
contacting Microsoft Customer Support Services (CSS) at
http://msdn.microsoft.com/subscriptions/support/default.aspx.
============================================================
This posting is provided "AS IS" with no warranties, and confers no rights.
=========================================================