Checkbox question

[Medicmike]

Hello,

Am new to this forum and fairly new to access but I am needing to have a checkbox, when clicked on a form, change the third character in a four character textbox. I have figured out how to "OnClick" of the checkbox change the color of the textbox in question but can't get the code right to change the text. When it is checked, I need the character to change from whatever it is, to a "G". I know I need to use the Replace function, but that is the extent of my current knowledge.

Any help would be appreciated.



Thanks,

[Robeen]

You should try something like this in your On Click:

[I'm calling the textbox txt1 and the checkbox chk1]

 
Dim txt1Text as String
 
If chk1.Value = True Then
    txt1.SetFocus
    txt1Text = Left(Me.txt1.Text, 3) & "G"
    txt1.Text = txt1Text    
End If

[Medicmike]

Thanks for replying Robeen,

The code does change a character to G, but it changes the fourth one, so I tried changing the string to a 2, and that did change the third character but then it also deletes the fourth character.

After it makes the update then i also get a runtime error 2115 and the debuger highlights the last line in the code "JAC_Code.Text = JAC_CodeText".

suggestions?

[Robeen]

Change this:
txt1Text = Left(Me.txt1.Text, 3) & "G"

to:
txt1Text = Left(Me.txt1.Text, 2) & "G" & Right(Me.txt1.Text,1)

That should give you the result you are looking for.

Hope that helps!!

[Medicmike]

That did it. thanks a bunch!