Dodomr
|
CRICIUMA SC - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 13/12/2005 18:56 hs
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
|
|
|
|
kerplunk
|
SÃO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/12/2005 06:20 hs
Você está usando textbox com limite de caractéres? Se estiver use assim: txt_nome.text = left(rs!nome,txt_nome.Maxlength)
|
|
|
Martini
|
PAROBÉ RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/12/2005 06:21 hs
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
|
|
|
|
Postada em 14/12/2005 06:46 hs
Ajuste o alinhamento 0 = esquerda 1 = direita 2 = cetro txt_nome.Alignment = 0
dsmn
|
|
|
Dodomr
|
CRICIUMA SC - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/12/2005 14:29 hs
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
|
|
|
Dodomr
|
CRICIUMA SC - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/12/2005 14:38 hs
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
|
|
|