[Resolvido]Indicar com reticencias que há mais informações em campo

Olá pessoal!

Estou com uma duvida. Tenho um campo em um subform e algumas informações são muito grandes e não são totalmente exibidas. Sendo assim, preciso indicar que tem mais informações a ler no campo e pretendo fazer isso colocando reticencias. Isso é possivel?

Desde ja obrigado!

Pessoal,

Pra ficar mais facil de entender vou dar um exemplo:

Na caixa de texto "Descriçao" eu inseri "Produto em promoção enquanto durar o estoque", porém, no subform de consulta o campo "Descriçao" não pode ser muito grande, sendo assim, só exibe parte da informação, por exemplo: "Produto em promoção enquan".

Então, o que eu preciso é que fique assim: "Produto em promoção enquan...".


Obrigado!

Bom dia, lupe

Criei-lhe esta função:
Function TextoReticencias(texto as string) as string
If len(Texto)>10 Then Textoreticencias=Mid(Texto,1,7) & "..." Else Textoreticencias=texto
end function

Onde tiver o nome do campo, como origem dos dados, coloque Textoreticencias(Nomedocampo)

Alexandre,

Funcionou perfeitamente, era exatamente o que eu precisava.

Muito obrigado por mais essa impagavel ajuda!


Abraço!