grabar fecha en blanco!!
Publicado por amelia (60 intervenciones) el 07/04/2008 19:05:05
Buen día !!
Tengo que grabar en una base de datos fechas, pero algunas están en blanco porque no es obligatorio grabarlas todas en ese momento.
las fechas están en cuadro de texto.
Entonces:
m_controlf = Format((cfechavisor), "Medium Date")
If m_controlf <> "__/__/__" Then
If IsDate(m_controlf) = False Then
a_d = MsgBox("Fecha inválida", vbInformation, "Fecha inválida")
cfechavisor.SetFocus
Exit Sub
End If
m_fecha = "#" & Val(Mid(cfechavisor, 4, 2)) & "/" & Val(Left(cfechavisor, 2)) & "/" & Val(Right(cfechavisor, 2)) & "#"
ffechavisor = m_fecha
Else
ffechavisor = ????
End If
cuando va a grabar con UPDATE, me da error. probé varias poner #00/00/00# no hay caso.peor si pongo ffechavisor= ""
GRACIAS desde ya a quien me puede ayuda !!
Espero con bastante urgencia.
Tengo que grabar en una base de datos fechas, pero algunas están en blanco porque no es obligatorio grabarlas todas en ese momento.
las fechas están en cuadro de texto.
Entonces:
m_controlf = Format((cfechavisor), "Medium Date")
If m_controlf <> "__/__/__" Then
If IsDate(m_controlf) = False Then
a_d = MsgBox("Fecha inválida", vbInformation, "Fecha inválida")
cfechavisor.SetFocus
Exit Sub
End If
m_fecha = "#" & Val(Mid(cfechavisor, 4, 2)) & "/" & Val(Left(cfechavisor, 2)) & "/" & Val(Right(cfechavisor, 2)) & "#"
ffechavisor = m_fecha
Else
ffechavisor = ????
End If
cuando va a grabar con UPDATE, me da error. probé varias poner #00/00/00# no hay caso.peor si pongo ffechavisor= ""
GRACIAS desde ya a quien me puede ayuda !!
Espero con bastante urgencia.
Valora esta pregunta


0