MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

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

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Robert_2012 20/4/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 20/4/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 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

    [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar Folder_announce_new Instruções SQL como utilizar...
    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Robert_2012 20/4/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 20/4/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 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

    [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar Folder_announce_new Instruções SQL como utilizar...
    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Robert_2012 20/4/2012, 15:29

    Acabei de tentar mas continha dando o erro

    Quanto ao NZ ele é do Access, não consigo utilizar no VBA
    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Robert_2012 25/7/2014, 18:31

    Obrigado pela Ajuda.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 30/7/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 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

    [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Trabalhando com campo Data em Banco - erro ao gravar Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 07:15