[Resolvido]avisar quando cliente esta bloqueado

Ola Pessoal
Bom Dia,

Poderiam me ajudar, tenho uma tabela (cad_cliente) de cadastro de clientes, tenho campo que informa se este cliente esta bloqueado ou nao (BloqNao, BloqSim)

Queria que quando for evetuar uma venda (FOR_VENDA), ele consulta a tabela cad_cliente e da um aviso se o cliente estiver bloqueado??

Desde ja agradeço.
David

If DLookup("NomeCampo", "NomeTabela", "Código=" & Me!Código) = "Bloqueado" Then
MsgBox "O sujeito está bloqueado", vbOkOnly + vbInformation, "Bloqueado"
End If

Adapte para o seu caso.

Caro amigo criquio

Nao estou conseguindo adaptar.

If DLookup("NomeCampo", "NomeTabela", "Código=" & Me!Código) = "Bloqueado" Then
MsgBox "O sujeito está bloqueado", vbOkOnly + vbInformation, "Bloqueado"
End If

Vamos la.
Nome do Campo = BloqSim
Nome ta Tabela = cad_cliente

Como posso adptar?? lembrando que o campo BloqSim na tabela e como "Sim/Nao"

Obrigado

Mas me fala uma coisa: você mencionou BloqSim e BloqNao. Por acaso tem dois campos Sim/Não para a mesma coisa?

Entao, na minha tabela tenho dois campos, BloqSim e BloqNao. Coloquei esta caixa de seleção em um formulario de cliente, se por algum motivo o usuario bloquear o clinte como "Sim", automaticamente abre uma Caixa de Texto(MotivoBloqueio) para que o usuario possa saber o por que o bloqueio do mesmo.

Obrigado

Mas não precisa de dois campos para isso. Basta um campo Sim/Não. Se ele estiver marcado, é Sim, se estiver desmarcado, É Não. Fica mais ágil, pois as validações que tiverem que ser feitas serão feitas em apenas um campo e não em dois.
Para validar por dois campos, sendo um Sim e o outro Não, você vai ter que duplicar o código usado, pois ele terá que verificar a condição de dois campos, já por um campo apenas, você só precisa de um evento como o que descrevi anteriormente. Algo assim:

If DLookup("BloqSim", "NomeTabela", "Código=" & Me!Código) = -1 Then
Me.MotivoBloqueio.Visible = True
Else
Exit Sub
End If

Obrigado pela dica, mas estou confuso.

Coquei um anexo para ajudar no raciocinio.
http://www.4shared.com/document/gR6YVITJ/Vendas.html

Quando for colocar puxar o cliente para o formulario de vendas, queria que fosse avisado sobre o bloqueio.

Obrigado

Coloque assim no evento "No atual" do formulário:

If DLookup("BloqSim", "Cad_Cliente", "Código=" & Me!Código) = -1 Then
Me.MotivoBloqueio.Visible = True
Else
Me.MotivoBloqueio.Visible = False
End If

Defina a propriedade visível do campo MotivoBloqueio como Não para que ele fique oculto por padrão e só se torne visível caso o cliente esteja bloqueado.

no formulário For_Vendas
no evento:

Private Sub CodCliente_AfterUpdate()
Dim bloq
bloq = DLookup("BloqSim", "Cad_Cliente", "Código=" & Me!CodCliente)
If bloq = -1 Then
MsgBox "Cliente Bloqueado"
Me.Undo
Me.CodCliente.SetFocus
ElseIf bloq = 0 Then
Me.NomeCliente.Value = Me.CodCliente.Column(1)
Me.NomeCliente.Requery
End If

End Sub

Muito Obrigado pessoal,

com esta ajuda de voçes consegui adaptar no meu form.


Abraços
David

Valeu! Obrigado pelo retorno.