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]Não remove espaço a direito.

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    [Resolvido]Não remove espaço a direito. Empty [Resolvido]Não remove espaço a direito.

    Mensagem  crysostomo 1/4/2021, 03:01

    Colegas muito boa noite.
    Peço a ajuda de uma coisa muito pequena, porém importante.
    Eu não estou conseguindo remover espaços do começo e do fim do nome das função  Me.cbo_nome = Trim(Me.cbo_nome) e Me.cbo_nome = Lrim(Me.cbo_nome).
    Coisa pequena, mas observando, os clientes e funcionários de setores copiam do Excel e quando colam vem com espaço.
    Criei um código que quando o Usuário( Paciente/Processos) são cadastrados o sistema cria a pasta onde vai ficar todos anexos, antes de tudo o sistema verifica se a Usuário já existe na tabela, e quando vem com espaço o sistema já cadastra e cria  a pasta com mesmo nome por causa do espaço.
    já pesquisando mesmo com Corrent.Db updete nada funciona

    Código:
    Private Sub cbo_nome_AfterUpdate()
    Me.cbo_nome = RTrim(Me.cbo_nome)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Não remove espaço a direito. Empty Re: [Resolvido]Não remove espaço a direito.

    Mensagem  Alexandre Neves 1/4/2021, 10:18

    Bom dia
    Parece impossível!
    Me.cbo_nome = Trim(Me.cbo_nome)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1777
    Registrado : 13/12/2016

    [Resolvido]Não remove espaço a direito. Empty Re: [Resolvido]Não remove espaço a direito.

    Mensagem  Alexandre Fim 1/4/2021, 13:45

    Crysostomo,

    Antes de resolver o seu problema de espaços em branco nos nomes, existe a questão de criar as pastas com o nome do paciente.
    Eu sugiro criar as pastas com o nº do CPF do paciente e este número não se repete.
    Porque se surgirem homônimos (pq vai surgir) ai vc vai ter um problema.

    Apenas um pitaco
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    [Resolvido]Não remove espaço a direito. Empty Re: [Resolvido]Não remove espaço a direito.

    Mensagem  crysostomo 2/4/2021, 20:00

    Boa noite, realmente Alexandre, isso pode matar a dor de cabeça de 2 paginas. mas qualquer.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    [Resolvido]Não remove espaço a direito. Empty Re: [Resolvido]Não remove espaço a direito.

    Mensagem  crysostomo 4/4/2021, 00:15

    Boa noite galera.
    @Alexandre Neves o comando RTrim funciona. Encontrei o problema que estava acontecendo é que eu tinha colocado o comando NoList antes do Rtrim, mas mesmo assim eu não sei o outro problema que achei. seja O comando funciona só depois do If.
    Código:
    No_list.....
      Me.cbo_nome = RTrim(Me.cbo_nome)
     MsgBox "O usuário não foi cadastro" & vbCrLf & "É prioridade", vbExclamation, "Serviço Social"
    If MsgBox(" Quer cadastrados?", vbYesNo, "Serviço Social") = vbYes Then
     


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 21/9/2021, 03:10