MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Comparar dados agendados e evitar duplicidade

    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    Comparar dados agendados e evitar duplicidade Empty Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em 5/5/2017, 13:37

    Bom dia nobres mestres.

    Tenho um sistema DO EJA (supletivo) com a função de agendamentos de provas, então preciso de um código que compare se o nome do aluno, data da prova e disciplina já encontram-se agendados, se ja estiverem exibir uma mensagem na tela informando que o aluno já esta agendado para a data e disciplina.

    alguém pode me ajudar nesta questão?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10592
    Registrado : 04/11/2009

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  JPaulo em 5/5/2017, 13:49

    A minha sugestão seria fazer essa validação por RecordSet

    Talvez num botão de salver ou validar;


    Código:
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM SuaTabelaOuConsulta")

    Do While Not rst.EOF
       If rst![SeuCampo1] = Me.SuaCaixaTexto1.Value And rst![SeuCampo2] = Me.SuaCaixaTexto2.Value Then
       MsgBox "Registro já lançado...", vbCritical
       Exit Do
       Else
    'faz o procedimento de incluir ou salvar
       End If
    rst.MoveNext
    Loop
    rst.Close

    Neste exemplo coloquei a penas dois (2) criterios, mas pode fazer com muitos mais.

    Ou pode usar a função interna DCount

    Qualquer coisa assim:

    Código:
        If DCount("*", "SuaTabela", "SeuCampo1=" & Me.txt01 And "SeuCampo2=" & Chr(34) & Me.txt02 & Chr(34))>0 Then


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Comparar dados agendados e evitar duplicidade Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Comparar dados agendados e evitar duplicidade Folder_announce_new 102 Códigos VBA Gratuitos...
    Comparar dados agendados e evitar duplicidade Folder_announce_new Instruções SQL como utilizar...
    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em 5/5/2017, 14:00

    Muito obrigado JPaulo, vou olhar o codigo aqui e estuda-lo para o meu caso.
    Depois retorno com o resultado.
    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em 5/5/2017, 15:35

    Amigo JPaulo, fiz o teste aqui e deu um erro:

    Tipos incompatíveis na linha abaixo

    Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl_Materias")

    Usei o primeiro exemplo que vc falou
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10592
    Registrado : 04/11/2009

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  JPaulo em 5/5/2017, 16:08

    Estranho;

    Tente adicionar o DAO

    Código:
    Dim rst As DAO.Recordset
    Dim db As DAO.Database
    Set rst = db.OpenRecordset("SELECT * FROM SuaTabelaOuConsulta")


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Comparar dados agendados e evitar duplicidade Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Comparar dados agendados e evitar duplicidade Folder_announce_new 102 Códigos VBA Gratuitos...
    Comparar dados agendados e evitar duplicidade Folder_announce_new Instruções SQL como utilizar...
    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em 10/5/2017, 13:25

    Bom dia Mestre JPaulo

    Desculpe pela demora para da um retorno, é que estava meio enrolado.

    Mas vamos ao que interessa. Ainda continua dando erro:

    "O tipo definido pelo usuário não foi definido"

    alinha do erro é esta: rst As DAO.Recordset

    Fico no aguardo.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10592
    Registrado : 04/11/2009

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  JPaulo em 10/5/2017, 13:49

    Entre no VBA, vá a Ferramentas, Referências e veja se tem marcada a referência "Microsoft Access xx.0 Object Library"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Comparar dados agendados e evitar duplicidade Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Comparar dados agendados e evitar duplicidade Folder_announce_new 102 Códigos VBA Gratuitos...
    Comparar dados agendados e evitar duplicidade Folder_announce_new Instruções SQL como utilizar...
    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em 10/5/2017, 14:26

    Ok, depois dou retorno
    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em 10/5/2017, 14:29

    Sim esta marcado
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10592
    Registrado : 04/11/2009

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  JPaulo em 10/5/2017, 15:33

    Anexe o seu banco ou parte dele aqui.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Comparar dados agendados e evitar duplicidade Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Comparar dados agendados e evitar duplicidade Folder_announce_new 102 Códigos VBA Gratuitos...
    Comparar dados agendados e evitar duplicidade Folder_announce_new Instruções SQL como utilizar...
    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em 10/5/2017, 15:48

    posso mandar para seu e-mail.

    pq ele tem informações particulares da empresa
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    Registrado : 01/03/2014

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  Celso Roberto em 10/5/2017, 19:35

    Olá...
    Com a licença de Nosso Mestre, anexo um exemplo que executa a mensagem com os dados da pesquisa e possibilita ir ao cadastro encontrado para edita-los de assim desejar.
    Espero que ajude..
    Anexos
    Comparar dados agendados e evitar duplicidade AttachmentAgendaAlunos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (75 Kb) Baixado 33 vez(es)


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em 10/5/2017, 20:44

    Ola Celso, Muito obrigado pelo interesse em ajudar.

    e seu exemplo é muito bom também, irei fazer as adaptações para o meu sistema.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    Registrado : 01/03/2014

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  Celso Roberto em 7/6/2017, 16:07

    Olá...

    Conseguiu resolver?

    Continuamos aguardando o seu retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em 8/6/2017, 14:27

    Ola amigo,

    Desculpe pela demora, mas é que estou meio ocupado com outras prioridades por isso ainda não tive tempo para da continuidade com o assunto. Mas prometo que assim que retornar aviso o resultado.

    Obrigado!
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    Registrado : 01/03/2014

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  Celso Roberto em 8/6/2017, 22:40

    Valeu..

    Aguardamos

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    Registrado : 01/03/2014

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  Celso Roberto em 9/3/2018, 16:13

    Olá..

    Conseguiu resolver esta sua solicitação de ajuda?

    Os membros do Fórum merece o seu retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6816
    Registrado : 15/03/2013

    Comparar dados agendados e evitar duplicidade Empty Re: Comparar dados agendados e evitar duplicidade

    Mensagem  ahteixeira em 25/2/2020, 11:38

    Olá a todos,

    Obede, como ficou a situação?
    Os membros merecem e agradecem o retorno.


    Abraço

      Data/hora atual: 5/8/2020, 20:48