Ik zal het even verduidelijken met behulp van dit plaatje.
Je selecteerd eerst de klant, dan voer je de aankomst datum en de vertrekdatum in.
Zodra je de vertrekdatum hebt ingevuld moet acces gaan zoeken welke standplaatsen (het is een camping) er beschikbaar zijn.
Ik wilde dit oplossen door de tabel Klant_reserveringen en Standplaatsen aan te roepen, en dan alle gereserveerde standplaatsen in die periode er uit te filteren (dus een gast wil een stand plaats van 12-06-2006 tot en met 19-06-2006, standplaats 1 is bezet van 10-06-2006 tot en met 15-06-2006, dan mag hij standplaats 1 NIET tonen).
Dit probeer ik via de volgende code te doen:
Maar als ik nu een nieuwe reservering wil maken in een bepaalde periode, dan laat access niks zien bij standplaatsen, terwijl er in desbetrefende periode standplaatsen vrij zijn.
Ik heb verschillende sites afgezocht en met behulp van een eerder topic, en andere sites, heb ik de bovenstaande code in elkaar gedraaid.
Klant_reserveringen en Standplaatsen zijn aan elkaar gelinkt, dit is een een-op-veel relatie. (standplaatsen -> Klantreserveringen).
Waarom laat acces niet de vrije standplaatsen zien?
Alvast bedankt

Je selecteerd eerst de klant, dan voer je de aankomst datum en de vertrekdatum in.
Zodra je de vertrekdatum hebt ingevuld moet acces gaan zoeken welke standplaatsen (het is een camping) er beschikbaar zijn.
Ik wilde dit oplossen door de tabel Klant_reserveringen en Standplaatsen aan te roepen, en dan alle gereserveerde standplaatsen in die periode er uit te filteren (dus een gast wil een stand plaats van 12-06-2006 tot en met 19-06-2006, standplaats 1 is bezet van 10-06-2006 tot en met 15-06-2006, dan mag hij standplaats 1 NIET tonen).
Dit probeer ik via de volgende code te doen:
Code:
Private Sub Vertrek_datum_AfterUpdate()
Me.SID.RowSource = "SELECT [Standplaatsen].[SID], [Klant_reserveringen].[Aankomst_datum], [Klant_reserveringen].[Vertrek_datum], [Klant_reserveringen].[SID] " & _
"FROM Klant_reserveringen, Standplaatsen " & _
"WHERE (NOT BETWEEN [Aankomst_datum] = [Klant_reserveringen].[Aankomst_datum] AND [Vertrek_datum]=[Klant_reserveringen].[Vertrek_datum]) AND NOT [Standplaats].[SID] = [Klant_reserveringen].[SID]"
Me.SID = Me.SID.ItemData(0)
End Sub
Maar als ik nu een nieuwe reservering wil maken in een bepaalde periode, dan laat access niks zien bij standplaatsen, terwijl er in desbetrefende periode standplaatsen vrij zijn.
Ik heb verschillende sites afgezocht en met behulp van een eerder topic, en andere sites, heb ik de bovenstaande code in elkaar gedraaid.
Klant_reserveringen en Standplaatsen zijn aan elkaar gelinkt, dit is een een-op-veel relatie. (standplaatsen -> Klantreserveringen).
Waarom laat acces niet de vrije standplaatsen zien?
Alvast bedankt
Laatst bewerkt: