ник: Romiras
Тебе из все кода нужно Call SetMenuUserSecurity(MySet!ID1, MySet!ID2, MySet!ID3, MySet!Right, False)
а как ты реализуешь подстановку параметров функции уже твоя проблема)))
уфф...искал пример свой где у меня была таблица и в ней были раставленны разрешения что можно открывтаьи так не нашол..щаз порою еще
нашол блин 
Private Sub Form_Load()
....
Call FormMenu(Me.Name)
|
Sub FormMenu(frmName As String)
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Select * from qwrMenuID Where FrmName = '" & frmName & "'")
With rst
.MoveFirst
While Not .EOF
Call SetMenuUserSecurity(rst!ID1, rst!ID2, rst!ID3, rst!status1, rst!Status2)
.MoveNext
Wend
End With
rst.Close
End Sub
|
не помню почему уже но отказался от реализации таким способом разрешений
думаю закумарило меня за каждой формой следить
вид запроса в атаче