26/10/2008, 01:49
|
| | Fecha de Ingreso: octubre-2008
Mensajes: 4
Antigüedad: 16 años, 1 mes Puntos: 0 | |
Respuesta: agrandar ventanas de aviso en access mira yo lo hice asi con una macro en modulos:
Function cadaseisautopuerta()
Dim rst As DAO.Recordset 'Declaro un recordset Dao
Dim strSql As String 'Declaro la variable para la consulta
strSql = "SELECT IdCliente, fechaservicio FROM autopuertas" 'selecciono los campos de la tabla
Set rst = CurrentDb.OpenRecordset(strSql, dbOpenDynaset) 'Abro el recordset
If rst.EOF = False Then 'Si el recordset devuelve registros...
rst.MoveLast
rst.MoveFirst
Do Until rst.EOF 'Recorremos los registros devueltos
If rst!fechaservicio = Date Then ' Si la fecha coincide con la de hoy entonces...
MsgBox rst!IdCliente, vbInformation, "AUTOPUERTAS" '...que muestre un mensaje con el texto de la cita
End If
rst.MoveNext 'que se mueva al siguiente...
Loop '...y vuelta a empezar
End If
rst.Close 'que cierre el recordset
End Function
pero yo kiero que me tire el nombre del cliente y no su numero que le toca autonumericamente no se si me estoy explicando.
saludos y espero que si me entiendas ahora sino pues tratare de explicarlo lo mejor que pueda |