06/12/2005, 09:13
|
 | | | Fecha de Ingreso: noviembre-2004 Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 19 años, 6 meses Puntos: 6 | |
| var = text1.text
If VAR <> "" Then
Socio.RecordSource = "select * from tabla where campo like '" & VAR & "%'"
Socio.Refresh
'si no hay registros encontrados
If Socio.Recordset.EOF Then
MsgBox "No se encontraron resultados", vbOKOnly, "Error"
Socio.RecordSource = "select * from tabla"
End If
End If
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA |