Datumcontrole

Status
Niet open voor verdere reacties.

Bas1980

Gebruiker
Lid geworden
15 dec 2013
Berichten
64
De volgende code komt bij mij in vba voor. Deze code moet inprincipe controleren of er een datum van 1 van de cursussen van een medewerker is verlopen. Ik heb dus een tabel met 400 medewerkers en ieder hebben ze 6 cursussen met een einddatum. Indien de einddatum is verlopen en ik leen in de uitleensectie een sleutel uit aan een persoon, dus ik selecteer zijn naam, moet acces automatisch de datums van zijn of haar cursussen controleren. Indien alles goed is gebeurt er niets en kun je gewoon de sleutel uitlenen. Indien er iets verlopen is moet acces dit doormiddel van een msgbox laten zien om vervolgens, wanneer je op ok klikt, een popup scherm krijgt te zien waarin de persoon en de cursussen vermeld staan. De verlopen cursussen zijn dan rood.

Echter krijg ik op de regel If Poortvideo < Now() de foutmelding: Kan veld | niet vinden. Vervolgens pas ik weer wat aan maar dit mag niet helpen.
Heb Poortvideo al op meerdere manieren geprobeerd. "Poortvideo", [Poortvideo] maar het helpt niet. Met onderstaande code controleert acces niets en geeft vervolgens direct een msgbox. Ook al is er niets aan de hand.

Wie kan me helpen?


Private Sub Uitgegeven_aan_AfterUpdate()
Dim Uitgeleend_aan As String
Uitgeleend_aan = Uitgegeven_aan.Value
'SELECT [Medewerkers en cursussen].Naam, [Medewerkers en cursussen].Firma, [Medewerkers en cursussen].[PSL nummer], [Medewerkers en cursussen].Poortvideo, [Medewerkers en cursussen].[Locatie presentatie], [Medewerkers en cursussen].Kwik, [Medewerkers en cursussen].[Vca / Vca-vol], [Medewerkers en cursussen].Werkvergunning, [Medewerkers en cursussen].Nogepa, [Medewerkers en cursussen].[Life saving rules]
'FROM [Medewerkers en cursussen]
'WHERE ((([Medewerkers en cursussen].Poortvideo) < Now() Or ([Medewerkers en cursussen].Poortvideo) Is Null)) Or ((([Medewerkers en cursussen].[Locatie presentatie]) < Now() Or ([Medewerkers en cursussen].[Locatie presentatie]) Is Null)) Or ((([Medewerkers en cursussen].Kwik) < Now() Or ([Medewerkers en cursussen].Kwik) Is Null)) Or ((([Medewerkers en cursussen].[Vca / Vca-vol]) < Now() Or ([Medewerkers en cursussen].[Vca / Vca-vol]) Is Null)) Or ((([Medewerkers en cursussen].Werkvergunning) < Now())) Or ((([Medewerkers en cursussen].Nogepa) < Now())) Or ((([Medewerkers en cursussen].[Life saving rules]) = False))
'ORDER BY [Medewerkers en cursussen].Naam;
If Poortvideo < Now() Then
MsgBox ("Datum van PSL is verlopen")
End If
End Sub






Groetjes,

Bas
 
Je kunt eens beginnen met de code op te maken met de CODE knop; dan ziet hij er een stuk leesbaarder uit. Overigens zit er een query code in waar je niks mee doet...
 
Laatst bewerkt:
Wat is poortvideo? waar komt dat vandaan?

Als het van je form af komt, probeer eens Me.Portvideo

Ben het overigens met Michel eens, code tags (# knopje in het post menu) en opmaak van je code
 
ALs Poortvideo het niet doet, zal Me.Poortvideo het denk ik ook niet doen. Maar proberen kan nooit kwaad natuurlijk. Zelf denk ik dat Poortvideo geen (correct) datumveld is.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan