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

   
Vista:

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

Publicado por Juan (3 intervenciones) el 03/04/2014 22:35:47
Hola
Tengo una base de datos de menus por fecha.
Necesito sacarlos por meses, y ordenador por semanas.

Lunes - Martes - Miércoles - Jueves - viernes - Sábado - Domingo
____________________________________________________________________________________
01/01/14 02/01/14 03/01/14 04/01/14 05/01/14
Lentejas Patatas Sopa Fideos Pollo Asado Paella
____________________________________________________________________________________
06/01/14 07/01/14 08/01/14 09/01/14 10/01/14 11/01/14 12/01/14
Espaguetis Migas Arroz Cubana Cocido Judias Verdes Calamares Canelones
____________________________________________________________________________________
.......

Estilo calendario.

Como lo puedo hacer estoy perdido
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

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

Publicado por 2pl (461 intervenciones) el 04/04/2014 21:19:39
esto en un formulario

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

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

Publicado por Juan (3 intervenciones) el 07/04/2014 22:48:25
GRACIAS 2pl por tu aportación. Me puede servir, aunque me hace falta algo mas.
Voy a intentar explicar lo que necesito otra vez

Tengo una BD con los menús de un año, Plato1º, Plato2º, Postre.
Hasta ahora generaba un informe donde me listaba en cada hoja una semana completa,

Lunes x/x/2014
menú
Martes x/x/2014
menú
Miercoles x/x/2014
menú
Jueves x/x/2014
menú
"
Y así...... Listados uno debajo del otro hasta el domingo.

Pero ahora necesito imprimirlos en una tabla de siete columnas, una para cada día de la semana(L,M,X,J,V,S;D) y filas según semanas tenga el mes.
En cada celda de la tabla debe aparecer fecha y el menú de ese día(1Plato,2Plato,Postre Cena,etc).
Dejara los en blanco las celdas de los primeros días de la primera semana y los últimos de la ultima semana que correspondan a otro mes.

Es que con estos datos, en access, imprimo varios listados

Menú semanal con cenas
Menú semanal sin cenas
Menú diario
Menú semanal de Cenas

Todos los hago con informe de Access.Y ahora quiero hacer:

Menú mensual sin cenas
Menú mensual con cenas

Bueno estoy abierto a cualquier sugerencia. GRACIAS por escucharme y ayudarme
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar