On 27 Jul, 13:32, "Stuart McCall" <smcc...@myunrealbox.comwrote:
"Burden" <james.bur...@sonic-comms.comwrote in message
news:04**********************************@a1g2000h sb.googlegroups.com...
Please help i am hitting my head against a wall here.
I am creating a database to use with a touchscreen and i have created
a pop up keyboard. I have got stuck on two things.
Firstly when i am hitting the keys, the letter is being added to a
text box fine but the cursor is jumping back to the beginning
everytime. When i hit the next letter it is being added to the end of
the text fine. The problem is that when i want to enter the command
space(1) into the code, i can see it add it to the text string but
when the next letter is added it is though it is not there and just
ends up in a string of letters with no space.
How can i make the code so that when i am typing it is leaving the
cursor at the end? Here is a simple part of my code for the letter Z
and the space.
Private Sub Letter_Z_Click()
On Error GoTo Err_Letter_Z_Click
* *Me!Enter_Box.SetFocus
* *Me!Enter_Box.Text = Enter_Box.Text + "Z"
Exit_Letter_Z_Click:
* *Exit Sub
Err_Letter_Z_Click:
* *MsgBox Err.Description
* *Resume Exit_Letter_Z_Click
End Sub
Private Sub Space_Bar_Click()
On Error GoTo Err_Space_Bar_Click
* *Me!Enter_Box.SetFocus
* *Me!Enter_Box.Text = Enter_Box.Text + space(1)
Exit_Space_Bar_Click:
* *Exit Sub
Err_Space_Bar_Click:
* *MsgBox Err.Description
* *Resume Exit_Space_Bar_Click
End Sub
Once i can make the cursor appear at the end i can proceed to my next
problem.
Well the first thing I suggest is that you use the ampersand (&) for your
string concatentation rather than plus.
If that doesn't fix it, try inserting:
Me!Enter_Box.SelStart = Len(Me!Enter_Box.Text) + 1
after adding to the .Text property.
The other problem that i have is i need to create a button that can
delete one character at a time. It is easy to create a button that can
make the field null but i don't wish to do all of it only the last
character.
With Me!Enter_Box
* * .Text = Left(.Text, Len(.Text) - 1)
End With
Hope some one out there can help.
Thanks James- Hide quoted text -
- Show quoted text -- Hide quoted text -
- Show quoted text -
Also could you tell me how i insert a space.
I have tried :
Me!Enter_Box.SetFocus
Me!Enter_Box.Text = Enter_Box.Text & " "
Me!Enter_Box.SelStart = Len(Me!Enter_Box.Text) + 1
&
Me!Enter_Box.SetFocus
Me!Enter_Box.Text = Enter_Box.Text & chr$(127)
Me!Enter_Box.SelStart = Len(Me!Enter_Box.Text) + 1
&
Me!Enter_Box.SetFocus
' Me!Enter_Box.Text = Enter_Box.Text & " "
Me!Enter_Box.SelStart = Len(Me!Enter_Box.Text) + 2
Just wont add a space character. With the first one you can see the
cursor jump, but there is no space.
