[Access] VBA functie op datum

[maomanna]

Beste tweakers,

Inmiddels heb ik wel wat ervaring van MS Access, maar dat blijft bij de "normale" zaken. Van VBA geen idee.

Momenteel ben ik bezig om een database te maken ter controle of een personeelsdossier compleet is.
De basisfuncties werken prima. Maar is nog wat statisch en geeft een beperking.

Ik heb een aantal tabellen te weten:
- Werknemers (alle werknemers)
- Eisenlijst (Documenten die in het dossier zitten)
- tblVerplicht (tabel met functies en bijhorende documenten die in het dossier moeten zitten) (Booleans)

Met een code die ik gekregen heb, werkt het prima en krijg ik inzicht in hoeveel dossiers gecontroleerd zijn, en welke documenten per werknemer ontbreken.

Wat ik nu wil is, dat als de directie besluit dat vanaf bijv 1 september 2014 voor nieuwe medewerkers een document verplicht is, zonder terugwerkende kracht.
Dit document kan ik niet toevoegen aan de tblVerplicht.

Ik weet niet of het mogelijk is om een nieuwe tabel tblAanvullend te maken, waar in staat dat:
- functie X
- ingangsdatum
- einddatum
- document (boolean)

Bij de query moet hij in Werknemers kijken of de datum indienst >= als ingangsdatum in tblAanvullend daar het aanvullend document meeneemt in de algemene vergelijking.

Een voorbeeldje heb ik toegevoegd in deze *snip*

Heeft iemand een idee/aanwijzing hoe ik dit het beste kan aanpakken?

[ Voor 1% gewijzigd door RobIII op 01-07-2014 11:21 ]

[RobIII]

Kan iemand even...?
Post a.u.b. relevante code (tussen code tags) en alle andere (relevante(!)) informatie gewoon in je topic. Als je een rar/zip/whatever post en iemand stuit over 2 jaar op dit topic die mogelijk ook geholpen is met een eventuele oplossing die jij hier vindt ontbreekt de helft omdat de rar/zip/whatevs niet (meer) online staat o.i.d. Niet heel erg handig en frustrerend voor die toekomstige (be)zoeker

Als je nu nog even je topic aanvult met de ontbrekende informatie én met wat je zelf al hebt bedacht/geprobeerd (zie onze Quickstart) dan komt 't helemaal goed

[ Voor 28% gewijzigd door RobIII op 01-07-2014 11:25 ]

[maomanna]

*Aanvulling nav MOD*

De huidige code die de vergelijking maakt is:

code:

Public Function Compleetdeel1(lijstChecklist As Boolean, vpChecklist As Boolean, lijstScreening As Boolean, vpScreening As Boolean, lijstBig As Boolean, vpBig As Boolean, lijstHerBig As Boolean, vpHerBig As Boolean, lijstSRC As Boolean, vpSRC As Boolean, lijstHerSRC As Boolean, vpHerSRC As Boolean, lijstVOG As Boolean, vpVOG As Boolean) As Boolean
    Compleetdeel1 = (Not vpChecklist Or lijstChecklist) And (Not vpScreening Or lijstScreening) And (Not vpBig Or lijstBig) And (Not vpSRC Or lijstSRC) And (Not vpVOG Or lijstVOG)
End Function

Deze functie staat vervolgens in een Query die de resultaten uitspuugt.

Wat ik verder zelf al heb gedaan is het nadenken over.

Andere opties zijn:
- Een nieuwe database per wijziging
- Een nieuwe tabel en query per wijziging

Verder is mijn vraag geen MueR in "Devschuur® Beleid" maar eerder sparren en meedenken over een oplossing.

[Xanland]

Hoe ik het zo bekijk zijn je "Andere opties" die je beschrijf in je post hierboven niet echt opties. Bij een goed genormaliseerde database zou je dat niet nodig hebben en daarna zou je het nog steeds niet willen.

Wat je in je eerste post zegt over tblAanvullend (waarom die vreemde prefix...?) is naar mijn inziens wel het meest logisch. Die tabel zou je dan moeten joinen vanuit je select-query.

[farlane]

Probeer je databasemodel zo te (ver)bouwen dat je per soort document een record er bij krijgt en niet een kolom, wat je eigenlijk met je eigen voorstel doet; wat dat betreft lijkt die tblVerplicht een redelijke fuckup.

[maomanna]

Xanland schreef op donderdag 03 juli 2014 @ 23:04:
Hoe ik het zo bekijk zijn je "Andere opties" die je beschrijf in je post hierboven niet echt opties. Bij een goed genormaliseerde database zou je dat niet nodig hebben en daarna zou je het nog steeds niet willen.

Wat je in je eerste post zegt over tblAanvullend (waarom die vreemde prefix...?) is naar mijn inziens wel het meest logisch. Die tabel zou je dan moeten joinen vanuit je select-query.

Die prefix komt vanuit de opbouw. Elke tabel begint met tbl en de query's zijn mer Q, formulieren met frm en Rapporten met r.

Voor aanvullende documenten bij een functie, klopt het wat je zegt.
Alleen moeten die mee met de vergelijking, dus als de datum in dienst is na een bepaalde datum, dat hij dan wel meegenomen moet worden.

Na zoeken op internet zou in gedachte een IIF-code het moeten doen, maar dat schijnt niet te werken.

