MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Comparar dados agendados e evitar duplicidade

    Compartilhe

    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em Sex 05 Maio 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?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  JPaulo em Sex 05 Maio 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em Sex 05 Maio 2017, 14:00

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

    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em Sex 05 Maio 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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  JPaulo em Sex 05 Maio 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em Qua 10 Maio 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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  JPaulo em Qua 10 Maio 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em Qua 10 Maio 2017, 14:26

    Ok, depois dou retorno

    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em Qua 10 Maio 2017, 14:29

    Sim esta marcado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  JPaulo em Qua 10 Maio 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em Qua 10 Maio 2017, 15:48

    posso mandar para seu e-mail.

    pq ele tem informações particulares da empresa
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  Celso Roberto em Qua 10 Maio 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
    AgendaAlunos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (75 Kb) Baixado 17 vez(es)


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em Qua 10 Maio 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.
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  Celso Roberto em Qua 07 Jun 2017, 16:07

    Olá...

    Conseguiu resolver?

    Continuamos aguardando o seu retorno

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  obedebatista em Qui 08 Jun 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!
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Comparar dados agendados e evitar duplicidade

    Mensagem  Celso Roberto em Qui 08 Jun 2017, 22:40

    Valeu..

    Aguardamos

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

      Data/hora atual: Sab 23 Set 2017, 06:46