Access - Comprobar si un equipo esta dentro del periodo de garantía de reparación.

Private Sub numSerieEq_AfterUpdate()

'Comprueba si el numero de serie del equipo que se graba en la aplicación

'coincide con alguno ya guardado en la BD

'y además han transcurrido < 12 meses desde la última recepción del mismo.

Dim buscar_numSerieEq As String

Dim buscar_coincidencia As String

buscar_numSerieEq = DLookup("[numSerieEq]", "[REPARACIONES]", "numSerieEq = '" & Me.numSerieEq & "'")

buscar_coincidencia = "SELECT numSerieEq FROM REPARACIONES WHERE fechaRecepcion = DateSerial(Year([fechaRecepcion])+1,Month([fechaRecepcion]),Day([fechaRecepcion])>=Date();"

If buscar_numSerieEq And buscar_coincidencia Then

    	MsgBox "ATENCIÓN: Reparación en Garantía.

	Han pasado menos de 12 meses desde la última vez que se envió esta pieza a reparar."

End If

End Sub

Private Sub numSerieEq_BeforeUpdate(Cancel As Integer)

    Dim Crit as String

    Crit = "numSerieEq = """ & Me.numSerieEq & """"

    If DLookUp("NumSerieEq", "ReparacionesÚltimoAño", Crit) Then

        MsgBox "ATENCIÓN: Reparación en Garantía. Han pasado menos de 12 meses" & _

          " desde la última vez que se envió esta pieza a reparar."

    End If

End Sub

SELECT REPARACIONES.numSerieEq INTO GARANTIA

FROM REPARACIONES

WHERE (((DateSerial(Year([fechaRecepcion])+1,Month([fechaRecepcion]),Day([fechaRecepcion])))>=Date()) AND ((REPARACIONES.recepcionado)=True));

Private Sub numSerieEq_BeforeUpdate(Cancel As Integer)

' Comprueba si el numero de serie del equipo que se esta grabando en la aplicación

' coincide con alguno ya guardado en la BD por haber sido recepcionado anteriormente

' y además han transcurrido < 12 meses desde la última fecha de recepción del mismo.

' Para comparar los datos del numSerieEq se consulta a la tabla GARANTIA, que se regenera

' cada vez que se abre la aplicación.

Dim Crit As String

Dim titulo As String

Dim mensaje As String

titulo = "ATENCION: REPARACION EN GARANTIA."

mensaje = "HAN PASADO MENOS DE 12 MESES" & _

          " DESDE LA ULTIMA VEZ QUE SE ENVIO" & _

          " ESTA PIEZA A REPARAR."

Crit = "numSerieEq = """ & Me.numSerieEq & """"

If DLookup("numSerieEq", "GARANTIA", Crit) Then

    MsgBox mensaje, vbExclamation + vbOKOnly, titulo

End If

End Sub