Insertar fecha en textbox con formato
Publicado por Luis Antonio (28 intervenciones) el 02/02/2004 03:26:03
Hola.
Estoy intentado que al añadir un registro, el campo de fecha que intruduzco coloque el formato dd/mm/aa.
El problema es que utilizo una matriz de controles y además no me admite el formato. El código siguiente me servía cuando el campo era texto, pero no cuando es fecha.
Private Sub TxtLibros_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
' Darle formato a las fechas
If TxtLibros(12).setFocus then
If KeyCode <> 46 And KeyCode <> 8 Then
Select Case Len(TxtAlFesalida)
Case 2, 5
TxtAlFesalida = TxtAlFesalida + "/"
SendKeys "{end}"
End Select
End If
End if
End Sub
Un saludo. Luis
Estoy intentado que al añadir un registro, el campo de fecha que intruduzco coloque el formato dd/mm/aa.
El problema es que utilizo una matriz de controles y además no me admite el formato. El código siguiente me servía cuando el campo era texto, pero no cuando es fecha.
Private Sub TxtLibros_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
' Darle formato a las fechas
If TxtLibros(12).setFocus then
If KeyCode <> 46 And KeyCode <> 8 Then
Select Case Len(TxtAlFesalida)
Case 2, 5
TxtAlFesalida = TxtAlFesalida + "/"
SendKeys "{end}"
End Select
End If
End if
End Sub
Un saludo. Luis
Valora esta pregunta


0