campo fecha en blanco
Publicado por Cesar E. (1 intervención) el 14/02/2006 02:14:37
el problema es q no puedo grabar fecha en blanco
en access(el campo esta como no requerido)
tengo lo siguiente
Private Sub Inicializa_Datos()
Dim sFecha As Date
sFecha = frmMovCompbtes.dtpFeccom.Value
txtFec183.Text = Format(sFecha, "dd/mm/yyyy")
End Sub
Private Sub Captura_Datos()
Dim rsTemp As New ADODB.Recordset
Dim sFecha As Date
sFecha = frmMovCompbtes.dtpFeccom.Value
txtFec183.Text = IIf(IsNull(rsTemp!mde_f183), Format(sFecha, "dd/mm/yyyy"), Format(rsTemp!mde_f183, "dd/mm/yyyy"))
Private Sub Habilita_Datos(estado As Boolean)
txtFec183.Enabled = estado
End Sub
Private Sub cmdGrabar_Click()
cmdSQL = "INSERT INTO CGmovdet(" & _
'" & sIndreg & "','" & txtNum183.Text & "','" & txtFec183.Text & "'," & _
Else
cmdSQL = "UPDATE CGmovdet SET " &
"mde_f183 = '" & txtFec183.Text & "'," & _
**** ya algrabar en blanco error
agradeceria ayuda porfa
en access(el campo esta como no requerido)
tengo lo siguiente
Private Sub Inicializa_Datos()
Dim sFecha As Date
sFecha = frmMovCompbtes.dtpFeccom.Value
txtFec183.Text = Format(sFecha, "dd/mm/yyyy")
End Sub
Private Sub Captura_Datos()
Dim rsTemp As New ADODB.Recordset
Dim sFecha As Date
sFecha = frmMovCompbtes.dtpFeccom.Value
txtFec183.Text = IIf(IsNull(rsTemp!mde_f183), Format(sFecha, "dd/mm/yyyy"), Format(rsTemp!mde_f183, "dd/mm/yyyy"))
Private Sub Habilita_Datos(estado As Boolean)
txtFec183.Enabled = estado
End Sub
Private Sub cmdGrabar_Click()
cmdSQL = "INSERT INTO CGmovdet(" & _
'" & sIndreg & "','" & txtNum183.Text & "','" & txtFec183.Text & "'," & _
Else
cmdSQL = "UPDATE CGmovdet SET " &
"mde_f183 = '" & txtFec183.Text & "'," & _
**** ya algrabar en blanco error
agradeceria ayuda porfa
Valora esta pregunta


0