How to type in number value on screen field w/o having to place cursor at beginning??

[rthakral]

Hi all,

I'm having trouble with a field on my DB. I have a field named zip code. It has a limit of 5 characters that are only number values, I'm not having any trouble with entering information at all, it's easiest when I just tab into the cell from the previous one. However, the part I am having trouble with is when I click within the field and the cursor, let's say, is at the second character line, and I enter the zipcode 15222, it'll only enter 1522 since my cursor is at the second line.

How can I fix this so that wherever my cursor is, within the box it'll type the full 5 digit zip code? My boss is insistent on making sure that even if he clicks towards the right of the box, it should type the full number in no questions asked.

Please advise!!! Any help would be greatly appreciated. Thanks

Best,
RT

[ItsMe]

Post # 2 has some example code in this thread here
https://www.accessforums.net/forms/p...eld-38402.html

[rthakral]

Sorry, I don't know a lick of coding but thank you! I was hoping there would be some kind of an answer within the property fields? Anyone know anything about how to do this?

[ItsMe]

Using Linq's code...

Try this in the control's Got Focus event and tab into the field. I am guessing you have a mask for the field/control, so I would like to test the behavior. Try it with a value and without a value in the field.

You can create a Got Focus event by highlighting the control and going to the Properties window. Click the Event tab. Click the Elipses(...) next to the Got Focus field. Click Code builder. Your VBA IDE will open. Paste the code below within the Event Handler you just created.

  If IsNull(Me.zip_code.Value) Then
   Me.Mzip_code.SelStart = 0
  End If
  
  If Not IsNull(Me.Mzip_codeValue) Then
    If Len(Me.zip_code.Value) < 20 Then
      Me.zip_code.SelStart = 1
    Else
      Me.zip_code.SelStart = 0
   End If
  End If

[rthakral]

I have no problem with it when I tab into the field, that's the way I'm already doing it. But my boss wants to be able to *click* anywhere in the field and have it type properly no matter what!

I will try this and let you know, give me a few mins.

[ItsMe]

Okay, You will want the code in the Click event also. It is a good idea to have it in both. So go ahead and add it to the click event too.

[Dal Jeanis]

And... to be specific... the way to enter that code is -
1) Open the form in design view.
2) Right-click the textbox control and select "properties" to open the properties pane.
3) Click on the Events tab in the properties pane.
4) Click in the box next to the appropriate event (On Got Focus)
5) Click the button with three dots. (...)
6) Select Code Builder
7) Place ItsMe's code between the line that says

Private Sub zip_code_GotFocus()

and the line that says:

End Sub

The above instructions (and ItsMe's code) assume that zip_code is the name of the text box.