Access - Calendario para insertar fechas

Sub ComprobarReferencias()

For i = 1 To Application.VBE.VBProjects("Tu Proyecto VBA").References.Count

    With Application.VBE.VBProjects("Tu Proyecto VBA").References(i)

    If .IsBroken = False Then

        Mensaje ("Referencia compobada ok: " & .Description)

        DoCmd.RunSQL ("INSERT INTO ref_ACCESS & " (Descripcion, NombreReferencia, GuidWin, FullPath, Version, Dll) VALUES " _

            & "('" & .Description & "','" & .Name & "','" & .Guid & "','" & .FullPath & "','" & .Major & "." & .Minor & "','" & _

            UCase(ExtraerNombreReferencia(.FullPath)) & "')")

        'guardamos cada referencia encontrada en la tabla ref_ACCESS para este proyecto, imagina si tienes varios

        'Podrías crear campos adicionales en la tabla para almacenar el proyecto, el equipo donde se verifica, el estado (boleano) y la fecha actual.

    Else

         'Aquí vendría el código para volver a registrar la referencia pues estaba rota XD Que ahora no lo tengo a mano... 

    End If

    End With

Next i

End Sub

Function ExtraerNombreReferencia(stPath As String) As String

Dim i As Integer

For i = Len(stPath) To 1 Step -1

If Mid(stPath, i, 1) = "\" Then Exit For

ExtraerNombreReferencia = Mid(stPath, i, 1) & ExtraerNombreReferencia

Next i

End Function