Add code to Text Box on Access Form

  • Posted:
  • Proposals: 3
  • Remote
  • #1382836
  • Awarded
Steve B.Intelligent Software SolutionsMark R. have already sent a proposal.
  • 0

Description

Experience Level: Intermediate
Estimated project duration: 1 day or less
I have code that places the cursor at the end of a text box on a form. It works fine on one text box but not on another. I need to make it work on both text boxes. The code that works is:

Private Sub Text31_Enter()
Me.Text31.SetFocus
Me.Text31.SelStart = Nz(Len(Me.Text31), 0)
Me.Text31.SelLength = Nz(Len(Me.Text31), 0)
End Sub

The code that doesn't work is:

Private Sub QWG_Enter()
Me.QWG.SetFocus
Me.QWG.SelStart = Nz(Len(Me.QWG), 0)
Me.QWG.SelLength = Nz(Len(Me.QWG), 0)
End Sub

New Proposal

Login to your account and send a proposal now to get this project.

Log in

Clarification Board Ask a Question

  • Ian C.

    Hi William

    Please post your existing VBA code.

    Many thanks

    Ian C

    William B.06 Dec 2016

    The code that works is:

    Private Sub Text31_Enter()
    Me.Text31.SetFocus
    Me.Text31.SelStart = Nz(Len(Me.Text31), 0)
    Me.Text31.SelLength = Nz(Len(Me.Text31), 0)
    End Sub

    The code that doesn't work is:

    Private Sub QWG_Enter()
    Me.QWG.SetFocus
    Me.QWG.SelStart = Nz(Len(Me.QWG), 0)
    Me.QWG.SelLength = Nz(Len(Me.QWG), 0)
    End Sub