Asunto: recorrer un cuadro de texto de un formulario en access
hola que tal soy nueva me llamo leidy y queria por favor que me ayuden soy nueva utilizando access y no conosco mucho sobre programación VBA, lo que sucede es que tengo un formulario donde tengo nombre, apellido, licencia, fecha de emision y fecha de caducidad la cuestion es que deseo que recorra todo el formulario en especial fecha de caducidad y que mande una alerta o se pinte de un color el cuadro de texto de fecha de caducidad cuando falte 3 dias para vencer el problema es que yo e intentado barrer todo el formulario pero cuando hago la parte de la fecha se pinta todo los cuadros y no los que deseo no se como puedo hacer ayudenme porfavor aqui les dejo lo que masomenos hize
Private Sub Comando21_Click()
Dim ctl As Control
Dim intI As Integer
Dim fecha As Date
For intI = 0 To Forms("[PERSONAL QUE PORTA LICENCIA]").Controls.Count - 1
Set ctl = Forms("[PERSONAL QUE PORTA LICENCIA]").Controls(intI)
fecha = DateDiff("d", [Fecha de Caducidad], Fecha_automática) <= 3
If TypeOf ctl Is TextBox And fecha Then
[Fecha de Caducidad].BackColor = vbYellow
End If
Next intI
End Sub
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A