21/02/2008, 18:48
|
| | | Fecha de Ingreso: enero-2008 Ubicación: Lima - Perú
Mensajes: 1.127
Antigüedad: 17 años, 3 meses Puntos: 10 | |
| Re: Llenar DataGrid con Sentencia SQL
Prueba de esta manera
If .recordcount > 0 Then 'Si encuentra algun registro
Me.datagrid.Refresh
Set Me.datagrid.DataSource = tRs
Else 'Si no encuentra nada es decir el resultado es < 0 envia el mensaje
A = MsgBox("No Existen Registros En Esa Fecha", vbOKOnly + vbInformation, "Registros")
End If |