strSQL fioco come stringa
varID fioco
lo strSQL = “SELEZIONA * A PARTIRE dal tbl_survey DOVE survey_year='2010'"
Con CurrentDb.OpenRecordset (strSQL, dbOpenDynaset)
Fare fino a .EOF
varID = DLookup (“identificazione„, “Query2„, “part_rate='52 e ID=„ &! Identificazione)
Se non IsNull (varID) allora
. Pubblicare
! il servizio = allinea
. Aggiornamento
Concluder se
.MoveNext
Ciclo
. Fine
Estremità con
|