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

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

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.

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.

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)

Acabei de tentar mas continha dando o erro

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

Obrigado pela Ajuda.

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.