Faible strSQL comme corde
Faible varID
le strSQL = « CHOISISSENT * À PARTIR du tbl_survey OÙ survey_year='2010'"
Avec CurrentDb.OpenRecordset (strSQL, dbOpenDynaset)
Faire jusqu'à .EOF
varID = DLookup (« identification », « Query2 », « part_rate='52 et ID= » et ! Identification)
Sinon IsNull (varID) puis
. Éditer
! le service = rectifient
. Mise à jour
Finir si
.MoveNext
Boucle
. Fin
Extrémité avec
|