MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Remover espaços

    avatar
    margaretekl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 25
    Registrado : 30/07/2017

    [Resolvido]Remover espaços Empty [Resolvido]Remover espaços

    Mensagem  margaretekl em 15/4/2019, 21:47

    Boa tarde,

    Gostaria de saber como remover espaços antes e depois de um txt num formulário antes de fazer o insert

    Tentei com a função TRIm (txtcampo)

    não deu certo

    Podem me ajudar?
    avatar
    Convidado
    Convidado

    [Resolvido]Remover espaços Empty Duvida

    Mensagem  Convidado em 15/4/2019, 23:07

    Boa noite explique o objetivo disso ai eu posso te ajudar
    avatar
    margaretekl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 25
    Registrado : 30/07/2017

    [Resolvido]Remover espaços Empty Remover espaços

    Mensagem  margaretekl em 16/4/2019, 12:36

    Bom dia,

    Tenho Um formulário para CRUD.

    Para evitar o insert de informações com espaços início e fim, se possível evitar espaços a mais entre palavras.


    Grata,
    avatar
    margaretekl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 25
    Registrado : 30/07/2017

    [Resolvido]Remover espaços Empty Remover espaços

    Mensagem  margaretekl em 16/4/2019, 12:59

    Deu certo assim:


    VarCampo = Trim(Me.txtAno.Value)
          Me.txtAno.Value = VarCampo
          Me.Refresh

    Essa parte resolve início e fim.

    Não entre...


    Última edição por margaretekl em 16/4/2019, 13:13, editado 1 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Remover espaços Empty Re: [Resolvido]Remover espaços

    Mensagem  crysostomo em 16/4/2019, 13:02



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

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 25
    Registrado : 30/07/2017

    [Resolvido]Remover espaços Empty Remover espaços entre palavras

    Mensagem  margaretekl em 16/4/2019, 13:18

    Bom dia,

    Obrigada!

    Coloquei o Public antes... Como Módulo...

    Function TiraEspaco(ByVal strCampo As String)
    Do
    strCampo = Replace(strCampo, " ", " ")
    Loop Until InStr(strCampo, " ") = 0
    TiraEspaco = Trim(UCase(strCampo))
    End Function

    Chamei assim Call TiraEspaco("Me.txtavaliacao")

    No formulário deu certo obrigada

    Conteúdo patrocinado

    [Resolvido]Remover espaços Empty Re: [Resolvido]Remover espaços

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/10/2019, 18:20