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
|