strSQL dévil como secuencia
varID dévil
el strSQL = “SELECCIONA * del tbl_survey DONDE el survey_year='2010'"
Con CurrentDb.OpenRecordset (strSQL, dbOpenDynaset)
Hacer hasta .EOF
¡varID = DLookup (“identificación”, “Query2”, “part_rate='52 e ID=” y! Identificación)
Si no IsNull (varID) entonces
. Corregir
¡! el servicio = verdad
. Actualización
Terminar si
.MoveNext
Lazo
. Cierre
Extremo con
|