Тусклое strSQL как шнур
Тусклое varID
strSQL = «ВЫБИРАЕТ * ОТ tbl_survey ГДЕ survey_year='2010'"
С CurrentDb.OpenRecordset (strSQL, dbOpenDynaset)
Не сделать до .EOF
varID = DLookup («удостоверение личности», «Query2», «part_rate='52 и ID=» &! Удостоверение личности)
Если не IsNull (varID) после этого
. Редактируйте
! обслуживание = True
. Уточнение
Закончитесь если
.MoveNext
Петля
. Конец
Конец с
|