strSQL não ofuscante como a corda
varID não ofuscante
o strSQL = “SELECIONA * do tbl_survey ONDE survey_year='2010'"
Com CurrentDb.OpenRecordset (strSQL, dbOpenDynaset)
Fazer até .EOF
varID = DLookup (“identificação”, “Query2”, “part_rate='52 e ID=” &! Identificação)
Se não IsNull (varID) então
. Editar
! o serviço = retifica
. Atualização
Terminar se
.MoveNext
Laço
. Fim
Extremidade com
|