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]Abreviatura de campos

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 02/09/2016

    [Resolvido]Abreviatura de campos Empty [Resolvido]Abreviatura de campos

    Mensagem  ictsp 29/11/2021, 18:30

    Prezados colegas,
    Tenho utilizado o código abaixo de autoria do nosso amigo ahteixeira em minha consulta e funciona muito bem.
    Estou tentando chamar este código em uma textbox mas não estou conseguindo.
    Alguém teria alguma dica? Desde já, agradeço a atenção e ajuda.

    Public Function fncAbreviaChr(sCampo$) As String
    'ahteixeira 2019 para maximo
    If Len(sCampo & "") > 0 Then
    Dim sTmp$
    sTmp = sCampo
    sTmp = Replace(sTmp, "CALDEIRARIA", "CALD")
    sTmp = Replace(sTmp, "MECANICA", "MEC")

    fncAbreviaChr = sTmp
    End If
    End Function

    Na minha textbox estou usando o código no evento "após atualizar" da seguinte forma:

    call fncAbreviaChr (me.txt_empr)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abreviatura de campos Empty Re: [Resolvido]Abreviatura de campos

    Mensagem  Marcelo David 3/12/2021, 12:41

    Bom dia,
    Fiz um teste aqui e funcionou normal.

    O que ocorre aí?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Abreviatura de campos Marcel11
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abreviatura de campos Empty Re: [Resolvido]Abreviatura de campos

    Mensagem  Alexandre Fim 3/12/2021, 14:20

    Olá Isaque,

    Eu presumo que "CALDEIRARIA" e "MECANICA" são provenientes de alguma tabela (setor...departamento..alguma coisa assim) e que, provavelmente, vc utiliza uma combobox em algum formulário com os valores acima.
    Se esses dados vierem de uma tabela, você poderia criar um campo nesta tabela chamado "SiglaDepto" ou "SiglaSetor" e na composição do combobox vc incluiria esta coluna também. Ex:
    [Resolvido]Abreviatura de campos Abrev10

    Desta forma, voce já tem a sigla pré-definida na tabela e não tem a necessidade de programar nada.

    É isso

    Espero ter ajudado

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Abreviatura de campos Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 02/09/2016

    [Resolvido]Abreviatura de campos Empty Re: [Resolvido]Abreviatura de campos

    Mensagem  ictsp 3/12/2021, 21:32

    Prezados colegas, desculpem a demora.
    Alexandre, tenho uma textbox no meu formulário para cadastrar clientes (empresas, no caso).

    Se o usuário digitar um nome de cliente que não estiver cadastrado, o sistema já faz o cadastro.

    Por exemplo:

    O usuário digitou "Caldeiraria São Judas" e vai cadastrar esse cliente, gostaria que cadastrasse automaticamente como "Cald São Judas"

    "JC Serralheria" ficaria "JC Serr"
    E assim por diante.

    Marcelo David, poderia compartilhar como fez o teste?
    Comigo não aconteceu nada. Coloquei o código no evento " Após Atualizar" da textbox.
    Desde já, obrigado a todos!


    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abreviatura de campos Empty Re: [Resolvido]Abreviatura de campos

    Mensagem  Marcelo David 6/12/2021, 17:20

    Boa tarde,

    Em um módulo eu pus a Function

    Código:
    Public Function fncAbreviaChr(sCampo$) As String
    'ahteixeira 2019 para maximo
    If Len(sCampo & "") > 0 Then
        Dim sTmp$
        sTmp = sCampo
        sTmp = Replace(sTmp, "CALDEIRARIA", "CALD")
        sTmp = Replace(sTmp, "MECANICA", "MEC")

        fncAbreviaChr = sTmp
    End If
    End Function

    E no evento Após atualizar de uma textbox de nome MinhaText pus a chamada da função:

    Código:
    Me.MinhaText = fncAbreviaChr(Me.MinhaText)

    Baixe o exemplo aqui.

    Aguardamos.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Abreviatura de campos Marcel11
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 02/09/2016

    [Resolvido]Abreviatura de campos Empty Re: [Resolvido]Abreviatura de campos

    Mensagem  ictsp 6/12/2021, 23:40

    Olá!

    Marcelo David, muito obrigado pela força.
    Ficou perfeito!
    cheers

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abreviatura de campos Empty Re: [Resolvido]Abreviatura de campos

    Mensagem  Marcelo David 7/12/2021, 01:55

    Que bom que funcionou! Gratos pelo retorno!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Abreviatura de campos Marcel11

      Data/hora atual: 1/10/2022, 16:28