Accented Characters

[E Thoemmes]

Hi

I am designing an application to be used by a book dealer and they
have asked if I could develop a function on the form where they could
use accented characters and other european characters. There are
roughly 10 characters they want to use.

I suggested that they use the alt+number combination but as they are
not very computer literate they asked if there was another way of
doing this. I thought that maybe I could put a small command button
for each character on the form and when they click the button it could
paste the special character into the current text box on the form.

I am having difficulty implementing this as I do not know how to
reference the current curson position in the text box with focus. Also
the text box will lose focus as soon as I click the command button.
Can anyone think of a way of achieving this? If you could provide some
code examples I would be much appreciative.

Many thanks

E Thoemmes

[edgar.thoemmes]

Hi

I have made a little progress on this problem. I am using the SelStart
property of me.text0 to get the cursor position and then SelText to
paste my special character in. I have posted my code below.
Unfortunately there are still a couple of problems.

As I didn't know which event would work best for capturing SelStart I
have shown all my workings below. The problem with the method below is
if I am typing it text0 and then hit the command button it pastes the
special character at the beginning of the text box but if I manually
move focus to another text box and then place my curson back into the
form press the command button it pastes the character into the correct
position.

Does anyone know why this might happen and also which event would be
best to capture the SelStart - AfterUpdate, LostFocus or MouseUp?

TIA

Option Compare Database
Option Explicit
Dim intPosition As Integer

Private Sub Command2_Click()
Me.Text0.SetFocus
Me.Text3.Value = intPosition
Me.Text0.SelStart = intPosition
Me.Text0.SelText = "à"
End Sub

Private Sub Text0_AfterUpdate()
Me.Text3.Value = intPosition
End Sub

Private Sub Text0_LostFocus()
intPosition = Me.Text0.SelStart
End Sub

Private Sub Text0_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
intPosition = Me.Text0.SelStart
End Sub

[pks]

Have you considered an autokeys macro that calls the appropriate
function using hotkey combinations? I don't believe that changes the
focus and that might help your positioning.

[PC Datasheet]

From Windows Help file:

Using Character Map
You can use Character Map to copy and paste special characters into your
documents, such as the trademark symbol, special mathematical characters, or
a character from the character set of another language.

Open Character Map.

Notes

a.. To open Character Map, click Start, point to Programs, point to
Accessories, point to System Tools, and then click Character Map.
b.. For information about using Character Map, click Help in Character
Map.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com


<ed************@boiukfs.co.uk> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com...
Hi

I have made a little progress on this problem. I am using the SelStart
property of me.text0 to get the cursor position and then SelText to
paste my special character in. I have posted my code below.
Unfortunately there are still a couple of problems.

As I didn't know which event would work best for capturing SelStart I
have shown all my workings below. The problem with the method below is
if I am typing it text0 and then hit the command button it pastes the
special character at the beginning of the text box but if I manually
move focus to another text box and then place my curson back into the
form press the command button it pastes the character into the correct
position.

Does anyone know why this might happen and also which event would be
best to capture the SelStart - AfterUpdate, LostFocus or MouseUp?

TIA

Option Compare Database
Option Explicit
Dim intPosition As Integer

Private Sub Command2_Click()
Me.Text0.SetFocus
Me.Text3.Value = intPosition
Me.Text0.SelStart = intPosition
Me.Text0.SelText = "à"
End Sub

Private Sub Text0_AfterUpdate()
Me.Text3.Value = intPosition
End Sub

Private Sub Text0_LostFocus()
intPosition = Me.Text0.SelStart
End Sub

Private Sub Text0_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
intPosition = Me.Text0.SelStart
End Sub

[Terry Kreft]

Here's one way.

1) Create a form
2) Place a textbox on the form
3) Paste the following code into the form
' ****** Code Start ***********
Option Compare Database
Option Explicit

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim cTL As Control
Dim tBox As TextBox
Dim intSelStart As Integer
Dim intSelLen As Integer
Dim strLText As String
Dim strRText As String
Dim strInsert As String

strInsert = ""

If (Shift And acAltMask) = acAltMask Then
Select Case KeyCode
Case vbKeyA
strInsert = Chr(224)
Case vbKeyU
strInsert = Chr(218)
End Select
End If

If Len(strInsert) > 0 Then
Set cTL = Me.ActiveControl
If TypeOf cTL Is TextBox Then
Set tBox = cTL

With tBox
intSelStart = .SelStart
intSelLen = .SelLength
strLText = Left(.Text, intSelStart)
strRText = Mid(.Text, intSelStart + intSelLen + 1)
.Text = strLText & strInsert & strRText
.SelStart = intSelStart + 1
End With
End If
End If
End Sub
' ****** Code End ***********
4) Run the form, type some text in the text box and then press Alt-A or
Alt-U on the keyboard.
--
Terry Kreft
MVP Microsoft Access
"E Thoemmes" <ed************@boiukfs.co.uk> wrote in message
news:1c**************************@posting.google.c om...

Hi

I am designing an application to be used by a book dealer and they
have asked if I could develop a function on the form where they could
use accented characters and other european characters. There are
roughly 10 characters they want to use.

I suggested that they use the alt+number combination but as they are
not very computer literate they asked if there was another way of
doing this. I thought that maybe I could put a small command button
for each character on the form and when they click the button it could
paste the special character into the current text box on the form.

I am having difficulty implementing this as I do not know how to
reference the current curson position in the text box with focus. Also
the text box will lose focus as soon as I click the command button.
Can anyone think of a way of achieving this? If you could provide some
code examples I would be much appreciative.

Many thanks

E Thoemmes