ник: osmor
вникать нет сил...
Public Function ObjName() as string
ObjName = Screen.ActiveControl.Name
End Function
|
запрос в этом случае будет выглядеть так
select ..... from .... where [НазваниеОбъекта] = ObjName
|
хотя все не так...
зачем вешать это на событие каждого элемента котоый хотите прятать/дизеблить?
Нужно одну функцию на загрузку формы которая (функция) проставить нужные права для всех контролов.
пока все.... ухел