[Resolvido]Altura de Campo de Subformulário Ajustável

Prezados, boa tarde!

Eu tenho um formulário "Cadastro de Clientes" onde detro dele contem o Subformulário Contínuo (Vário Itens) "Histórico de Atividades" que possui data, hora, status e Histórico(Memorando), mas para ficar de forma correta eu preciso que a altura do campo Histórico seja ajustável conforme o volume de informação que o registro contem.

Alguem pode me ajudar?

Obrigado!

O campo Memo expande-se automaticamente

Talvez não me tenha explicado bem. O campo Memo ajusta-se automaticamente. Em termos de dimensões é só redimensionar para a altura que desejar.

Vieira, boa tarde!

No histórico só aparece metade da informação e não se ajustou a quantidade de texto.

Será que tem alguma programação no VBA que permita ajustar a altura do campo talves utilizando o If em relação ao número de caracteres?

Obrigado

Se tem desconheço, amigo. O campo memo é um caixa de texto como as outras, só quer permite 255 caracteres. Possui a propriedade da Barra Lateral que permite percorrer o campo.

Seu suborfomulario é baseado em uma tabela ou em uma consulta?

Agora depende do que é metade da informação. Será que não tem info a mais para o campo? Veja bem Bruno, o campo memo permite muita informação e não esgota assim tão simples. Esse histórico é muito grande?

Tive um problema semalhante onde o texto saia cortado, mas isso aconteceu porque o texto na tabela provinha de uma outra tabela via comando select em tabelas vinculadas.....
ai o texto adquirido da outra tabela nao era armazenado completamente na tabela de destinho

Nào sei se é esse o caso...
Espero ter podido ajudar de alguma forma..

Abraços

Uma pergunta que me passou:

Nas propriedades do campo, aba formato, você colocou "Ampliável=Sim?

Harysohn, obrigado pela sua intervenção. Desculpe que não tinha reparado, mas é uma achega válida.

Fiz um exemplo para vossa apreciação.
Abra o Form PRINCIPAL
Vá no subformulario e click em cima do histórico, abrira a consulta de todo o texto inserido no historico...

Se lhe for útil...

audações

Harysohn, considerando que a função do forum é auxiliar a todos que passem por aqui de forma igual, a moderação pede que seja colocado o exemplo aqui, para que todos que estiverem procurando a solução de problema parecido, possa se valer do mesmo. Caso necessário, envie para ccsregistros@gmail.com que eu posto aqui.
A moderação agradece.

Perdoe-me, realmente nào estava conseguindo enviar.. mas agora editei o topico e consegui....

Grato.. acima esta o exemplo

Harysohn

Prezados, boa tarde!

Eu adaptei o modelo do Harysohn para o que está ocorrendo comigo, porém não consegui anexar. Mas a diferença é que o subformulário está em Modo Padrão Formulário Contínuo e os registros são maiores com o espaço semelhante. Para ver o que está acontecendo é so ampliar os registros apos mudar o subformulário para Formulário Continuo.

Abraços

E o que é quer isso quer dizer? O problema foi resolvido, não foi????

Vieira, boa noite!

Ainda não

Att

Bruno

Você não pode colocar a BD aqui?

Um pitaco;

No seu subformulario, coloque o campo memo da mesma dimensão que as caixas de texto.

No evento VBA ao receber o foco nesse campo memo, faça assim;

Private Sub SeuCampoMemo_GotFocus()
If Not IsNull(Me.SeuCampoMemo.Value) Then
DoCmd.RunCommand acCmdZoomBox
End If
End Sub