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
criquio
Altair_147
6 participantes

    [Resolvido]Verificar registro existe 3 critérios

    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]Verificar registro existe 3 critérios Empty Verificar registro existe 3 critérios

    Mensagem  Altair_147 15/1/2011, 18:53

    Preciso de um código VBA que pesquise se o registro existe baseado em 3 critérios.

    O exemplo abaixo pesquisa com um critério:
    Preciso que use os critérios: codigo_jurado, codigo_entrada, código_animal.

    If (Not IsNull(DLookup("[codigo_jurado]", "registro_votacao", _
    "[codigo_jurado] ='" & Me!codigo_jurado & "'"))) Then


    Obrigado.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  criquio 15/1/2011, 18:58

    Isso tudo se encontra na mesma tabela? E tem um código chave primária em comum a todos os três critérios?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]Verificar registro existe 3 critérios Empty Verificar registro existe 3 critérios

    Mensagem  Altair_147 15/1/2011, 18:59

    Tudo na mesma tabela.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  criquio 15/1/2011, 19:16

    E tem uma chave primária na tabela? Outra coisa: as três condições precisam ser satisfeitas no mesmo registro ou em toda a tabela? Ou seja, elas precisam estar no mesmo registro ou você precisa que a função pesquise se tem os valores salteados, podendo ser uma das condições em um registro, a outra em outro registro, etc.?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]Verificar registro existe 3 critérios Empty Verificar registro existe 3 critérios

    Mensagem  Altair_147 15/1/2011, 19:19

    não tem chave primaria, e os 3 critérios tem que estar todos no mesmo registro.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  criquio 15/1/2011, 19:27

    Acredito que algo não está bem nessa tabela. Aconselho-te a meter uma chave primária nela, pois para fazer esse tipo de consulta, se faz necessário ter um código único para cada registro.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  Alexandre Neves 15/1/2011, 21:46

    Boa noite, Altair

    Indicou um dos critérios para procura. E os outros dois critérios?

    Tem de ser do género: Dlookup("Campo","Tabela","Campo1 comparação condição1 and/or Campo2 comparação condição2 and/or Campo3 comparação condição3)
    Cumprimentos,
    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]Verificar registro existe 3 critérios Empty Verificar registro existe 3 critérios

    Mensagem  Altair_147 15/1/2011, 21:48

    Ok, vou verificar aqui e depois retorno.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  criquio 16/1/2011, 00:36

    Vou deixar aqui uma dica. Se não funfar, pode ser necessário implementar a primary key:

    If (Not IsNull(DLookup("[codigo_jurado] &" "& [Codigo_entrada] &" "&
    [código_animal.]", "registro_votacao", _
    "[codigo_jurado] ='" & Me!codigo_jurado & "'"))) Then
    MsgBox "O xxxxxxx já está cadastrado no sistema..." & codigo_jurado.Text, _
    vbInformation, "Aviso"
    Cancel = True 'cancela o evento.
    Me!codigo_jurado.Undo 'desfaz a digitação.
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]Verificar registro existe 3 critérios Empty Verificar registro existe 3 critérios

    Mensagem  Altair_147 16/1/2011, 11:26

    Implementei a chave primário e resolvi o problema. Obrigado.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  criquio 16/1/2011, 11:27

    Valeu amigo. Qualquer coisa, assovie.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    luisev
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 03/01/2011

    [Resolvido]Verificar registro existe 3 critérios Empty Verificar registro existe 3 critérios

    Mensagem  luisev 21/1/2011, 19:19

    Boas,

    Baseado no que aqui, gostaria de saber após digitar o mome de um cliente num form e ao dar enter, se ele já está registado na tabela de clientes.
    É possível utilizar uma instrução assim para o fazer? Já tentei mas não funga! Dá-me sempre a mensagem que já existe!

    If (Not IsNull(DLookup("[codigo_jurado]", "registro_votacao", _
    "[codigo_jurado] ='" & Me!codigo_jurado & "'"))) Then

    Sera que entendi? o "codigo_jurado" é o campo da tabela e o "registo_votacao" é a tabela?


    Por norma eu faco assim e funciona:

    DoCmd.Close acForm, "FrmClientesFiltra"
    DoCmd.OpenForm "FrmClientesFiltra", acNormal, "", "", ,acHidden
    If Not IsNull([Forms]![FrmClientesFiltra]![CodCliente]) Then
    MsgBox "Atenção! Essa cliente ja existe!", vbCritical, "Gestão de Clientes"
    Me.Combo52.SetFocus
    DoCmd.Close acForm, "FrmClientesFiltra"
    Exit Sub
    Else
    End If

    No entanto, tenho de criar um form à parte para fazer a pesquisa, o que me faz perder tempo e ter mais um form na base.

    Obrigado,
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  vieirasoft 21/1/2011, 19:43

    Entendeu perfeitamente. Registro_Votação é a tabela

    Veja

    If DCount("[codigo_jurado]", "registro_votacao", "[codigo_jurado]= '" & Me![codigo_jurado] & "'") > 0 Then
    MsgBox "O campo já está cadastrado no sistema..." & codigo_jurado.Text, _
    vbInformation, "Aviso"
    DoCmd.CancelEvent 'cancela o evento.
    Me!codigo_jurado.Undo 'desfaz a digitação.
    End If
    avatar
    luisev
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 03/01/2011

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  luisev 21/1/2011, 20:12

    Pois é amigo! Já entendi o que está mal....

    ocampo chave da tabela é [NomeClienteETipoCliente], que é resultado da junção do valor de um combo (onde estou a correr esta rotina) e de um outo valor de outro campo. Ou seja [NomeCliente] & [TipoCliente].

    O campo que quero pesquisar é o campo chave da tabela que é [NomeClienteETipoCliente]. Será que não o posso correr esta rotina a partir do combo após a junção dos dois valores?

    Já simulei esta rotina noutro campo de outra tabela e funga!

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  vieirasoft 21/1/2011, 20:30

    Não experimentei, mas não creio que seja necessário essa junção toda uma vez que faz a pesquisa pelo campo chave e isso é suficiente. Com o diz o nosso mestre; Para quê complicar o que é simples?

    Abs
    avatar
    natalison
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 04/05/2011

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  natalison 5/5/2011, 02:04

    Como estou novato no access e aqui, preciso da ajuda de voces. Ja consegui pegar algumas dicas. Porem preciso de ajuda. Estou com um formulario pronto, onde tenho os campos Cod_Prec (Codigo do titular, os dependentes usam o mesmo codigo, ou seja, pode haver duplicacao), CPF que tenho que aceitar vazio, Nome de Paciente, nome da mae e outros dados. Preciso cadastrar um novo paciente, porem gostaria de verificar se este paciente ja existe logo apos eu digitar esses dados, CPF + Nome+ Cod_prec, ou Nome + CPF, ou seja, algo que me garanta que nao vai ser incluido na tabela o mesmo paciente duas vezes. Espero ter sido claro. Aguardo Ajuda e desde ja obrigado
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  criquio 5/5/2011, 02:20

    Código do titular acredito que não ajudará nesse caso, pois você precisa saber é se o cliente já está cadastrado e não se um código já existe, certo? Agora, se CPF pode ser nulo, aí a coisa se complica um pouco, pois nome não é garantia de unicidade, nem mesmo se comparar nome e sobrenome, pois embora não seja comum, pode ter mais de uma pessoa com mesmo nome e sobrenome. Acredito que um cliente que não tenha CPF precise ser dependente de um que o tenha, ou não? O certo seria que o CPF do titular fosse de preenchimento obrigatório, para que a consulta pudesse ser feita por ele, ou um outro documento único.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    natalison
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 04/05/2011

    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  natalison 5/5/2011, 02:31

    Boa Noite

    Pois e. O que acontece e que nao podemos obrigar um paciente trazaer CPF na hora da emergencia, estamos orientando que no retorno ele traga. O Cod_Prec e do titular o dependente usa o mesmo codigo porem com um sequencial 01, 02, 03 somado a este Cod_Prec. Vou tentar ser mais claro, O Joao tem Cd_Prec 12345678-00, seus dependentes tem Cod_Prec 01, 02, 03 .... assim sucessivamente. Se eu juntar o Cod_Prec com o sequencial fica unico. Seria melhor que CPF. Porem eu tenho os casos, de pacientes que nao tem Cod_prec. Pra esses sao digitados a palavra ISENTO, no local do Cod_Prec. Acho que clareou mais aqui pra mim, se eu juntar os campos Cod_Prec+Seq

    Conteúdo patrocinado


    [Resolvido]Verificar registro existe 3 critérios Empty Re: [Resolvido]Verificar registro existe 3 critérios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:22