[Resolvido]Cliente bloqueado, venda não pode

Anslu 6/5/2019, 19:32

Anslu: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 123
Registrado : 11/01/2018

Mensagem nº1

[Resolvido]Cliente bloqueado, venda não pode

Mensagem Anslu 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

Sys_Sistema.zip: Você não tem permissão para fazer download dos arquivos anexados.; (483 Kb) Baixado 28 vez(es)

thiagonsilvaa 6/5/2019, 19:47

thiagonsilvaa

thiagonsilvaa: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 384
Registrado : 12/01/2017

Mensagem nº2

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

Mensagem thiagonsilvaa 6/5/2019, 19:47

Boa tarde !

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

zcarloslopes 6/5/2019, 20:42

zcarloslopes

zcarloslopes: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 393
Registrado : 28/10/2010

Mensagem nº3

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

Mensagem zcarloslopes 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