operaciones con fechas
Publicado por Diego (8 intervenciones) el 31/12/2007 23:13:47
hola, bueno les comento estoi haciendo un sistema, en esta consulta al hacer click en el menu Consultas>Ver pagos hace lo sigiuente
Private Sub MNUPAGOS_Click()
If DataGrid1.Columns(1).Text = TXTFECHA.Text Then
aa = MsgBox("", vbCritical + vbOKOnly, "")
End If
End Sub
http://img98.imageshack.us/my.php?image=ejrp0.jpg
eso sale bien, pero yo quiero que compare todos lo registros de la columna 1, porque ahi solamente tengo un registro solamente compara el primer registro de toda esa columna,
yo quiero que si hai fechas iguales salga un cartel o lo que sea, se cambie el color, no importa...
alguien tiene idea de como hacerlo ???
Private Sub MNUPAGOS_Click()
If DataGrid1.Columns(1).Text = TXTFECHA.Text Then
aa = MsgBox("", vbCritical + vbOKOnly, "")
End If
End Sub
http://img98.imageshack.us/my.php?image=ejrp0.jpg
eso sale bien, pero yo quiero que compare todos lo registros de la columna 1, porque ahi solamente tengo un registro solamente compara el primer registro de toda esa columna,
yo quiero que si hai fechas iguales salga un cartel o lo que sea, se cambie el color, no importa...
alguien tiene idea de como hacerlo ???
Valora esta pregunta


0