Eu carrego os dados de um campo da tabela assim:

txt_nome = rs("nome")

 

só que se o meu nome for maior que o que cabe no text fica aparecendo só o final,

gostaria de que mostrasse o inicio e o final ficasse oculto.

 

já tentei, sendkeys, com ^home, mas não funcionou

Você está usando textbox com limite de caractéres? Se estiver use assim:

txt_nome.text = left(rs!nome,txt_nome.Maxlength)

eu defino o tamanho do textbox(quantidade de caracteres) de acordo com o tamanho do textbox

 

  txtBancoDeDados.DataField = adoTb.Recordset.Fields(11).Name 'nome do campo da tabela
  txtBancoDeDados.MaxLength = adoTb.Recordset.Fields(11).DefinedSize 'tamanho do campo da tabela

Ajuste o alinhamento

0 = esquerda

1 = direita

2 = cetro

txt_nome.Alignment = 0

eu uso essa rotina

 

Public Sub lens()
    Dim cObjeto As Control
    For Each cObjeto In Controls
        If TypeOf cObjeto Is TextBox Then
            cObjeto.SelStart = 0
            cObjeto.SelLength = Len(cObjeto.Text)
           
   
   
        End If
   Next

End Sub

 

só que ela faz com que todos os textbox, percorram o valor que está nele, jogando os dados pra direita

Resolvi assim

Public Sub lens()
    Dim cObjeto As Control
    For Each cObjeto In Controls
        If TypeOf cObjeto Is TextBox Then
            Select Case Left(cObjeto.Name, 4)
                Case "Text"

                Case Else
                    cObjeto.SelStart = 0
                    cObjeto.SelLength = Len(cObjeto.Text)
              
            End Select

        End If
    Next

End Sub

 

Como os meus text são, txt_nomedocampo, os que forem Text, não recebem a funcao