loop_role = « y »
provider_id = formes ! frm_list_external_companies.cmb_placing
strSQL = « [fk_role_provider] = » et provider_id
rs_roles.FindFirst
Faire tandis que loop_role = « y » et pas rs_roles.EOF
Si rs_roles.NoMatch alors
loop_role = « n »
Autrement
…
Finir si
strSQL de rs_roles.FindNext
Finir tandis que