[Resolvido]Formulario com Caixa de Texto e caracteres limitados

darlansandro 13/5/2017, 18:57

darlansandro: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 138
Registrado : 03/05/2014

Mensagem nº1

[Resolvido]Formulario com Caixa de Texto e caracteres limitados

Mensagem darlansandro 13/5/2017, 18:57

Olá gente,

Tenho um formulário com uma caixa de texto vinculada a um campo de uma tabela. O campo da tabela é do tipo "Memorando" sem limitação de caracteres. No formulário após a atualização da caixa de combinação preciso que a informação constante na tabela, tenha sido disponibilizada na caixa de entrada do formulário. Neste momento funciona parcialmente, pois apesar da tabela origem o campo esta com tipo "Memorando" no momento da atualização para a caixa de entrada os caracteres estão limitados. A questão esta como não limitar a caixa de texto no formulário?

Estou disponibilizando o banco para download.

Grato,

darlansandro 14/5/2017, 14:28

darlansandro

darlansandro: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 138
Registrado : 03/05/2014

Mensagem nº2

Re: [Resolvido]Formulario com Caixa de Texto e caracteres limitados

Mensagem darlansandro 14/5/2017, 14:28

Olá,

Pesquisando encontrei nos tutoriais disponibilizados pela Microsoft a informação abaixo. Entretanto não encontrei nas propriedades do access 2010 o campo para caixa de texto chamado "Can Grow". Alguém poderia me apontar? Acredito que o procedimento pode ajudar na solução do problema.

Text Format: Se a caixa de texto estiver acoplada a um campo Memorando, você pode definir o valor na caixa da propriedade Text Format como Rich Text. Ao fazer isso, você pode aplicar vários estilos de formatação ao texto contido na caixa de texto. Por exemplo, você pode aplicar negrito a uma palavra e sublinhado a outra.

Can Grow: Esta propriedade é particularmente útil em relatórios para caixas de textos acopladas a campos Texto ou Memorando. A configuração padrão é Não. Se houver muito texto a ser exibido na caixa de texto, o texto aparecerá truncado (cortado). Entretanto, se você definir o valor da propriedade Can Grow como Sim, a caixa de texto automaticamente ajusta o tamanho vertical para imprimir ou visualizar todos os dados que ela contiver.

Grato por qualquer ajuda

**Alexandre Fim** 14/5/2017, 19:44

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3495
Registrado : 13/12/2016

Mensagem nº3

Re: [Resolvido]Formulario com Caixa de Texto e caracteres limitados

Mensagem Alexandre Fim 14/5/2017, 19:44

Darlan boa tarde,

Fiz uma sub no VBA que carrega o campo descrição do combo "Serviços"

1 - Inclui uma coluna no txtContratosNivel3 e a largura das colunas ficaram: 0cm;2,544cm;0cm;0cm
2 - A origem da linha deste combo traz na consulta o campo "IdNivel2" (que é a 4a. coluna do combo)
3 - No evento Change do combo, inclui a seguinte instrução:

Private Sub txtContratosNivel3_Change()
Me.txtTextoNivel3 = Me.txtContratosNivel3.Column(2)
'Me.txtTextoNivel3.Requery
CarregaTextoNivel3

End Sub

Public Sub CarregaTextoNivel3()
On Error GoTo trata_erro
Dim DB As DAO.Database
Dim rsT As DAO.Recordset
Dim msql As String

Set DB = CurrentDb

msql = "SELECT textoNivel3"
msql = msql & " FROM tblContratosNivel3"
msql = msql & " WHERE idNivel2 = " & txtContratosNivel3.Column(3) & ""
Set rsT = DB.OpenRecordset(msql, dbOpenSnapshot)

If Not rsT.EOF Then
txtTextoNivel3.Value = rsT("textoNivel3").Value
Else
txtTextoNivel3.Value = Empty
End If

rsT.Close
Set rsT = Nothing

Exit Sub

trata_erro:
MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
Exit Sub

End Sub

E ai funcionou !!!

Abraços e boa sorte.

darlansandro 14/5/2017, 22:17

darlansandro

darlansandro: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 138
Registrado : 03/05/2014

Mensagem nº4

Re: [Resolvido]Formulario com Caixa de Texto e caracteres limitados

Mensagem darlansandro 14/5/2017, 22:17

Olá Alexandre,

Obrigado pelo grande auxilio. Entendi a solução. Pensei que houvesse algo mais simples, como usar as propriedades da caixa de texto. Agradeço sua gentileza e ajuda, realmente não havia pensado na possibilidade apresentada pelo código. Problema resolvido.

Muito obrigado e Deus o abençoe.

**Alexandre Fim** 16/5/2017, 02:39

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3495
Registrado : 13/12/2016

Mensagem nº5

Re: [Resolvido]Formulario com Caixa de Texto e caracteres limitados

Mensagem Alexandre Fim 16/5/2017, 02:39

Olá Darlan,

Em algumas situações é necessário o uso do VBA, e através do código vc também tem mais controle sobre as rotinas do sistema.
As vezes, o uso excessivo de consultas e macro, pode atrapalhar no desempenho do Access e também para realizar alguma manutenção.
Se vc puder migrar tudo para código, é bem melhor pois facilita muito a manutenção.

Abraço