Dunkel strSQL som stränger
Dunkel varID
strSQL = ”VÄLJER * FRÅN tbl_survey VAR survey_year='2010'"
Med CurrentDb.OpenRecordset (strSQL, dbOpenDynaset)
Gör till .EOF
varID = DLookup (”LEGITIMATION”, ”Query2”, ”part_rate='52 och ID=” &! LEGITIMATION)
Om inte IsNull (varID) därefter
. Redigera
! serva = True
. Uppdatering
Avsluta om
.MoveNext
Kretsa
. Nära
Avsluta med
|