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]Trabalhando com campo Data em Banco - erro ao gravar

    Compartilhe

    Robert_2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 07/03/2012

    [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar

    Mensagem  Robert_2012 em Sex 20 Abr 2012, 14:40

    Caros,

    Bom dia

    Tenho no banco de dados a seguinte estrutura

    Nome do Campo Tipo de dados
    Codigo_Turma Texto
    Data_Inicial_Programada Data/Hora
    Data_Final_Programada Data/Hora
    Data_Inicial_Real Data/Hora
    Data_Final_Real Data/Hora

    Meu código para fazer aleração

    Private Sub Cmd_ALterar_Click()
    'Efetua alteração de Registro
    Application.ScreenUpdating = False

    sql = "UPDATE Cadastro_Turmas"
    If Not IsNull(Me.Txt_D_In_Programada) Then sql = sql & " set Data_Inicial_Programada = '" & Me.Txt_D_In_Programada & "'"
    If Not IsNull(Me.Txt_D_Fin_Programada) Then sql = sql & ", Data_Final_Programada = '" & Me.Txt_Hora_In_Programada & "'"
    If Not IsNull(Me.Txt_D_In_Real) Then sql = sql & ", Data_Inicial_Real = '" & CDate(Me.Txt_D_In_Real.Value) & "'"
    If Not IsNull(Me.Txt_D_Fin_Real.Value) Then sql = sql & ", Data_Final_Real = '" & Me.Txt_D_Fin_Real.Value & "'"

    sql = sql & " WHERE codigo = " & Me.Txt_N_Registro.Value

    Set BANCO = New ADODB.Recordset
    CX.Conectando

    BANCO.Open sql, CX.conn

    Set BANCO = Nothing
    CX.Desconectando
    MsgBox "Alterado com sucesso.", vbInformation, "Cadastro de Pessoas"
    End Sub

    Quando vou gravar os dados se o campo Me.Txt_D_Fin_Real.Value estiver vazio ele esta me retornando um erro
    Tipo de dados imcompativel na expressão de criterio.

    Alguém sabe como posso resolver isso.
    Será que é porque o campo esta como Data/Hora

    Esse código utilizo no vba do excel







    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar

    Mensagem  JPaulo em Sex 20 Abr 2012, 14:55

    Ola Robert;

    Nós aqui só tratamos de códigos VBA no Ms Access, não tratamos de códigos diretos no Excel.

    No entanto, pelo que vejo, você está a dar um CDate entre aspas simples, o CDate já trata texto em data, coloque como tem nos outros.



    .................................................................................
    Contribua com o maximoaccess, 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.]

    Robert_2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 07/03/2012

    Trabalhando com campo Data em Banco - erro ao gravar

    Mensagem  Robert_2012 em Sex 20 Abr 2012, 15:02


    JPaulo

    Você diz colocar aqui?

    If Not IsNull(Me.Txt_D_Fin_Real.Value) Then sql = sql & ", Data_Final_Real = '" & CDate(Me.Txt_D_Fin_Real.Value) & "'"

    Eu coloquei mas ele da erro de Tipos incompatíveis.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar

    Mensagem  JPaulo em Sex 20 Abr 2012, 15:24

    Teste sem o CDate

    If Not IsNull(Me.Txt_D_Fin_Real.Value) Then sql = sql & ", Data_Final_Real = '" & Me.Txt_D_Fin_Real.Value & "'"

    Eu prefiro utilizar a função Nz para nulos e não o "If Not IsNull".

    Nz(Me.Txt_D_Fin_Real.Value,0)




    .................................................................................
    Contribua com o maximoaccess, 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.]

    Robert_2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 07/03/2012

    Trabalhando com campo Data em Banco - erro ao gravar

    Mensagem  Robert_2012 em Sex 20 Abr 2012, 15:29

    Acabei de tentar mas continha dando o erro

    Quanto ao NZ ele é do Access, não consigo utilizar no VBA

    Robert_2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 07/03/2012

    Trabalhando com campo Data em Banco - erro ao gravar

    Mensagem  Robert_2012 em Sex 25 Jul 2014, 18:31

    Obrigado pela Ajuda.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar

    Mensagem  JPaulo em Qua 30 Jul 2014, 15:00

    Não entendi essa sua observação;

    Quanto ao NZ ele é do Access, não consigo utilizar no VBA

    Aqui só tratamos de VBA para Ms Access.


    .................................................................................
    Contribua com o maximoaccess, 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.]

      Data/hora atual: Ter 27 Jun 2017, 11:28