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


2 participantes

    [Resolvido]Começa com ...

    avatar
    Matheus Bacha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    [Resolvido]Começa com ... Empty [Resolvido]Começa com ...

    Mensagem  Matheus Bacha 14/7/2015, 12:09

    Bom dia!

    Estou com uma grande duvida, tenho dois campos no meu formulário um chamado [Criado por] e outro chamado [UL]. [Criado por] são registros de funcionários e [UL] são os setores que eles trabalham. Bom oque preciso é, sempre que um registro começar com "1000" o setor desse funcionário automaticamente tem que ser "Agência", quando começar com "B590" o setor tem que ser "Loja". Mais o setor tem que ser preenchido automaticamente.

    Ex:

    Criado por = 1000574 UL = Agência
    Criado por = 1000665 UL = Agência
    Criado por = B590755 UL = Loja
    Criado por = B590235 UL = Loja
    Criado por = 1000741 UL = Agência
    Criado por = 1000321 UL = Agência

    Desde Já Agradeço a todos.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Começa com ... Empty Re: [Resolvido]Começa com ...

    Mensagem  Alexandre Neves 14/7/2015, 12:37

    Bom dia,
    No acontecimento AoSair do campo CriadoPor, coloque
    Código:
    if left(TxtCriadoPor,4)="1000" then
    TxtUL="Agência"
    Elseif left(TxtCriadoPor,4)="B590" then
    TxtUL="Loja"
    End if


    .................................................................................
    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
    avatar
    Matheus Bacha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    [Resolvido]Começa com ... Empty Re: [Resolvido]Começa com ...

    Mensagem  Matheus Bacha 14/7/2015, 14:08

    Prefeito amigo .....

    Funcionou perfeitamente, muito obrigado pela força.

    Conteúdo patrocinado


    [Resolvido]Começa com ... Empty Re: [Resolvido]Começa com ...

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 01:36