Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Einddatum=cdate(#2018/06/30#)
'sql2="CREATE VIEW VW_RCdetails18 AS SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP, ledenid FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP, ledenid FROM tabl_B18"
'rs2.Open sql2, Conn
SQL="SELECT Leden.[Leden-Id], Leden.LedenNr, Leden.Familienaam, Leden.Voornaam, "&_
"Sum(VW_RCdetails18.BUitAKP) AS TBUitAKP, "&_
"Sum(VW_RCdetails18.BInVKP) AS TBInVKP, "&_
"Sum(VW_RCdetails18.BInVKP)-Sum(VW_RCdetails18.BUitAKP) AS SaldoRC, "&_
"IIf(Sum(RCdetails18.BInVKP)-Sum(RCdetails18.BUitAKP)>0,0,Sum(RCdetails18.BInVKP)-Sum(RCdetails18.BUitAKP)) AS SaldoDT, "&_
"IIf(Sum(RCdetails18.BInVKP)-Sum(RCdetails18.BUitAKP)<0,0,Sum(RCdetails18.BInVKP)-Sum(RCdetails18.BUitAKP)) AS SaldoCT "&_
"FROM Leden "&_
"INNER JOIN VW_RCdetails18 ON Leden.[Leden-Id]=VW_RCdetails18.ledenid "&_
"WHERE (((VW_RCdetails18.Datum)<="& Einddatum &")) "&_
"GROUP BY Leden.[Leden-Id], Leden.LedenNr, Leden.Familienaam, Leden.Voornaam "&_
"ORDER BY Leden.LedenNr"
rs.Open sql, Conn
response.write (sql)
rs.Open sql, Conn
response.write (sql)
response.write (sql)
rs.Open sql, Conn
response.write (sql)
Variabele = "string" --> Toevoegen kan bij beide
Variabele = waarde --> Toevoegen aan SQL
Als ik dat zie gaat mijn haar toch recht staan (als dat de kwaliteiten zijn van de nieuwe generatie?!?)...
Mijn conversie
...Code:sql = "SELECT Leden.[Leden-Id], Leden.LedenNr, Leden.Familienaam, Leden.Voornaam, "&_ "SUM((SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).BUitAKP) AS TBUitAKP, "&_ "SUM((SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).BInVKP) AS TBInVKP, "&_ "Sum((SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).BInVKP) "&_ "-SUM(SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).BUitAKP) AS SaldoRC, "&_ "CASE WHEN SUM(SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).[BInVKP]"&_ "-SUM(SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).[BUitAKP]>0 THEN 0 "&_ "ELSE SUM(SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).[BInVKP]"&_ "-SUM(SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).[BUitAKP]) AS SaldoDT, "&_ "CASE WHEN SUM(SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).[BInVKP]"&_ "-SUM(SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).[BUitAKP]<0 THEN 0 "&_ "ELSE SUM(SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).[BInVKP]"&_ "-SUM(SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).[BUitAKP]) AS SaldoCT "&_ "FROM Leden "&_ "INNER JOIN (SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18) "&_ "ON Leden.[Leden-Id]=(SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).ledenid "&_ "WHERE (((SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_A18 UNION ALL SELECT Datum, Aantal, Omschrijving, BInVKP, BUitAKP FROM tabl_B18).Datum)<=[datum?])) "&_ "GROUP BY Leden.[Leden-Id], Leden.LedenNr, Leden.Familienaam, Leden.Voornaam "&_ "ORDER BY Leden.LedenNr"
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.