loop_role = “y”
provider_id = formulários! frm_list_external_companies.cmb_placing
strSQL = “[fk_role_provider] =” & provider_id
rs_roles.FindFirst
Fazer quando loop_role = “y” e não rs_roles.EOF
Se rs_roles.NoMatch então
loop_role = “n”
Mais
…
Terminar se
strSQL de rs_roles.FindNext
Terminar quando