Re: How to insert a '*' in certain controls when Enter is pressed.

Thank you very much Allen, you are incredible!

Re Marshall's solution; yes ideally I do want to insert '* ' and the space
does disappear. However I will run with Marshall for the moment and come back
to your solution when I have a bit of time soon.

Thanks again.

--
Regards
Tom


"Allen Browne" wrote:

Here's a more generic version, that allows you to insert whatever characters
you want at the cursor in the active control:
http://allenbrowne.com/func-InsertChar.html

You would call this one like this:
Call InsertAtCursor(vbCrLf & "*")

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Allen Browne" <AllenBrowne@xxxxxxxxxxxxxx> wrote in message
news:O3SmRX2TIHA.1208@xxxxxxxxxxxxxxxxxxxxxxx
Paste the function below into a module.

Then call it like this from sample text box named Text0:

Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
Call StarEnter(Me.Text0, KeyCode, Shift)
End Sub

Function StarEnter(ctl As Control, KeyCode As Integer, Shift As Integer)
'Purpose: Replace Enter keystroke with CrLf and asterisk.
Dim strPrior As String 'Text before the cursor.
Dim strAfter As String 'Text after the cursor.
Dim lngLen As Long 'Number of characters
Dim iSelStart As Integer 'Where cursor is.

'Ignore keystrokes other than Enter; ignore if Shift, Alt or Ctrl
pressed.
If (KeyCode = 13) And (Shift = 0) Then
With ctl
lngLen = Len(.Text)
'SelStart can't cope with more than 32k characters.
If lngLen <= 32764 Then
'Remember characters before cursor.
iSelStart = .SelStart
If iSelStart > 1 Then
strPrior = Left$(.Text, iSelStart)
End If
'Remember characters after selection.
If iSelStart + .SelLength < lngLen Then
strAfter = Mid$(.Text, iSelStart + .SelLength + 1)
End If
'Destroy the keystroke.
KeyCode = 0
'Assign prior characters, star, enter, and later
characters.
.Text = strPrior & vbCrLf & "*" & strAfter
'Put the cursor back where it as, after the CR, LF, and *.
.SelStart = iSelStart + 3
End If
End With
End If
End Function

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"ThomasAJ" <ThomasAJ@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:1A9AE702-4FAB-4C8A-8BDC-CE7BFE66FC06@xxxxxxxxxxxxxxxx
Thanks for that.

Any chance of more help.

I am using very clunky code that is not working.
eg the new line is being created at the start of the text, also when the
enter key is pressed at the end of some text the code falls over.

My code is:

MiscDetails.Text = Mid$(MiscDetails, 1, MiscDetails.SelStart) & "*" &
Mid$(MiscDetails, MiscDetails.SelStart + 1, Len(MiscDetails) -
MiscDetails.SelStart + 1)

Apart from the fact it is not working I bet there is a more specific
function I can use as well.

--
Regards
Tom


"Allen Browne" wrote:

Use SelStart to determine where the cursor is.

"ThomasAJ" <ThomasAJ@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:934DF817-8DEF-4451-B546-99396E3052B4@xxxxxxxxxxxxxxxx
There could be many other NEW LINES either before or after the
location of
where the NEW new line is called for. In other words the '*' must be
inserted
AFTER where the NEW new line is created.

The end result is to look like:
* blah blah1
* blah blah2
* blah blah3
* blah blah4

--
Regards
Tom


"Minton M" wrote:

On Jan 4, 7:41 pm, ThomasAJ <Thoma...@xxxxxxxxxxxxxxxxxxxxxxxxx>
wrote:
An important user wants to have a '*' inserted at the beginning of
a
NEW LINE
in certain controls when the ENTER key is pressed.

OK so in the Form_KeyDown event I can determine if the enter key
has
been
pressed, and I also know the name of the ActiveControl. The
controls in
question have the NewLine property set to YES.

So how to insert a '*' at the beginning of the new line. I have
tried
some
silly code in the Form_KeyDown event but I think it is the wrong
place
to go
changing control text.

Also bear in mind that the ENTER key may have been pressed in the
middle of
existing text and not just at the end.

--
Regards
Tom

In the control's keypress event, use Replace to search for the
newline
character and replace with a * followed by a new line. Don't forget
to
use the Text property of the Textbox rather than the value property.



.

Relevant Pages

  • Re: How to insert a * in certain controls when Enter is pressed.
    ... Dim strPrior As String 'Text before the cursor. ... Dim iSelStart As Integer 'Where cursor is. ... 'SelStart can't cope with more than 32k characters. ...
    (microsoft.public.access.formscoding)
  • Re: How to insert a * in certain controls when Enter is pressed.
    ... Function StarEnter(ctl As Control, KeyCode As Integer, Shift As Integer) ... Dim strPrior As String 'Text before the cursor. ... Dim iSelStart As Integer 'Where cursor is. ... 'SelStart can't cope with more than 32k characters. ...
    (microsoft.public.access.formscoding)
  • Re: How to insert a * in certain controls when Enter is pressed.
    ... 'Assign prior characters, star, enter, and later characters. ... 'Put the cursor back where it as, after the CR, LF, and *. ... Function StarEnter(ctl As Control, KeyCode As Integer, Shift As Integer) ... Dim iSelStart As Integer 'Where cursor is. ...
    (microsoft.public.access.formscoding)
  • Re: How to insert a * in certain controls when Enter is pressed.
    ... Function StarEnter(ctl As Control, KeyCode As Integer, Shift As Integer) ... Dim strPrior As String 'Text before the cursor. ... Dim iSelStart As Integer 'Where cursor is. ... 'SelStart can't cope with more than 32k characters. ...
    (microsoft.public.access.formscoding)
  • Re: speech recognition & e-mail messages probs !!!
    ... To answer your question about mouse control and cursor control with ... say that is because I correspond regularly with someone who uses DNS ... cursor with voice control. ... speech recognition solutions and support. ...
    (microsoft.public.windows.vista.general)