MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    avatar
    HBA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 16/09/2011

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

    Mensagem  HBA 22/7/2013, 20:40

    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.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

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

    Mensagem  Dilson 23/7/2013, 18:29

    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 ?
    avatar
    HBA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 16/09/2011

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

    Mensagem  HBA 24/7/2013, 19:14

    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.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

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

    Mensagem  Dilson 24/7/2013, 19:53

    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
    avatar
    HBA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 16/09/2011

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

    Mensagem  HBA 25/7/2013, 19:02

    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.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

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

    Mensagem  Dilson 25/7/2013, 20:49

    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
    avatar
    HBA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 16/09/2011

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

    Mensagem  HBA 1/8/2013, 15:35

    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.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

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

    Mensagem  Dilson 2/8/2013, 00:37

    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.



    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2024, 04:06