Como ejecutar consulta de actualización automáticamente
¿Se podría hacer que se ejecutara automáticamente una consulta de actualización cada fin de mes?
1 respuesta
Supongamos que siempre abres el mismo formulario y tienes un campo llamado fecha y que la consulta de actualización se llama Consulta2. En las propiedades del formulario, Eventos-Al cargar, crea un procedimiento de evento y entre Private Sub y End sub escribe
DoCmd.SetWarnings False
Select Case Month([Fecha])
Case 1, 3, 5, 7, 9, 11, 12
If Day([Fecha]) = 31 Then
DoCmd.OpenQuery "consulta2"
End If
Case 4, 6, 8, 10
If Day([Fecha]) = 30 Then
DoCmd.OpenQuery "consulta2"
End If
Case Else
DoCmd.OpenQuery "consulta2"
End Select
Revisa los meses, porque ahora mismo no me acuerdo cuales son los que tiene 31 o 30 días
Así, si el día 31 de Enero abres este formulario, automáticamente se ejecutará la consulta sin que te aparezca lo de "Va a actualizar x registros..."
Un saudo
También puedes poner en el evento Antes de actualizar de un cuadro de texto del formulario
If Form.Recordset.RecordCount = 4 Then
Dim respuesta As Integer
respuesta = MsgBox("Has llegado al máximo", vbOKCancel, "Aviso")
If respuesta = vbOK Then
DoCmd.RunSQL "delete * from copia where idcontacto=dfirst(""idcontacto"",""copia"")"
ElseIf respuesta = vbCancel Then
docmd.CancelEvent
End If
End If
Así, cuando vayas a añadir un nuevo registro, en este caso el 5, te advertirá que ya has completado el cupo. Si pulsas Aceptar, te borra el registro primero. Si pulsas cancelar, pues... nada
