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