[Resolvido]Função para Validar registros de outra tabela antes de continuar.

Bom dia Pessoal, não sei se o título será o certo, mas avaliaremos no decorrer.
Estou precisando novamente de uma ajudinha... rsrs..

Vou explicar o processo:

eu tenho varias tabelas relacionadas, sendo que uma delas é o pedido relacionado 1 para muitos no produto de pedidos e este relacionado em 1 para muitos no processo de fabricação. ou seja. eu tenho varios processos para um item do pedido e varios itens por pedido. até aqui tudo bem. cada um deste processos esta designado para cada setor (setor 1, setor 2...) ai nas telas destes setores aparece o que cada um vai fazer, exemplo: Setor 1 - vincar, setor 2 imprimir, e cada uma assim que concluido clica no botao btnconcluido e aparece na tabela de processo que o processo do setor1 para o item x do pedido y foi concluido naquela data.

e o penultimo processo é expedir, onde depois de concluido libera o pedido para ser faturado. o que eu gostaria é que neste penultimo processo, ao clicar em btnconcluido_Exp ele varra a tabela de processos (tbl_processos) onde o código do produto (cod_prod_ped) for = ao cod_prod_ped no form (me.cod_prod_ped) e verifique se tem algum processos sem concluir antes da expedição.

Desde ja muito obrigado... e uma excelente sexta-feira a todos.

Uma ideia seria algo assim:

If DCount("NomeCampo", "NomeTabela", "NomeCampo=" & "") > 0 Then
MsgBox "Há processos sem concluir", vbOkOnly + vbCritical, "Atenção"
Else
Exit Sub
End If

Obrigado Criquio... vou testar e ja retorno...

Criquio Obrigado mais uma vez...
eu coloquei o código conforme abaixo:

Private Sub btnVerificar_Click()


If DCount("DataConcluido", "[tbl Programacao de Processos]", "Cod_Prod_Ped=" & Me.Cod_Prod_Ped & "") > 0 Then
MsgBox "Há processos sem concluir", vbOKOnly + vbCritical, "Atenção"
Else
Exit Sub
End If


End Sub

Ele funcionou, mas agora eu preciso que na msgbox informe o setor o qual nao concluiu. Tem mais alguma ideia?

Criquio to com uma idéia aqui vou tentar e ja posto aqui.... só to mandando o post...para você não se preocupar com ele agora.

Criquio... da uma olhada no código abaixo. Ele funcionou quase que perfeitinho, só falta agora ele apontar o setor ao falta ser concluido, ou setores, mas se me mostrar um setor já estará suficiente.

Desde Ja Agradeço.



Private Sub btnVerificar_Click()
Dim TotalReg, Validador As String

TotalReg = DCount("Cod_Prod_Ped", "[tbl Programacao de Processos]", "Cod_Prod_Ped=" & Me.Cod_Prod_Ped & "")
Validador = DCount("DataConcluido", "[tbl Programacao de Processos]", "Cod_Prod_Ped=" & Me.Cod_Prod_Ped & "") + 1

If Validador <> TotalReg Then
MsgBox "Há processos sem concluir", vbOKOnly + vbCritical, "Atenção"
MsgBox ("N=" & TotalReg & " / " & Validador) 'verifica os valores das variaveis

Else
MsgBox ("Todos os Processos foram concluidos")
MsgBox ("N=" & TotalReg & " / " & Validador) 'verifica os valores das variaveis

End If
End Sub

Que tal uma consulta que filtre os registros com campo nulo ou com valor tipo "Pendente" e um formulário contínuo que abra caso a consulta retorne maior que zero? Assim, você teria os registros em aberto todos exibidos no formulário contínuo.

Perfeito... vou fazer isso...

como diz o JPaulo: "optar pelo simples."

Criquio... você é Demais mesmo... Valeu cara... ja vou dar o tópico como resolvido e qualquer coisa abro outro...


Obrigado mesmo.

Valeu pelo retorno. Qualquer coisa, assovie.