[Resolvido]CLIENTE BLOQUEADO

Tenho um formulário de cadastro de cliente.

Neste formulário tenho um campo chamado Cliente Bloqueado. Ele é uma caixa de seleção.

Tenho um formulário de saida de estoque nele tem uma caixa de combinação com o cliente.

Quando selecionasse o cliete ele verificasse o campo cliente bloqueado, e se tivesse bloqueado aparecesse uma msgbox e não deixasse eu vender mercadoria para o mesmo.

Alguem pode me ajudar

Você precisa ter um campo na tabela de clientes chamado, por exemplo, Situação. Quando bloquear um cliente, deve inserir Bloqueado no campo Situação. No seu formulário, nos eventos "Ao carregar", "No atual" e mais outros que se fizer necessário, colocar algo como:

If DLookup("Situação", "tblClientes", "Código=" & Me.Código) = "Bloqueado" Then
Me.NomeCampo1.Enabled = False
Me.NomeCampo2.Enabled = False
Me.NomeCampo3.Enabled = False
Else
Exit Sub
End If

No exemplo acima, os campos do formulário ficariam desabilitados. Pode alterar ao seu gosto.

Vou pedir que aguarde so um pouco que vou tentar meu amigo.

Mas eu tenho que criar um campo na tabela tblsaidaest. chamado clientebloqueado é isso.

Viu meu amigo.

Vou tentar recapitular

Tenho um formulario Cliente, neste formulario tenho um campo cliente bloqueado Sim/ Não

Tambem tenho um formulario saida de Estoque.

No formulario de saida quero que me notifique que o cliente esta bloqueado e nao deixe eu vender algo para ele.

Esse controle Sim/Não do formulário deve estar vinculado a um campo Sim/Não da tabela, certo? Se sim, basta alterar o código acima para o caso do campo Sim/Não ter valor -1, que significa que ele está marcado:

If DLookup("CampoSimNão", "NaTabelaDeClientes", "Código=" & Me.Código) = -1 Then
Me.NomeCampo1.Enabled = False
Me.NomeCampo2.Enabled = False
Me.NomeCampo3.Enabled = False
Else
Exit Sub
End If

Ta mais voce esta me falando do formulario cliente para dar um valor a sim e nao.

Mas o formulario saida, como faço para nao deixar sair e aparecer a mensagem.

E assim

No formulario cliente cadastrei o Antonio
Antonio nao pagou então ele é bloqueado ok.

Uma semana depois o Antonio ligou e solicitou uma mercadoria

Fui na saida de estoque selecionei o produto que ele que, a quantidade, e quando selecionei ele o nome dele na caixa de combinação que busca os dados do formulario cadastro de cliente

quero que apareça uma mensagem, nao esta autorizada a venda de para este cliente.

É exatamente isso. O código acima não leva em conta o formulário, mas sim a tabela aonde tem o campo Sim Não. No formulário, ele pega apenas a id do cliente para encontrá-lo na tabela. Para exibir a mensagem, basta substituir as linhas que desabilitaria campos por uma linha para a mensagem, no evento "Após atualizar" da combo:

If DLookup("CampoSimNão", "NaTabelaDeClientes", "Código=" & Me.Código) = -1 Then
MsgBox "Não está autorizada a venda para esse cliente", vbOkOnly + vbCritical, "Venda não autorizada"
Else
Exit Sub
End If