Access; vinkjes tellen en laten zien in formulier

[Marabunta]

Goedendag,

k heb een tabel met meerdere records erin.

Sommige records hebben een vinkje aanstaan in een kolom.

Deze kolom heet September en is om te zien of iemand aanwezig is geweest in een bepaalde maand.

Nu zou ik graag willen zien hoeveel mensen dat in totaal zijn geweest.

Dit wil ik laten zien in het formulier "September"

Welke code moet ik toepassen om het aantal vinkjes op te tellen vanuit de tabel "Leerlingen" en de kolom "September" en dat (real-time) te tonen in het formulier "September"?

Alvast bedankt voor de moeite.

Mvg,

Marabunta.

[stegisoft]

Waarschijnlijk bedoeld je ja/nee

Ja is bij access namelijk -1

om dat te kunnen omzeilen hebt ik dit gedaan zoals in bijlage bij query

db4.rar

[Marabunta]

Heb de Query iets aangepast en die werkt nu.

Ik heb nu 2 kolommen in beeld.

"Som Van September"en "September"

Hoe krijg ik nu het resultaat van September in het formulier?

Het formulier wordt wel iedere keer ge-update.

Het is namelijk een database voor een kinderdisco.

Alle kinderen hebben een code die wij invoeren in het systeem( m.b.v. barcode's)

Die code wordt ingevuld in het formulier en daar worden de gegevens, in de tabel, opgezocht een weer gegeven.

Het is bij ons van belang om te kijken hoeveel kinderen er binnen zijn.

Hieronder een code die er al instaat in VBA:

Private Sub Fotonummer_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.Requery
Foto.Picture = "c:\Foto disco\" & fotonr
DoCmd.RunSQL "UPDATE Leerlingen SET September = True where Id = Fotonummer"
DoCmd.Beep
DoCmd.GoToControl "fotonummer"
Fotonummer = ""
DoCmd.SetWarnings True
End Sub

De "RunSQL" zorgt ervoor dat automatisch het vinkje wordt aangevinkt.

Dus nu alleen nog het resultaat van de Query weergeven in het formulier.

Nogmaals bedankt!

Mvg,

Marabunta

[Marabunta]

Weet iemand het antwoord hierop?

[stegisoft]

Zodra alles in ingevuld kan je bij eigenschappen na bijwerken dit doen:

DoCmd.Echo False

DoCmd.Close , , acSaveYes

DoCmd.OpenForm "Naam van formulier"

DoCmd.Echo True

DoCmd.GoToRecord , , acLast

Dat wilt zeggen dat het moet sluiten maar in werkelijk ziet je dat nauwelijks vanwege de principe van docmd.echo

Door echo blijft de formulier staan maar verandert het.

6 januari 2011 aangepast door stegisoft