How can I find all the MS Access security groups in VBA -
how can find list of ms access security groups in application through vba?
i know can going tools->security->user , group accounts, i'd through vba (i'd automate of user creation routine).
i've considered adding dummy user assigned groups , pulling groups assigned user, there must cleaner way this.
found it!
dim curr_group group dim group_cnt long dim group_ndx long dim strgroup string dim strgrouplist string strgrouplist = "" group_cnt = dbengine(0).groups.count group_ndx = 0 group_cnt - 1 set curr_group = dbengine(0).groups(group_ndx) strgroup = curr_group.name if strgrouplist = "" strgrouplist = strgroup else strgrouplist = strgrouplist & ";" & strgroup end if next group_ndx me.lbxsysgroups.rowsource = strgrouplist
Comments
Post a Comment