[Resolvido]Cliente Bloqueado

Olá galera tudo bem, venho a pedir uma pequena ajuda de vocês com meu sistema de vendas
queria que no formulário de vendas exibisse uma mensagem de cliente bloqueado quando fosse vender para ele,
na tabela cliente eu criei um campo sim/não já tentei alguns exemplos aqui do site mas não deu certo vou postar um exemplo para vocês dar uma olhada.

Podes utilizar o Dcount ou o Dlookup para verificar se o cliente está ou não bloqueado, ou mesmo se no form tiver a caixa de seleção podes utilizar uma condição verificando o valor da mesma, para ai executar ou não o procecimento de venda.

Cumprimentos.

Bem Piloto Já tentei usar alguns exemplos de Dlookup que tem aqui no site mas não deu em nada
continua dando pra vender pro cliente do mesmo jeito.

Private Sub txtCodCliente_AfterUpdate()
   
If DLookup("Bloqueado", "Cliente", "CodCLiente = " & Me.txtCodCliente.Text & "") = -1 Then
    MsgBox "CLiente Bloqueado", vbCritical, "BLOQUEADO"
    Call LimpaCampos
    Exit Sub
Else
       
     Dim objCliente As New clsCliente
 
  If Not IsNull(txtCodCliente) Then
    If objCliente.obter(CLng(txtCodCliente)) Then
      Call preencheVenda
      txtNomePro.SetFocus
      txtNomeCliente = objCliente.nomeCliente
    Else
      txtNomeCliente = Null
      txtCodCliente = Null
      MsgBox "Código do cliente inválido!", _
      vbExclamation, "Erro!"
      
      
    End If
  End If
End If
  

Cumprimentos.

Valeu piloto, era exatamente o que eu queria funcionou certinho muito obrigado.

Não se esqueça de clicar no Joinha da mensagem que o auxiliou.

O Fórum agradece o Retorno.

Grande se possivel disponibiize o bd ja com esse codigo do Piloto,gostei muito deste bd.
Eu vou começar a usar ele e ja fiz varias adaptações,logo vou postar no depositório com essas modificações.

Cumprimentos e obrigado.

Boas Kaynan, veja um Tópico do usuário Bred, nele corrigi um sistema baseado neste que está acima.. e está bem legal...

Este sistema trabalha com classes, eu particularmente ainda não havia aprofundado nisso.. e a solução no post me exigiu entender mais sobre isso. e foi bastante interessante.

Cumprimentos.

Muito obrigado Piloto,e se não for pedir demais gostaria que desse uma olhada no topico que abri com o titulo Ir somando registros de um subformulario,o amigo Criquio ta me orientando,mas quanto mais ideias melhor.
Feliz natal e um ano novo cheio de paz e saúde,Mestre.

Amigão estás nas mãos do Mestre dos Magos (Criquio)... Ele vai te auxiliar com prestreza.. no momento estou sem cabeça...

Sinto por isso

Abraços.