farlane schreef op donderdag 03 juli 2014 @ 23:36:
Probeer je databasemodel zo te (ver)bouwen dat je per soort document een record er bij krijgt en niet een kolom, wat je eigenlijk met je eigen voorstel doet; wat dat betreft lijkt die tblVerplicht een redelijke fuckup.

Als ik het goed begrijp, zou de informatie iets moeten zijn als:

Naam	Ontbrekende stukken
Piet	document2, document3
Klaas	document1, document2

Wat ik nu heb, is:

Ontbrekend

Naam	Document 1	Document 2	Document 3
Piet		X	X
Klaas	X	X

Het is inderdaad dat die tblVerplicht behoorlijk statisch is. Indien iets met terugwerkende kracht is, is het geen probleem. Dan kan ik daar vinkjes aan/uit zetten en de vergelijking gebeurd zoals is gebouwd.

[ Voor 8% gewijzigd door maomanna op 04-07-2014 10:04 ]

[maomanna]

Naar aanleiding van het bovenstaande heb ik nu een aantal testtabellen gemaakt.

1. Tabel tblEisnaam (lijst met documenten)

EisnaamID	Eisnaam
1	ID bewijs
2	Diploma

2. Tabel tblFunctie (Functies)

iFunctieID	Functiecode	Functienaam
1	1001	Poetser

3. Tabel tblFunctieEis (vereiste documenten per functie)

iFunctieEisID	iFunctieID	iEisnaamID	datumStart	datumEind
1	1	1	01-01-2015
2	1	2

4. Tabel Werknemer (tabel met werknemers)

iWerknemerID	persnummer	achternaam	iFunctieID	indienst
1	2009	Testpersoon	1	01-01-2014

5. Tabel tblRegistratieEis (Wat er aanwezig is in dossier)

iRegistratieID	iWerknemerID	iEisnaamID
1	1	2

In tussen tijd heb ik wel nagedacht over het hele verhaal, maar heb eigenlijk geen idee waar ik nu naar moet zoeken om de vergelijking te maken.
Uiteindelijk wil ik hier een Query van, waar uit komt dat voor Werknemer met ID 1 in dit voorbeeld document 4 ontbreekt.
van VBA heb ik geen kaas gegeten, maar vermoed dat het wel die kant op moet gaan. als ik weet welke kant ik op moet zoeken, kan ik hier verder naar zoeken.

Het hoeft niet geprogrammeerd te worden, dat vraag ik niet, alleen meedenken hoe ik dit het beste kan regelen/maken.

[farlane]

- Schrijf een query die voor de functie van de werknemer de vereiste documenten ophaalt
- Schrijf een query die voor de werknemer de aanwezige documenten ophaalt
- Combineer deze tot een query die voor de werknemer de documenten ophaalt die *niet* aanwezig zijn.

Uiteindelijk zul je hiervoor weinig VBA nodig hebben denk ik, het design is iig heel wat beter georganiseerd.

[maomanna]

en hoe ga ik dat dan doen met de datumvoorwaarde? die meenemen bij de eerste query?

[farlane]

maomanna schreef op maandag 11 augustus 2014 @ 14:47:
en hoe ga ik dat dan doen met de datumvoorwaarde? die meenemen bij de eerste query?

Ja. Misschien dat de "aanwezige documenten" ook een geldigheidsdatum/termijn nodig hebben?

[maomanna]

Nee daar hoef ik gelukkig niet op te letten.

Het gaat mij erom dat ik documenten "aan" en "uit" kan zetten.
Als een iemand besluit dat vanaf datum X document Y verplicht is, en niet daarvoor, moet ik dat wel kunnen toepassen.

Ik ga eens puzzelen met die queries. Thanks alvast!

[maomanna]

farlane schreef op maandag 11 augustus 2014 @ 14:41:
- Schrijf een query die voor de functie van de werknemer de vereiste documenten ophaalt
- Schrijf een query die voor de werknemer de aanwezige documenten ophaalt

Deze twee waren niet zo moeilijk.

- Combineer deze tot een query die voor de werknemer de documenten ophaalt die *niet* aanwezig zijn.
Is een stuk lastiger daar de output niet het gewenste effect heeft.
De output moet komen obv functie. Echter spuugt hij allerlei willekeurige regels uit, ongeacht welke join ik gebruik.

[RobIII]

Post dan de query die je hebt eens... Hoe moeten wij je helpen als je die informatie niet post? We hebben toch geen glazen bol?

[maomanna]

excuses

SQL:

SELECT QRegistratieEisId.ID, QRegistratieEisId.Personeelsnummer, QRegistratieEisId.Achternaam, 
   QRegistratieEisId.Voorvoegsel, QRegistratieEisId.Voorletters, QRegistratieEisId.[Org code], 
   QRegistratieEisId.iBigfunctieID, QRegistratieEisId.Indienst, QRegistratieEisId.iEisnaamId
FROM QFunctieEis
INNER JOIN QRegistratieEisId ON QFunctieEis.iFunctieId = QRegistratieEisId.iBigfunctieID
WHERE ( (QRegistratieEisId.iEisnaamId)= Not[QFunctieEis]![iEisnaamId]);

[ Voor 1% gewijzigd door RobIII op 02-09-2014 14:22 . Reden: Code voorzien van syntax highlighting ([code=sql]) en code leesbaar gemaakt (indenting) ]