|
El codigo que me pediste es este:
Private Sub Timer1_Timer()
Dim fecha As Date
fecha = Format(Date, "short date")
Label16 = fecha - DTPicker1
If Label16 >= 0 And Label16 <= 4 Then
Label16.BackColor = vbWhite
ElseIf Label16 >= 24 Then
Label16.BackColor = vbRed
ElseIf Label16 >= 5 And Label16 <= 14 Then
Label16.BackColor = vbGreen
ElseIf (Label16 >= 15) And (Label16 <= 23) Then
Label16.BackColor = vbYellow
End If
End Sub
Como puedes observar yo al momento de seleccionar un objeto DTPicker me va a hacer una resta con la fecha del sistema la cual esta dentro de una label16 para que cada dia que yo corra el programa se cambie automaticamente pero no lo hace. la cual esta conectada a un campo de la base de datos que tengo.
entonses el problema es que cuando yo corro el programa me deja muchos campos con el mismo valor del dia anterior.
entonses espero que con esto me puedas hayudar ´porque ya lo intente asta en el evento load del formulario y tampoco me funciona y disen lo peor de todo es que es un proyecto importante.
haaaaaaa y ,e toca andarme moviendo por cada uno de los campos de la base de datos para que me hacepte el cambio y me aumente el siguiente dia.
espero tu pronta respuesta gracias
|
