[Resolvido]Ao selecionar o cliente verificar se o cliente tem Ordem de Serviço em aberto

Bom dia

Estou desenvolvendo um sistema de ordem de serviços, coloquei a função insert into esta funcionando perfeitamente, mas antes de inserir os dados na tabela gostaria que ele verificasse se o cliente selecionado tem alguma ordem de serviço pendente ( que não foi finalizada).

Desde já meus agradecimentos.

Olá! De uma pesquisada aqui no Fórum, pois existem exemplos sobre o assunto.

Existem Ns formas de fazer isso, dentre elas: Dcount(), Dlookup(), FindFirst()...

Pesquise sobre: Evitar duplicidade cadastro.

Boa Tarde

Cadastrei uma Ordem de Serviço com um Cliente Modelo e deixei o campo Situação com "Aberto" e abrir o formulário novamente e coloque o mesmo código do cliente mais ele não esta impedindo o novo cadastro.

Private Sub IDCliente_AfterUpdate()

If DCount("IDCliente", "tbl_LancOrdemServicos", "IDCliente=" & Me.IDCliente & " AND Situacao='" & ABERTO & "'") > 0 Then
MsgBox "O cliente esta com a Ordem de Serviço em Aberto, verifique!", vbCritical, "Aviso"
Me.Undo 'Limpa o campo
Cancel = True 'mantém o foco no campo.
End If

End Sub

Olá! se no campo Situação tiver o valor "Aberto", o codigo muda um pouco amigo...

... Situacao='ABERTO'") > 0 Then

Situacao='" & ABERTO & "'") > 0 Then <== Dessa Forma, so funcionaria se existisse um Campo com o Nome "ABERTO" ou uma variável com esse nome, e que nela estivesse o Valor a ser comparado.

Olá...

Além da informação do amigo FabioPaes, coloque o código no evento antes de atualizar para que o evento Cancel = True realmente cancele o evento e mantenha o foco no campo.

eu costumo primeiro do o Cancel = True e depois o Me.NomeDocampo.Undo

Abraços

Olá..

Conseguiu resolver esta sua solicitação de ajuda?

Os membros do Fórum merece o seu retorno

Abraços

Me desculpe a demora para responder, eu estava sem internet.

Olá...

Obrigado pelo retorno, O fórum agradece

Abraços