MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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








    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.



    .................................................................................
    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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)




    .................................................................................
    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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: Dom 04 Dez 2016, 14:14