Inhoud Query automatisch bewerken

[liveandlearn]

Ik heb een rapport op basis van een query.
nu heb ik betaal status. Betaald Ja/Nee/In behandeling.

Nu heb ik de volgende query :

SELECT *
FROM tblRit
WHERE Betaald="Nee";

De uitkomst van de query is een lijst met ritten die eraan voldoen.
Nu wil ik dat wanneer deze geopend is dat wanneer er op afdrukken gedrukt wordt dat alle statussen waar NEE staat dat dit JA wordt.

Hoe kan ik dit aanpakken met een query ?

mvg

Mark

 

[Bartuls]

Met een update query:

UPDATE tblRit
SET Betaald='Ja'
WHERE Betaald='Nee';

Of in VBA:

dim db as database
dim strSQL as string

strSQL = "UPDATE tblRit SET Betaald='Ja' WHERE Betaald='Nee';"
set db = currentdb()
db.execute strSQL, dbfailonerror
set db = nothing

 

[liveandlearn]

Met een update query:

UPDATE tblRit
SET Betaald='Ja'
WHERE Betaald='Nee';

Of in VBA:

dim db as database
dim strSQL as string

strSQL = "UPDATE tblRit SET Betaald='Ja' WHERE Betaald='Nee';"
set db = currentdb()
db.execute strSQL, dbfailonerror
set db = nothing

Werkt perfect nu nog weten wat de code doet ik denk het volgende:


dim db as database <-- geen idee :S
dim strSQL as string <-- defineer de benaming strSQL als een String

strSQL = "UPDATE tblRit SET Betaald='Ja' WHERE Betaald='Nee';" <-- Geef als string de sql query op
set db = currentdb() <-- geef de huidge database op bij "db"
db.execute strSQL, dbfailonerror <-- db.execute voert de string uit (strSQL) maar wat dbfailonerror doet weet ik niet.
set db = nothing <-- dit volg ik ook niet.


Zou je mij het uit kunnen leggen de oplossing hebben is vaak simpel maar de oplossing snappen kost iets meer moeite maar daar heb ik meer aan.

 

[Bartuls]

dim db as database <-- declareren van de variabele db als een database object.
dim strSQL as string <-- declareren van de variabele strSQL als een string object.

strSQL = "UPDATE tblRit SET Betaald='Ja' WHERE Betaald='Nee';" <-- Geef als string de sql query op
set db = currentdb() <-- geef de huidge database op bij "db"
db.execute strSQL, dbfailonerror <-- db.execute voert de string uit (strSQL). dbFailOnerror zorgt ervoor dat dit statement een foutmelding geeft als de SQL opdracht om wat voor reden dan ook niet uitgevoerd kan worden of fout loopt.
set db = nothing <-- vrijgeven van het gealloceerde geheugen voor het database object.