[Resolvido]Limitar linhas numa caixa de texto

Boa tarde Amigos

Como limitar o número de linhas numa ListBox.

Por exemplo na imagem tem 24 linhas, mesmo com linhas em branco

Como impedir continuar para a linha 25

Obrigado

Obrigado Marcelo

Mas todo o texto que se está a ver na imagem da ListBox é texto como quem escreve no Microsoft Word.

É um campo chamado "Obs" de uma tabela "tb_Modelos"

Obrigado

E isso Marcelo.

Peço desculpa

Obrigado

Olá a todos,

Assis é uma Caixa de Listagem ou uma Caixa de Texto?
Não me parece que vá ter sorte, mas monte um pequeno exemplo para se testar.

Não pode ser o limite em numero de caracteres?

Abraço a todos

Olá a todos,

Marcelo, tenho uma ideia passar a txt temporario e conseguimos pelo "read line" contar.
Mas creio não ser a solução ideal porque vai demorar.

O nosso amigo Assis, está sempre a brindar com estas coisas
O melhor será mesmo o exemplo para se trabalhar e testar

Abraço

Boa tarde
Estou no móvel. Quando chegar a casa posto o exemplo.

Olá a todos,

Amigo Marcelo, estamos cá pela mesma causa , já não trocávamos umas palavras há algum tempo.  

Assis a "bola" está do seu lado, aguardamos...

1) É uma Caixa de Listagem ou uma Caixa de Texto?
2) Não pode ser o limite em numero de caracteres?

Anexe pequeno exemplo para se testar.

Abraço a todos

Boa tarde Amigos

É o campo "Obs" com fundo amarelo.

Quando chegar ás 25 linhas, não aceitar aceitar continuar.

Obrigado

Olá a todos,

Assis o seu exemplo para testes apresentava erros ao compilar.

Optei por criar um exemplo, mãos à obra para adaptar no seu projeto:
https://www.maximoaccess.com/t37917-contar-numero-de-linhas-de-campo-texto

Abraço a todos

Bom dia Amigos

Marcelo para limitar o numero de caracteres tem aqui no forum um exemplo do Mestre JPaulo, este

dropbox.com/s/sw0pw2dy15vvauo/Limitaquantidadecarateresnumcampo.txt?dl=1

Mas se reparar bem na mensagem Nº 1, o estilo de como o utilizador utiliza a caixa de texto não vai funcionar a contagem mas sim as 25 linhas.

Porque no formulário não necessita de mover a barra de rolagem para ver se tem mais dados para baixo, mas principalmente por causa da impressão.

Já está no relatório com tamanho para as mesmas 25 linha.

Quanto ao exemplo que o Amigo Teixeira postou, não estou a ver como dar a volta.

Obrigado a todos

Olá Assis,

Se é para um relatório, tem a opção expandir (que permite alargar quando passa o espaço).
Sou da opinião que seria o ideal, pois pode fazer falta mais espaço para colocar as observações.

Voltando à questão do tópico, o exemplo que partilhei faz o que pretende?
Já tentou no evento "Before Update" antes de atualizar.

Abraço

Bom dia Teixeira

Com o evento "Before Update" antes de atualizar.

Mas como por a parar ás 25 linhas ?

Olá a todos,

Assis, era só ajustar ao seu gosto, então!!!

No exemplo da mensagem n. 12, teste o código abaixo:

Código:

Private Sub OBS_BeforeUpdate(Cancel As Integer)
'Alvaro Teixeira (ahteixeira) 2020 - MaximoAccess
    If Len(Me.OBS & "") > 0 Then
        Dim iLinhas As Integer
        iLinhas = UBound(Split(Me.OBS, vbCrLf)) + 1
        
        If iLinhas > 25 Then
            MsgBox "Tem " & iLinhas & ", só é permitido 25 linhas, as alterações vão ser revertidas.", vbInformation, "Aviso"
            Cancel = True
            Me.OBS.Undo
        End If
    End If
End Sub

Nota: De futuro, não partilhe exemplos com erros de compilação, deve compilar e ter o exemplo funcional.

Abraço

Teixeira

Obrigado

Bom almoço