Alertas en Access 2003
Quiero hacer una base de datos con alertas. Sera una Base de datos de contratación de servicios, es decir mi área necesita contratar 20 servicios, y cada servicio tiene un mes especifico que se va a realizar.
Ejemplo: (1)Servicio de digitalización, (02) Servicio de limpieza y (03)Servicio de Mantenimiento, con fechas de inicio de servicio Marzo, Junio y Marzo respectivamente.
Quiero que al abrir el formulario digamos "Servicios", me mande una alerta 5 días antes de que se inicie el servicio, es decir me arroje un listado de todos lo servicios que se van a iniciar en ese mes.
En este ejemplo al abrir el formulario "servicios", me arrojara automáticamente 5 días antes el listado del servicio (1) y (3), puesto que los dos empiezan en marzo, osea el 25 de febrero mas o menos me tiene que mandar esta alerta.
Espero me entiendan, por favor si me pueden ayudar estaría muy agradecido
4 Respuestas
Supondré que tienes una tabla "TServicios", con un campo numérico "MesInicio" en el que guardas el número del mes en que se inicia el servicio (01,02,...), y un campo de texto "Servicio".
Abre tu formulario "Servicios" en vista diseño, saca sus propiedades y vete a la pestaña "Eventos". Localiza el evento "Al abrir" y pulsa en el botón de los 3 puntos que aparece a la derecha de esa fila. En la ventana emergente selecciona "Generador de código"
Se te abrirá el editor de VBA, y en él escribes este código:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo sol_err
Dim rst As DAO.Recordset
Dim vMes As Integer
Dim elMsg As String
Dim elInicio As String
Const DiasAviso As Integer=5
vMes = Month(Date)
elInicio = "Los siguientes servicios se inician en " & MonthName(vMes + 1) & ":" & vbCrLf
Set rst = CurrentDb.OpenRecordset("TServicios", dbOpenSnapshot)
If rst.RecordCount = 0 Then GoTo salida
rst.MoveFirst
Do Until rst.EOF
If vMes < 12 Then
If rst("MesInicio") = vMes + 1 Then
If Date = CDate("01/" & rst("MesInicio") & "/" & Year(Date)) - DiasAviso Then
elMsg = elMsg & rst("Servicio") & vbCrLf
End If
End If
Else
If rst("MesInicio") = 1 Then
If Date = CDate("01/" & rst("MesInicio") & "/" & Year(Date) + 1) - DiasAviso Then
elMsg = rst("Servicio") & vbCrLf
End If
End If
End If
rst.MoveNext
Loop
If Len(elMsg) > 0 Then
elMsg = elInicio & elMsg
MsgBox elMsg
End If
salida:
rst.Close
Set rst = Nothing
sol_err:
Exit Sub
End SubCon esto cada vez que abras el formulario Servicios te avisará si hoy es 5 días antes del mes siguiente y si hay servicios que inicien ese mes.
Si quieres que el aviso salga con otra antelación, puedes cambiar el valor de la constante Const DiasAviso As Integer=5, por el que prefieras.
Si prefieres que el aviso te salga todos los 25 de cada mes, cambia esto:
If Date = CDate("01/" & rst("MesInicio") & "/" & Year(Date)) - DiasAviso Then
por esto:
If Date = CDate("25/" & rst("MesInicio") & "/" & Year(Date)) Then
y esto:
If Date = CDate("01/" & rst("MesInicio") & "/" & Year(Date) + 1) - DiasAviso
por esto otro:
If Date = CDate("25/" & rst("MesInicio") & "/" & Year(Date) + 1) - DiasAviso
En realidad quieres hacer un proyecto completo, avisame si sigues interesado
Nunca he trabajado con alertas, pero he encontrado esto que a lo mejor te sirve:
Por lo que entiendo, es parecido a tu problema, ¿no?
Dime si te funciona!
Mi estimado, esta pagina dice que ya ha sido removida, favor no tendras otro link.
gracias.
Un saludo.</div></div><div class="clear" style="clear: both;"> </div></div><div class="Message AlternatingMessage" style="border-bottom-width: 0px; border-bottom-style: initial; border-bottom-color: initial; padding-top: 10px; padding-bottom: 10px; line-height: 17px;"><div class="UserIcon" style="float: left; padding-top: 0px; padding-right: 5px; padding-bottom: 5px; padding-left: 5px; text-align: center; width: 60px;"><div class="user-icon expert-icon-nophoto" style="width: 48px; height: 48px; display: block; background-image: url('http://cdn1.todoexpertos.com/content/images/userphoto/1_respuesta.png'); background-position: 2px 2px; background-repeat: no-repeat no-repeat; border-width: 1px !important; border-color: #a6a6a6 !important; border-style: solid !important; padding: 2px;" title="Experto carruina respondiendo en Microsoft Access"> </div><div>Experto</div></div><div class="MessageTextContainer" style="border-left-width: 1px; border-left-style: solid; border-left-color: #dddddd; float: left; width: 555px; word-wrap: break-word; min-height: 82px; background-color: #f5f8fa;"><div class="MessageText" style="color: #666666; padding-top: 4px !important; padding-right: 10px !important; padding-bottom: 10px !important; padding-left: 4px !important; height: auto !important; line-height: 20px; font-size: 14px;">Hola
Puedes ejecutar un formulario basado en una consulta al inicio de la Base de Datos
1.- Crea una consulta con los contratos que van a caducar
Si FinCOntrato contiene la fecha de fin del contrato esta condición te mostrará todos los contratos que van a finalizar en 7 días
[finContrato]-Fecha() <=7
2.- Crea un formulario basado en la consulta anterior
3.- Asocia este Formulario al inicio de la base de datos
Menu Herramientas->Inicio... En Mostrar Formulario/Pagina Selecciona el nuevo formulario
Cada vez que abras la Base de Datos te aparecerán los contratos que van a finalizar en una semana.
Por supuesto cada vez que abras el Formulario o la consulta también
</div></div></div>
voy a probarlo ..
gracias
¿Funcionó?
Puedes hacer que se abra una consulta siempre que abras ese formulario, o al abrir la base de datos.
Si tienes guardada la fecha como texto te aconsejaría cambiarla a tipo fecha, ya que te facilitara el colocar una formula que indique tan solo 30 días de adelanto a los eventos que van a suceder con una formula de diferencia de fechas con Ahora() > o < a 30 por ejemplo.
Ademas de esta manera puedes vincular el valor de 30 a alguno que introduzcas en una celda en un formulario y variarlo cómodamente.
La idea seria que el modificases los eventos al abrir la base de datos o un formulario para que al activarse abriese de igual forma la consulta o un informe basado en esa consulta.
Perdona la tardanza comentame si te sirvió para algo y si necesitas mas aclaraciones.
me gustaría enviarte el modelo de mi base de datos, si me enviaras tu correo y te envío el modelo de mi bd, seria mejor y me entenderías mejor
Muchas gracias
Perdona la tardanza, estaba de viaje y no pude modificar mi estado. No se si lo habrás resulto ya.
Tengo access 07 y seguramente variasen los comandos y funciones, así que es posible que te diese fallos si la modifico.
Si quieres contactar conmigo para el email hazlo por mensaje privado.