[access]

[Verwijderd]

Ik ben bezig om in access een soort logboek te maken. Ik heb de volgende tabellen met de volgende relaties:


Ik wil een output hebben als volgt:

Dagelijks:
1
2
3
Overig:
1
2
3
Problemen:
1
2
3
etc.

Het probleem is dat als ik bijvoorbeeld bij overig 2 items heb staan en bij dagelijks 1 dan krijg ik dagelijks 2x te zien en niet in een lijst zoals ik nu krijg:
Dagelijks
1
2
Overig
1
1

Ik moet dus eigenlijk groeperen per jaar, week en daarna per categorie. Maar kan bij rapporten maximaal per 4 groeperen.
Hoe kan ik dit oplossen?? Ik hoop dat ik duidelijk genoeg ben.

[gorgi_19]

Neem een ander datamodel.

[logboeken]
LogboekID
naam
omschrijving

[inhoud]
InhoudID
LogboekID
Datum
inhoud

Vervolgens wordt je query een stuk eenvoudiger om te maken.

[ Voor 27% gewijzigd door gorgi_19 op 26-11-2003 09:43 ]

[Verwijderd]

Perfect, dat werkt idd een stuk beter.
Nog een klein vraagje waar ik niet uitkom, ik wil weeknr en jaar automatisch laten invullen in het invulveld op het formulier.
Maar ik kom er niet uit hoe ik dit moet doen.

[gorgi_19]

Gewoon in de tabel als default waarde van Datum now() neerzetten; komt het ook goed en zit je niet met formulieren te knoeien.

[Boss]

Of gebruik de funties Year(Now()) en Week(Now()).

offtopic:
goede topic titel btw

[Witte]

Maak een module en noem die 'datumfuncties', daar heb je altijd wat aan.

code:

Option Compare Database
Option Explicit

Public Function dagnummer(datum As Date) As Byte
  dagnummer = Val(Format(datum, "dd"))
End Function

Public Function dagnaam(datum As Date) As String
  dagnaam = Format(datum, "dddd")
End Function

Public Function weeknummer(datum As Date) As Byte
  weeknummer = Val(Format(datum, "ww", vbMonday, vbFirstFourDays))
End Function

Public Function maandnummer(datum As Date) As Byte
  maandnummer = Val(Format(datum, "mm"))
End Function

Public Function maandnaam(datum As Date) As String
  maandnaam = Format(datum, "mmmm")
End Function

Public Function periode(datum As Date) As Byte
  If weeknummer(datum) > 52 Then
    periode = 13
  Else
    periode = Int((weeknummer(datum) + 3) / 4)
  End If
End Function

Public Function jaartal(datum As Date) As Integer
  jaartal = Val(Format(datum, "yyyy"))
End Function

[SH007]

Maurice_: je bent zo te zien je topictitel vergeten af te maken. Zou je even een goede topictitel willen bedenken en deze dan willen doorgeven door middel van topicreport ()?