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

    [Resolvido]Com data parametro não insere os dados na tabela

    Compartilhe
    avatar
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 02/10/2011

    [Resolvido]Com data parametro não insere os dados na tabela

    Mensagem  rubenscouto em 22/4/2018, 00:28

    Prezados Senhores:
    utilizo este comando para lançar alunos em uma tabela de frequencia:
    Set rst = db.OpenRecordset("SELECT CodigoAluno, DataMatricula, Situacao FROM Matriculas WHERE CodigoClasse = " & Me.CodigoClasse.Column(0) & " and Situacao = 'Ativo'").
    quando utilizo com o parametro de DataMatricula <= " & Me.Parent!Data_Ocorrencia) que é a data da aula os dados não são lançados embora na tela do Vba mostre que buscou a dadta igual a data da aula.
    onde pode está o erro?

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Com data parametro não insere os dados na tabela

    Mensagem  Noobezinho em 22/4/2018, 01:19

    Experimente:

    DataMatricula <= #" & Me.Parent!Data_Ocorrencia#)


    A data deve estar entre cerquilhas no VBA:

    "#Me.Parent!Data_Ocorrencia#"


    Veja se funfa.



    avatar
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 02/10/2011

    Re: [Resolvido]Com data parametro não insere os dados na tabela

    Mensagem  rubenscouto em 16/5/2018, 02:59

    funfou de primeira. topico resolvido.

    Set rst = db.OpenRecordset("SELECT CodigoAluno, DataMatricula, Situacao FROM Matriculas WHERE CodigoClasse = " & Me.CodigoClasse.Column(0) & " and Situacao = 'Ativo' and DataMatricula <= #" & Me.Parent!Data_Ocorrencia & "#")

      Data/hora atual: 19/10/2018, 08:27