[Resolvido]Caixa de texto ajustável ao texto

Boa noite pessoal,

Gostaria de saber se é possível criar um relatório onde o tamanho da caixa de texto seja ajustável ao texto contido nela?

Por exemplo, criar uma caixa de texto com largura de 2 cm, mas se o texto for maior, aumentar a largura da mesma para caber o texto.

Olá! tente algo assim:

Me.NomeDoCampo.Width = Len(Me.NomeDoCampo) * Int(80 * 12 / 10) + 500

Dependendo o tamanho e tipo da fonte, pode ser necessário alterar os valores, em especial o último número, o 500.

olá Criquio,
estou utilizando o office 2003, criei o relatório linkando uma consulta e inseri uma caixa de texto e nela acoplando o campo NOME da consulta. no evento abrir do relatório inseri Me.NOME.Width = Len(Me.NOME) * Int(80 * 12 / 10) + 500 porém da o erro "Você inseriu uma expressão que não tem valor" - a caixa de texto não possui o método Width.

Tente assim no evento "Ao carregar":

If Not IsNull(Me.NOME) Then
Me.NOME.SetFocus
Me.NOME.Width = Len(Me.NOME) * Int(80 * 12 / 10) + 500
End If

É preciso enviar o foco ao campo para que possa surtir o efeito. Se tiver mais de um campo que precise do mesmo efeito, basta incluí-los assim:

If Not IsNull(Me.NOME) Then
Me.NOME.SetFocus
Me.NOME.Width = Len(Me.NOME) * Int(80 * 12 / 10) + 500
Me.NOME2.Width = Len(Me.NOME2) * Int(80 * 12 / 10) + 500
Me.NOME3.Width = Len(Me.NOME3) * Int(80 * 12 / 10) + 500
End If

tentei é me retornou o seguinte erro nessa linha: Me.NOME.SetFocus
"Método ou Membro de dados não encontrado"

Essa mensagem acontece quando você coloca um nome de controle inexistente. Verifique se o nome do campo está correto.

na consulta tenho os campos NOME, IDT, CPF, ETC... no relatório inseri uma caixa de texto chamada nome acoplada com o campo NOME da consulta.

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.