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

    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    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 15 vez(es)
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 198
    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 : 55
    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 : 322
    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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/11/2019, 12:55