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 bloqueado, venda não pode

    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Cliente bloqueado, venda não pode Empty [Resolvido]Cliente bloqueado, venda não pode

    Mensagem  Anslu em 6/5/2019, 19:32

    Boa tarde! após tentar e não obter exito, peço a ajuda de vocês.

    Quero que quando lanço um novo cliente, se ele estiver bloqueado ou negativado no cadastro do cliente a operação não se realize.

    Desde já agradeço!
    Anexos
    [Resolvido]Cliente bloqueado, venda não pode AttachmentSys_Sistema.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (483 Kb) Baixado 20 vez(es)
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 343
    Registrado : 12/01/2017

    [Resolvido]Cliente bloqueado, venda não pode Empty Re: [Resolvido]Cliente bloqueado, venda não pode

    Mensagem  thiagonsilvaa em 6/5/2019, 19:47

    Boa tarde !


    Veja sobre a função Dlookup, ela vai te ajudar com certeza nesse processo.

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 296
    Registrado : 28/10/2010

    [Resolvido]Cliente bloqueado, venda não pode Empty Re: [Resolvido]Cliente bloqueado, venda não pode

    Mensagem  zcarloslopes em 6/5/2019, 20:42

    Boa Tarde Anslu,

    Coloque o código abaixo no evento 'Após Actualizar' da sua combobox [txtCliente]

    Código:
    On Error Resume Next
    If DCount("*", "[tbl_CadCliente]", "[Nome] = '" & txtCliente.Column(1) & "' AND [Situacao] = 'NEGATIVADO'") > 0 Then
    MsgBox "Cliente 'NEGATIVADO'!", vbInformation, "Atenção!"
    Me.Undo
    ElseIf DCount("*", "[tbl_CadCliente]", "[Nome] = '" & txtCliente.Column(1) & "' AND [Situacao] = 'BLOQUEADO'") > 0 Then
    MsgBox "Cliente 'BLOQUEADO'!", vbInformation, "Atenção!"
    Me.Undo
    End If

    Abraço
    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Cliente bloqueado, venda não pode Empty Re: [Resolvido]Cliente bloqueado, venda não pode

    Mensagem  Anslu em 6/5/2019, 20:52

    Boa tarde! desculpe a demora. Testei e deu tudo certo!

    Obrigado por mais essa ajuda!
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 343
    Registrado : 12/01/2017

    [Resolvido]Cliente bloqueado, venda não pode Empty Re: [Resolvido]Cliente bloqueado, venda não pode

    Mensagem  thiagonsilvaa em 6/5/2019, 20:52

    Show de bola !

    O fórum agradece o retorno !

    Abraços.

      Data/hora atual: 11/8/2020, 01:09