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]Cliente negativado ou bloqueado

    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 11/01/2018

    [Resolvido]Cliente negativado ou bloqueado Empty [Resolvido]Cliente negativado ou bloqueado

    Mensagem  Anslu em 8/7/2020, 16:39

    Boa tarde! gostaria de colocar mais opções no And (Situacao) Alem de negativado e estou com problemas. Conto com a ajuda
    de vocês.

    If DCount("*", "[tbl_CadCliente]", "[Nome] = '" & txtCliente.Column(1) & "'AND [Situacao] = 'NEGATIVADO '") > 0 Then
    MsgBox "Cliente 'NEGATIVADO'!", vbInformation, "Atenção!"


    Desde ja fico agradecido!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Cliente negativado ou bloqueado Empty Re: [Resolvido]Cliente negativado ou bloqueado

    Mensagem  DamascenoJr. em 8/7/2020, 17:28

    Coloque um espaço antes do AND e parece ter um espaço sobrando depois do NEGATIVADO


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 11/01/2018

    [Resolvido]Cliente negativado ou bloqueado Empty Re: [Resolvido]Cliente negativado ou bloqueado

    Mensagem  Anslu em 8/7/2020, 17:34

    Obrigado! Posso colocar também Bloqueado após o Negativado? para ser uma ou outra opção.

    Ex Negativado ou Bloqueado




    Última edição por Anslu em 8/7/2020, 17:40, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Cliente negativado ou bloqueado Empty Re: [Resolvido]Cliente negativado ou bloqueado

    Mensagem  DamascenoJr. em 8/7/2020, 17:38

    If DCount("*", "[tbl_CadCliente]", "[Nome] = '" & txtCliente.Column(1) & "' AND ([Situacao] = 'NEGATIVADO' OR [Situação] = 'BLOQUEADO')") > 0 Then
    MsgBox "Cliente 'NEGATIVADO'!", vbInformation, "Atenção!"


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 11/01/2018

    [Resolvido]Cliente negativado ou bloqueado Empty Re: [Resolvido]Cliente negativado ou bloqueado

    Mensagem  Anslu em 8/7/2020, 17:44

    Muito obrigado pela ajuda!

    Muita paz! Fica com Deus!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Cliente negativado ou bloqueado Empty Re: [Resolvido]Cliente negativado ou bloqueado

    Mensagem  DamascenoJr. em 8/7/2020, 23:28

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 10/8/2020, 06:25