[Resolvido]Ajuda Com Campo sim ou não

Bom dia Amigos,

Estou desenvolvendo um sistema simples de pedidos, porém cheguei em um ponto que não consigo avançar (não tenho muito conhecimento em access, muito menos em programação), e gostaria de contar com a ajuda de vocês.

Bom, eu criei uma tabela de clientes e nela coloquei um campo do tipo sim/não para definir se o cliente esta ativo ou não.
Criei um Fomulário para o pedido que é bem simples, data do pedido, Código do Cliente código do vendedor.
Tentei criar um evento, que ao sair do campo código do cliente, ele verifique la na tabela clientes se o mesmo esta ativo ou não, porem não estou obtendo êxito.
Coloquei mais ou menos assim

Private Sub CodigoCliente_Exit(Cancel As Integer)

If [Cliente.Bloqueado] Then
MsgBox "Cliente com cadastro Bloquedo"
End If

Não sei se o uso do if me forçaria a usar algum else, mas no caso eu não tenho nenhum "senão" para resolver, seria apenas para verificar o campo la da minha tabela de clientes. Gostaria também que essa verificação caso verdadeira impedisse o usuário de continuar digitando o pedido.

Como posso resolver esse problema???

Desde já agradeço

Amigo,

Se você estiver buscando o cliente através de uma caixa de combinação é só definir o critério na consulta do combox.

Outra forma é pelo vba:

Código:


dim xBloq as variant
xBloq = DLookup("Bloqueado", "nometabelaclientes", "idcliente =" & CodigoCliente)

If xBloq = True Then
    MsgBox "Cliente com cadastro Bloquedo"
    CodigoCliente.undo
    cancel -1
End If




Atenção: Altere o nome dos objetos de acordo com o nome em seu formulário.

Abraços,

Boa tarde Uilson

Testei da forma que me passou e não deu certo, aparece o seguinte erro:

"Erro de Compilação: Era esperado Sub, Function ou Property" Abaixo esta como ficou o meu código seguindo sua sugestão

Private Sub CodigoCliente_Exit(Cancel As Integer)
Dim xBloq As Variant
xBloq = DLookup("Bloqueado", "TblCliente", "CodigoCliente =" & CodigoCliente)
If xBloq = True Then
MsgBox "Cliente com cadastro Bloquedo"
CodigoCliente.Undo
Cancel -1
End If
End Sub

No caso quando da o erro e abro o depurador, a primeira linha "private sub..." aparece selecionada, como se o erro fosse nela.

Para constar:
TblCliente é minha tabela de clientes.
CodigoCliente é o Campo com os códigos dos clientes (numeração automática)
Bloqueado é o campo do tipo Sim/Não que fica na minha tabela de clientes, usado para definir se o cliente esta bloqueado ou não

Amigo,

Se possível disponibilize aqui ou me envie por e-mail os objetos envolvidos para que eu possa analisar melhor.

mailto: uilsonbrasil@hotmail.com


Abraços,

Email enviado desculpe a demora.

ok
vou verificar ...

Vlw pelo retorno deu certo,

Inclui a consulta na própria combo como você sugeriu

Amigos Estou Reabrindo o tópico pois surgiu uma nova necessidade,

Na a solução que o amigo Uilson havia apresentado funcionou, porém estou imaginando o problema la na frente. Não é interessante deixar uma tela de pedido com uma caixa de listagem para um sistema com mais de 100 clientes então mudei a forma de pesquisa para trazer o nome dos clientes na hora do lançar o pedido. Porém nesta nova forma de tratar os registros, a solução apresentada não funciona.

Acredito que vou ter tratar esta situação via código. Porém não tenho a minima ideia de por onde começar. Estou disponibilizando o meu projeto para que fique mais fácil o entendimento do que preciso.

Só relembrando a minha tabela clientes tem um campo do tipo sim ou não, chamado bloqueado.
Quero que caso este campo esteja marcado, seja impossível fazer um pedido para este cliente no formulário de pedido, exibindo uma mensagem que o cliente esta bloqueado.

Desde já Agradeço a ajuda

segue o arquivo que ficou faltando

Amigo,

O exemplo que enviei anteriormente definindo critério na caixa de combinação, também pode ser aplicado na caixa de listagem é só seguir o mesmo raciocínio.


Abraços,

Bom dia Amigos

Uilson ao tentar fazer o consulta colocando como criterio Falso para o campo bloqueado estava aparecendo da minha lista varias vezes a palavra Falso ao inves de aparecer o nome do cliente.

Batendo cabeça aqui consegui fazer como rotina da minha lista, agora o estranho é que tive que mudar o nome do meu campo para funcionar. Usei como base o que você tinha me orientado no inicio e ainda segui algumas orientações que achei em outros posts aqui no forum, minha rotina ficou da seguinte forma.

Private Sub LstNome_DblClick(Cancel As Integer)

If DLookup("Ativo", "Clientes", "CodigoCliente = " & Me.LstNome.Column(0) & "") = -1 Then
MsgBox "Cliente com Cadastro Bloqueado, Favor Verificar.", vbExclamation, "Atenção!."
Me.TxtNome.SetFocus
Exit Sub

Else
Forms!FPedidos!CodigoCliente = Me.LstNome.Column(0)
DoCmd.Close acForm, "FPesqNome", acSavePrompt
End If
End Sub

Adicionei esta rotina na minha lista de para pesquisar os nomes do cliente para ser executada quando for dado o duplo clique sobre o nome do cliente.

sucesso!