Mensaje de aviso
Antes de nada darte las gracias por adelantado, tengo la siguiente consulta:
Resulta que tengo un campo fecha en un formulario y deseo que 30 días antes de que se cumpla esa fecha me salte un mensaje avisando de que se cumple la fecha.
La pregunta como se programa ese mensaje, tengo algo de idea de access y visual, pero no consigo solucionar este apartado.
Un saludo
Resulta que tengo un campo fecha en un formulario y deseo que 30 días antes de que se cumpla esa fecha me salte un mensaje avisando de que se cumple la fecha.
La pregunta como se programa ese mensaje, tengo algo de idea de access y visual, pero no consigo solucionar este apartado.
Un saludo
2 Respuestas
Respuesta de Mario Noriel Athanasiadis Ortiz
1
Primero
Campo_fecha: contiene la fecha de referencia
segundo:
Codigo de VB:
Public Sub calcular()
Dim varfecha As Date, varrespuesta As Integer
If IsNull(Me.fecha) Then
Exit Sub
Else
varfecha = Now
varfecha = Format(Date)
varrespuesta = DateDiff("d", Me.fecha, varfecha)
If varrespuesta >= 30 Then
MsgBox "usted a llegado o pasado el limite de tiempo"
End If
End If
End Sub
Campo_fecha: contiene la fecha de referencia
segundo:
Codigo de VB:
Public Sub calcular()
Dim varfecha As Date, varrespuesta As Integer
If IsNull(Me.fecha) Then
Exit Sub
Else
varfecha = Now
varfecha = Format(Date)
varrespuesta = DateDiff("d", Me.fecha, varfecha)
If varrespuesta >= 30 Then
MsgBox "usted a llegado o pasado el limite de tiempo"
End If
End If
End Sub
Respuesta de smanero
1
Lo mejor es que te hagas un informe, en este informe que te seleccione los registros cuya fecha sea 30 días anterior, o mejor, que este entre 20 y 30 días por ejemplo. Para ello hay una consulta sobre la tabla o consulta que basas el formulario poniendo en 'criterios' :
Entre fecha()-30 y fecha-20
Entre fecha()-30 y fecha-20