loop_role = „y“
provider_id = Formen! frm_list_external_companies.cmb_placing
strSQL = „[fk_role_provider] =“ u. provider_id
rs_roles.FindFirst
Tun während loop_role = „y“ und nicht rs_roles.EOF
Wenn rs_roles.NoMatch dann
loop_role = „n“
Sonst
…
Beenden wenn
rs_roles.FindNext strSQL
Beenden während