Teste de validação com dados em outra tabela.

Ola pessoal,
Sou novo no forum, pelo menos para mandar duvidas, pois em visitas eu ja recorri varias vezes, mas dessa vez não estou conseguindo resolver meu problemas, que é o seguinte:
Possuo um BD que gerencia não conformidades de qualidade da produção onde trabalho, tenho uma tabela que se lança a informação, em outra tabela que se responde, cada uma em um formulario diferente. Simplesmente, a pessoa entra no lançamento e o faz, só que para responder a pessoa precisa responder uma outra questao, que é o registro e seu nome e se tem dois outros arquivos respondido (arquivos fora do access), marcando em duas opções "S/N" depois disso abre o formulario de resposta. Porem, ai começa meus problema, eu preciso verificar se as duas opções "S/N" estão em "S", porem nesse teste eu preciso de dois campos que estão na tabela de lançamento, mas não consigo fazer um codigo que busque e valide essas informações, segue meu codigo:

Dim stDocName As String
If Me![Local de deteccao] = "1" Or Me![Local de deteccao] = "2" Then
If Me![Tipo de Auditoria] = "1" Then
If Quadro92 = "1" And Quadro99 = "1" Then
OK.Enabled = True
DoCmd.GoToControl "[OK]"
Else
If Quadro92 = "2" And Quadro99 = "1" Then
OK.Enabled = False
MsgBox "É necessário o preenchimento do formulário 5 porque"
DoCmd.GoToControl "[Abrir_5pq]"
Else
End If
End If
End If
Else
If Me![Tipo de Auditoria] = "2" Or Me![Tipo de Auditoria] = "3" Then
If Quadro92 = "1" And Quadro99 = "1" Then
OK.Enabled = True
DoCmd.GoToControl "[OK]"
Else
If Quadro92 = "1" And Quadro99 = "2" Then
OK.Enabled = False
MsgBox "É necessário o preenchimento do formulários Ishikawa"
DoCmd.GoToControl "[Abrir_Ishikawa]"
Else
If Quadro92 = "2" And Quadro99 = "1" Then
OK.Enabled = False
MsgBox "É necessário o preenchimento do formulário 5 porque"
DoCmd.GoToControl "[Abrir_5pq]"
Else
If Quadro92 = "2" And Quadro99 = "2" Then
OK.Enabled = False
MsgBox "É necessário o preenchimento dos formulário 5 porque e Ishikawa"
DoCmd.GoToControl "[Abrir_5pq]"
End If
End If
End If
End If

End If
End If

Else
If Me![Local de deteccao] = "3" Or Me![Local de deteccao] = "4" Then
stDocName = "frm_5pq_prod_procF2"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "NÚMERO DE RNC NÃO ENCONTRADA"
End If
End If

Os "Local de deteccao e Tipo de deteccao" são os campos que estão na tabela de lançamento.
Alguem poderia me ajudar nesse problema, desde ja agradeço a ajuda e atenção de todos.

Att.

As tabelas de lançamento e resposta possuem relacionamento em que se pode trabalhar com a chave primária do lançamento e a chave estrangeira da resposta ?

Caso não haja o relacionamento. Como está relacionando os registros ?

As tabelas não estão relacionadas, nesse caso eu criei uma consulta com as duas tabelas e associei através do campo "CodigoRNC". Ja tentei os 3 tipos de associação, mas em nenhum dos casos funciona.

Desde já, Obrigado.

Se os registros das duas tabelas estiverem referenciadas pelo CodigoRNC que deduzo ser do tipo numérico, pode ser que seja possível você buscar por ele os dados dos dois campos citados usando recordsetclone ou dlookup. Depois de capturados os dados dos dois campos, faz um teste no if para ver se ambos estão com o valor S

Dilson,

Fiz alguns teste tentando usar o apenas o "recordset", não conheço nem o "recordsetclone" e o "dlookup", poderia me explicar e mostrar mais ou menos um exemplo da programação deles?
Só uma observação, perguntei como se usa pois não conheço muito bem a programação VBA.

Agradeço muito sua ajuda.

Imaginei mais ou menos como está suas tabelas e reproduzi. Simulei e vi duas possibilidades fiz o teste com recordset e sem recordset. Ao abrir este exemplo dê dois cliques em cima do registro para testar a funcionalidade:

https://dl.dropboxusercontent.com/u/8080696/FMA/RecordSet_HBA.rar

Dilson,

Deu certo e não deu certo. Adaptei os codigos e os comandos, praticamente fiz uma copia do seu exemplo com as minhas informações. O botão sem o recordset funciona, mas o com recordset não funciona. Pensei que eu poderia ter errado alguma coisa no codigo, mas fiz outro teste, copiei para dentro do meu campo, as tabelas, formularios e consulta do arquivo que vc me mandou de exemplo e acontece a mesma coisa, quando eu clico no botão de "Responder verificando com RecordsetClone" aparece a seguinte mensagem de erro:

"Erro de compilação: Método ou membro de dados não encontrado."

Você sabe o que poderia ser?

Obrigado.

Aquela mensagem aparece porque algum nome de campo não está escrito corretamente, veja o seguinte:

No formulário temos a fonte de registro que reproduz no formulário os dados da tabela ou consulta através das fontes de controle, essa reprodução se dá pelo nome do campo e você não poderá confundir o nome do campo que está na fonte de controle com o nome do controle que por questões de normalização os nomeamos com prefixos do tipo txt, cbo, bto, lst etc.

Então deduzo que colocou nome de controle ao invés de fonte de controle (é apenas uma suspeita), ex:

c1 = rst!txtCampo1 ao invés de: c1 = rst!Campo1

Em que rst é o seu recordset que referencia o campo contida na fonte de controle do formulário.

Agora uma coisa:

Com o que deu certo resolveu ?

Se resolveu aperte resolvido.