Datagrid

[ivan2009]

hola si alguien me ayudar a validar la fecha en una columna de una datagrid, ya que lo que tengo no m funciona, aqui les pongo el codigo que uso:

Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
If ColIndex = 5 Then
With DataGrid1
If Format(Len(.Columns(5).Value), "yyyy-mm-dd") > Format(Date, "yyyy-mm-dd") Then
Label6.Caption = "Verifique alguna data está mal."
End If
End With
End Sub

pero no me valida las fechas y me sale error, por favor desde ya muchas gracias a ustedes por su ayuda

[ValentinoMolinari]

primero el formato de fecha no es el correcto debes poner dd/mm/yyyy como tu quieras validar.... en tu caso sería yyyy/mm/dd si? sgundo quita el .value del datagrid(esto no estoy seguro que sea el error) y tercero primero trata de validar en el evento click del datagrid a ver que pasa....saludos espeo te sirva

[seba123neo]

Hola, para validar algo asi:

Código vb:

MsgBox IsDate("11/03/1987") = True
 

saludos.

[Avellaneda]

Y porqué no algo tan sencillo como esto:

Código:

Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
    If ColIndex = 5 Then
        If DataGrid1.Columns(5) > Date Then MsgBox "Fecha errorea"
    Else
'       .. lo que sea
    End If
End Sub