SoloCodigo

Saludos  

La siguientes rutinas, cambia de color al textbox, regresa al usuario al mismo TextBox y le permite solo se equivoque 2 veces, si esto sucede entonces en forma predeterminada escribe la fecha actual.

Código: Text

1.  
2. Private Sub txtFechaDeLaHistoria_GotFocus()
3.     txtFechaDeLaHistoria.BackColor = &HC0FFFF
4. End Sub
5.  
6. Private Sub txtFechaDeLaHistoria_LostFocus()
7.     Static Cnt As Integer
8.     If Not IsDate(txtFechaDeLaHistoria.Text) Then
9.         gstrMsg = "La fecha de la nota de consulta no es válida. Ejemplo: 24/12/2005 (día/mes/año)"
10.         MsgBox gstrMsg, vbCritical, gstrAppTitle
11.         If txtFechaDeLaHistoria.Text = "" Then
12.             txtFechaDeLaHistoria.Text = Format(Date, "dd/mm/yyyy")
13.         End If
14.         If Cnt >= 1 Then
15.             txtFechaDeLaHistoria.Text = Format(Date, "dd/mm/yyyy")
16.             Cnt = 0
17.         End If
18.         Cnt = Cnt + 1
19.         txtFechaDeLaHistoria.SetFocus
20.         Exit Sub
21.     End If
22.     txtFechaDeLaHistoria.BackColor = &H80000005
23. End Sub
24.  
25.  

-----------------------------------------------------------

hola cpmario
muchas gracias por tu ayuda pero sabes solo soy un aprendis en visual y no se mucho, me gustaria si es existe la posiblidad de que mas o menos me expliques el codigo pk igual se entiende pero no se como ocuparlo jajaja  te agradeciria mucho si pudieses hacer algo te lo agradeceria mucho hasta luego qeu estes muy bien y gracias
 

Te elaboré un pequeño proyecto que muestra como funciona. Te lo adjunto en un zip.
Solo haz un clic en el botón salir.
--------------------------------------------------

 

grande te pasaste esta muy claro y super entendible te le agradesco mucho y me sirve mucho ya que estoy diseñando un pequeño sistema para el departamento que trabajo y tengo que validar fechas y horas por eso y como soy nuevo en el ambito visual necesitaba la ayuda gracias que este bien adios