Ciemnawy strSQL Sznurek
Ciemnawy varID
strSQL = "WYBIÓRKA * OD tbl_survey DOKĄD survey_year='2010'"
Z CurrentDb.OpenRecordset (strSQL, dbOpenDynaset)
Do .EOF
varID = DLookup ("ID", "Query2", "part_rate='52' i ID=" &! ID)
Jeśli nie IsNull (varID) Wtedy
. Redagować
! usługa = Prawdziwy
. Aktualizacja
Kończyć Jeżeli
.MoveNext
Pętla
. Zakończenie
Końcówka Z
|