loop_role = „y“
provider_id = Vormen! frm_list_external_companies.cmb_placing
strSQL = „[fk_role_provider] =“ & provider_id
rs_roles.FindFirst
Doe terwijl loop_role = „y“ en niet rs_roles.EOF
Als rs_roles.NoMatch toen
loop_role = „n“
Anders
…
Eind als
rs_roles.FindNext strSQL
Eind terwijl