Vervolg: Subform / Checklist

[Thomassoft]

L.S.

Ik had een topic wat inmiddels is gesloten.
https://www.helpmij.nl/forum/showthread.php/953377-Subfrm-Checklist/page2

Nu heb ik een query gemaakt maar blijf ik een foutmelding krijgen. Iemand een idee?

SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum
DateAdd("d",IIf(Weekday(date(),2)=5,3,1),Date()) AS Controledatum, "Dagelijks" AS Controletype
FROM tblISRA
WHERE Dagelijks=True
 
UNION 
SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum
DateAdd("ww",DateDiff("ww",[Datum],Date())+Abs(Weekday(Date(),2)>=Weekday([Datum],2)),[Datum]) AS ControledatumW, "Wekelijks" AS Controletype
FROM tblISRA
WHERE Week=True
 
UNION 
SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum
DateAdd("m",DateDiff("m",[Datum],Date())+Abs(Format([Datum],"dd")<=Format(Date(),"dd")),[Datum]) AS ControledatumM, "Maandelijks" AS Controletype
FROM tblISRA
WHERE Maand=True
 
UNION SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum
DateAdd("q",DateDiff("q",[Datum],Date())+Abs(DateAdd("q",DateDiff("q",[Datum],Date()),[Datum])<=Date()),[Datum]) AS ControledatumQ, "Kwartaal" AS Controletype
FROM tblISRA
WHERE Kwartaal=True
 
SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum
DateAdd("yyyy",DateDiff("yyyy",[Datum],Date())+Abs(Format([Datum],"mmdd")<=Format(Date(),"mmdd")),[Datum]) AS ControledatumJ, "Jaarlijks" AS Controletype
FROM tblISRA
WHERE Jaar=True
ORDER BY Annex, Maatregelen;

Ik krijg dus foutmelding:

 

[OctaFish]

In alle queries ontbreekt de komma achter het veld [Datum]

 

[OctaFish]

SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum[b][u],[/b][/u]
DateAdd("d",IIf(Weekday(date(),2)=5,3,1),Date()) AS Controledatum, "Dagelijks" AS Controletype
FROM tblISRA WHERE Dagelijks=True

 

[Thomassoft]

Na het toevoegen van de comma's ben ik er nog altijd niet.

SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum,
DateAdd("d",IIf(Weekday(date(),2)=5,3,1),Date()) AS Controledatum, "Dagelijks" AS Controletype
FROM tblISRA
WHERE Dagelijks=True
 
UNION 
SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum,
DateAdd("ww",DateDiff("ww",[Datum],Date())+Abs(Weekday(Date(),2)>=Weekday([Datum],2)),[Datum]) AS ControledatumW, "Wekelijks" AS Controletype
FROM tblISRA
WHERE Week=True
 
UNION 
SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum,
DateAdd("m",DateDiff("m",[Datum],Date())+Abs(Format([Datum],"dd")<=Format(Date(),"dd")),[Datum]) AS ControledatumM, "Maandelijks" AS Controletype
FROM tblISRA
WHERE Maand=True
 
UNION SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum,
DateAdd("q",DateDiff("q",[Datum],Date())+Abs(DateAdd("q",DateDiff("q",[Datum],Date()),[Datum])<=Date()),[Datum]) AS ControledatumQ, "Kwartaal" AS Controletype
FROM tblISRA
WHERE Kwartaal=True
 
SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum,
DateAdd("yyyy",DateDiff("yyyy",[Datum],Date())+Abs(Format([Datum],"mmdd")<=Format(Date(),"mmdd")),[Datum]) AS ControledatumJ, "Jaarlijks" AS Controletype
FROM tblISRA
WHERE Jaar=True
ORDER BY Annex, Maatregelen;

Bekijk bijlage 354121

 

[OctaFish]

Jammer genoeg zie ik de foutmelding niet.

 

[Thomassoft]

Onder het script de link met de bijlage.

 

[OctaFish]

Ja, en die doet het dus niet.

 

[Thomassoft]

Hierbij de afbeelding nogmaals.
Bekijk bijlage 354123

 

[OctaFish]

Je zult hem anders moeten toevoegen, want deze is dus niet te openen.

 

[Thomassoft]

https://imgur.com/PRMNL4E

 

[OctaFish]

Je kan de foto ook als bijlage uploaden, maar beter niet als image. Die knop doet het niet goed. Je plaatje oogt wat onscherp, maar het lijkt erop alsof de fout in de kwartaal query zit. Heb je die al eens apart gedraaid?

 

[Thomassoft]

Hierbij de bijlage.

 

[OctaFish]

Beter leesbaar, zelfde resultaat . En geen antwoord op mijn laatste vraag. Die kan ik dan net zo goed uitbreiden: doen alle queries het los wél?

 

[Thomassoft]

Met de eerste query apart wil hij al niet. Zie:

SELECT ID, Annex, Maatregelen, Week, Dagelijks, Maand, Kwartaal, Jaar, Checklisten, Datum,
DateAdd("d",IIf(Weekday(date(),2)=5,3,1),Date()) AS Controledatum, "Dagelijks" AS Controletype
FROM tblISRA
WHERE Dagelijks=True

 

[OctaFish]

Tijd voor een voorbeeldje, lijkt mij. Voordat je een UNION query maakt, altijd testen of de losse queries het doen, anders heeft de Union sowieso geen zin.

 

[Thomassoft]

Voorbeeldje met ODBC heb ik vandaag naar je gemaild.

 

[OctaFish]

Ben benieuwd . Zal er naar kijken als ik tijd heb, maar vanavond moet ik werken dus dat wordt waarschijnlijk dit weekend.