Access - Mostrar los datos, de un mes, semana a semana. Estilo calendario

Private Sub NSemana_AfterUpdate()

Dim campo As Date

campo = PrimerDiaSemanaN(Me.NSemana)

Me.primerdia = campo

Me.ultimodia = campo + 6

Me.dia1 = Format(campo, "dddd")

Me.dia2 = Format(campo + 6, "dddd")

End Sub

'=================================

'Funcion de Eduardo Olaz para, metiendo el numero de la semana

'natural del año, nos de el día de inicio de la semana y el día de fin

Public Function PrimerDiaSemanaN(ByVal Semana As Long, Optional ByVal Año As Long = -1) As Date

   '************************************

   'Esta función devuelve el primer día de un Nº de semana de un año

   'El año es opcional Si no se introduce toma el año actual

   'Considera semana Nº 1 la 1ª con cuatro días en el año

   '  (Constante vbFirstFourDays)

   'El primer día de la semana es Lunes (Constante vbMonday)

   ' © Eduardo Olaz - Enero de 2001

   '************************************

   Dim datLunesSemana1 As Date

   Dim datLunesTemporal As Date

   Dim lngSemana As Long

   Dim lngAñoTemporal As Long

   Dim lngDiaSemana As Long

   'Si no se ha introducido año toma el actual

   If Año = -1 Then

      Año = Year(Date)

   End If

   If Semana < 1 Or Semana > 53 Then

      Exit Function

   End If

   datLunesSemana1 = CDate("1/1/" & CStr(Año))

   lngSemana = DatePart("ww", datLunesSemana1, vbSaturday, vbFirstFourDays)

   lngDiaSemana = DatePart("w", datLunesSemana1, vbSaturday)

   If lngSemana > 1 Then

      datLunesSemana1 = datLunesSemana1 + 8 - lngDiaSemana

   Else

      datLunesSemana1 = datLunesSemana1 + 1 - lngDiaSemana

   End If

   datLunesTemporal = datLunesSemana1 + 7 * (Semana - 1)

   lngAñoTemporal = Year(datLunesTemporal)

   'Comprueba (Semana 53) si el año es el solicitado

   If lngAñoTemporal > Año Then

      Exit Function

   Else

      PrimerDiaSemanaN = datLunesTemporal

   End If

End Function