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
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