Schemerige strSQL als Koord
Schemerige varID
strSQL = „SELECTEER * UIT tbl_survey WAAR survey_year=" 2010'" Met CurrentDb.OpenRecordset (strSQL, dbOpenDynaset) Doe tot .EOF varID="DLookup" („identiteitskaart“, „Query2“, „part_rate="52 en ID=“ &! IDENTITEITSKAART)
Als niet IsNull (varID) toen
. Geef uit
! de dienst = Waar
. Update
Eind als
.MoveNext
Lijn
. Sluit
Eind met
|