MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Limitar linhas numa caixa de texto

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 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 100%

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

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

    Mensagem  Marcelo David em 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


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 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 100%

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

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

    Mensagem  Marcelo David em 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...


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 22/5/2020, 17:40

    E isso Marcelo.

    Peço desculpa

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

    Mensagem  Marcelo David em 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.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

    Mensagem  Marcelo David em 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


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 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 ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

    Mensagem  Assis em 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
    Anexos
    [Resolvido]Limitar linhas numa caixa de texto AttachmentForum_Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (77 Kb) Baixado 10 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

    Mensagem  Assis em 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 ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

    Mensagem  Assis em 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 ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

    Mensagem  Assis em 27/5/2020, 13:30

    Teixeira cheers cheers

    Obrigado

    Bom almoço



    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 27/5/2020, 14:20

    cheers

      Data/hora atual: 21/9/2020, 03:25