Alphabet linked to handsign

[linda12]

Hi,
I would like to know if there is any way of doing this way . Like when I type a letter on my keyboard , a preassigned symbol (hand sign for that particular alphabet )appears on screen . It is alright if it disappears after that . Well, This is actually for someone with partial autism who can type , but has problems in reading the letters (starting problem ). He is well acquainted with a symbol for each particular letter . So when he types a letter , if the symbol comes on the screen on its own , he will be able to recognize it and make words independently . Let me know if this can be done. Thanks a lot.

[June7]

I suppose code in the KeyUp or KeyDown or KeyPress event could do this.

[linda12]

how to do that
???

[linda12]

The symbol which I want to insert is a picture. How do I do that

[RuralGuy]

Do you have pictures for each key?

[linda12]

Yes , I have pictures for each key .

[RuralGuy]

Have you designed your form to have a place to display this picture?

[linda12]

No.I don't know how to do .

[RuralGuy]

Well what did you have in mind? A big textbox to type in with a picture box next to it?

[June7]

I've tried to use VBA to set the ControlSource property of Image control and it didn't work. So the only thing I could suggest is to have 26 Images on the form and use code to make them visible/not visible.

[linda12]

Well what did you have in mind? A big textbox to type in with a picture box next to it?

Yes. When I press a letter on my keyboard ,for example A then handsign of A must appear on screen and then disappear .And then I press the next alphabet for example N , corresponding handsign must appear and then disappear . , So as to help the person make words(2 or 3 letter words) ..( The person I am working with is partially autistic and is interested in learning with computers . ) This might help him .

[linda12]

I've tried to use VBA to set the ControlSource property of Image control and it didn't work. So the only thing I could suggest is to have 26 Images on the form and use code to make them visible/not visible.

How do I insert images on the form ? And what is the code which can be used ??

[RuralGuy]

Here's a link to three different approaches: http://accdevel.tripod.com/imaging.htm

[amrut]

Try with one Image control say Image0, One textbox say Text 1 on a form. Save all the pictures in a folder naming them by the letter itself like A.jpg,B.jpg etc.
Following code in the texbox's key up event should show the picture. To make it disappear after some time, try the timer event.

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode > 64 And KeyCode < 91 Then
Me.Image0.Picture = "Path to Images Folder\" & Chr(KeyCode) & ".jpg"
End If
End Sub

Replace "Path to Images Folder\" with folder used to store images.

[June7]

I tried amrut's suggestion (as stated earlier, I've tried this before) and still can't get that to work. I know it's supposed to because before Access 2007 the only way to have dynamic image display in forms and reports was with VBA. Access 2007 introduced the ControlSource property to Image control so code is not required. However, can't set the ControlSource property with VBA and setting Picture property with VBA isn't working for me. The code runs without error but simply does not display image.

Take advantage of the ControlSource property by having a table of images with a record for each image. Text field for the characters and Attachment field to hold the images. Bind form to the table, bind Image control to the Attachment field holding the images, then code in textbox KeyUp event filters the form records to display appropriate sign.

Option Compare Database
Option Explicit
Private Sub Text0_KeyUp(KeyCode As Integer, Shift As Integer)
If (KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 65 And KeyCode <= 90) Or (KeyCode >= 97 And KeyCode <= 122) Then
    Me.Filter = "Char='" & Chr(KeyCode) & "'"
    Me.FilterOn = True
    Me.imgChar.Visible = True
End If
End Sub

Otherwise only other approach I could suggest requires 36 Image controls on a form and a single textbox for entering letters and this code:

Option Compare Database
Option Explicit
Public strImage As String

Private Sub Text0_KeyUp(KeyCode As Integer, Shift As Integer)
'This should handle digits 0 through 9 and letters (upper or lower case).
If strImage <> "" Then Me(strImage).Visible = False
If (KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 65 And KeyCode <= 90) Or (KeyCode >= 97 And KeyCode <= 122) Then
    strImage = "img" & Chr(KeyCode)
    Me(strImage).Visible = True
End If
End Sub