MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Limitar linhas numa caixa de texto

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Limitar linhas numa caixa de texto Empty [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Assis 22/5/2020, 12:06

    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

    [Resolvido]Limitar linhas numa caixa de texto Sem_t148


    .................................................................................
    *** Só sei que nada sei ***
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Marcelo David 22/5/2020, 13:09

    Bom dia Assis,
    direto na query que alimenta a listbox.
    Poderia ser algo do tipo:

    SELECT TOP 25 colunas1, coluna2 FROM SuaTabela


    .................................................................................
    [Resolvido]Limitar linhas numa caixa de texto Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Limitar linhas numa caixa de texto Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Limitar linhas numa caixa de texto Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Limitar linhas numa caixa de texto Marcel11
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Assis 22/5/2020, 13:56

    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





    .................................................................................
    *** Só sei que nada sei ***
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Marcelo David 22/5/2020, 16:04

    Assis, não entendi.
    ListBox não é possível editar e sim textbox.

    O que você quer então é limitar a 25 linhas
    de uma textbox?

    Fiquei confuso...


    .................................................................................
    [Resolvido]Limitar linhas numa caixa de texto Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Limitar linhas numa caixa de texto Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Limitar linhas numa caixa de texto Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Limitar linhas numa caixa de texto Marcel11
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Assis 22/5/2020, 17:40

    E isso Marcelo.

    Peço desculpa

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Alvaro Teixeira 26/5/2020, 14:42

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Marcelo David 26/5/2020, 15:29

    Assim, temos que considerar algumas coisas...
    Imagino que o caminho mais curto seria limitar
    a quantidade de caracteres.

    Assim, determinaria um número x de caracteres
    e ao atingir esse número, exibiria uma mensagem
    e impediria continuar escrevendo.


    .................................................................................
    [Resolvido]Limitar linhas numa caixa de texto Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Limitar linhas numa caixa de texto Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Limitar linhas numa caixa de texto Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Limitar linhas numa caixa de texto Marcel11
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Alvaro Teixeira 26/5/2020, 15:39

    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 Very Happy
    O melhor será mesmo o exemplo para se trabalhar e testar

    Abraço
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Marcelo David 26/5/2020, 16:02

    Grande Teixeira, novamente iniciei a resposta e somente cliquei em enviar após um tempo e sua resposta já estava lá. Very Happy


    .................................................................................
    [Resolvido]Limitar linhas numa caixa de texto Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Limitar linhas numa caixa de texto Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Limitar linhas numa caixa de texto Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Limitar linhas numa caixa de texto Marcel11
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Assis 26/5/2020, 16:14

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


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Alvaro Teixeira 26/5/2020, 16:19

    Olá a todos,

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

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Assis 26/5/2020, 17:34

    Boa tarde Amigos

    É o campo "Obs" com fundo amarelo.

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Alvaro Teixeira 27/5/2020, 00:09

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Assis 27/5/2020, 09:43

    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


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Alvaro Teixeira 27/5/2020, 10:04

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Assis 27/5/2020, 10:51

    Bom dia Teixeira

    Com o evento "Before Update" antes de atualizar.

    Mas como por a parar ás 25 linhas ?

    [Resolvido]Limitar linhas numa caixa de texto Sem_t149


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Alvaro Teixeira 27/5/2020, 11:19

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Assis 27/5/2020, 13:30

    Teixeira cheers cheers

    Obrigado

    Bom almoço



    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Alvaro Teixeira 27/5/2020, 14:20

    cheers

    Conteúdo patrocinado


    [Resolvido]Limitar linhas numa caixa de texto Empty Re: [Resolvido]Limitar linhas numa caixa de texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 16:48