TextBox

28/12/2008 - 00:23 por Manuel | Informe spam
Tengo un formulario donde recojo la hora en un TextBox, aquí escribo
el código:


Private Sub UserForm_Click()
Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If AdmissionTime.Value > "24:00:00" Then
MsgBox "Select the hour using 24 format.", vbCritical, "ERROR WHEN
INTRODUCING THE HOUR"
Cancel = True
Exit Sub
End If
End Sub



Deseo escribir en el TextBox solo la hora, en vez de escribir por
ejemplo 10:50, quiero escribir 1050 y que el asuma los dos puntos
intermedios que separan la hora de los minutos, así ahorro tiempo y
evito errores. ¿Cómo puedo lograr esto?

Desde ya, muchas gracias,
Manuel

Preguntas similare

Leer las respuestas

#6 Manuel
29/12/2008 - 00:31 | Informe spam
Héctor, quedó perfectamente.

Sabes que cuando se resuelve una necesidad esta genera otra.
¿Cómo evito que se escriba algo que no sea número? y genere un error,
porque me percaté que sin querer se le pone el signo : y genera una
hora inadecuada (12:01 am).

Saludos, Manuel

On 28 dic, 16:36, "Héctor Miguel"
wrote:
Mostrar la cita
#7 Héctor Miguel
29/12/2008 - 01:13 | Informe spam
hola, Manuel !

Mostrar la cita
copia/pega (o escribe) lo siguiente en el modulo de codigo del formulario:

Private Sub AdmissionTime_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57: Case Else: KeyAscii = 0
End Select
End Sub

saludos,
hector.
Ads by Google
Search Busqueda sugerida