Кнопка только для админа

almaz85
Дата: 21.09.2005 16:46:36
Помогите плиз ;)

Мне надо сделать кнопку, но чтобы она была видна только для админа, а пользователи ее видеть не могли....
Как это сделать...?
Тяп-ляп
Дата: 21.09.2005 16:53:30
Me.Кнопка.Visible = CurrentUserIsAdmin
Где CurrentUserIsAdmin - функция, возвращающая True, если текущий пользователь админ и False - в обратном случае.
Реализация CurrentUserIsAdmin зависит от фантазии разработчика
Deminik
Дата: 21.09.2005 16:54:17
If CurrentUser = "Admin" Then MyButton.Visible = True
АлексейЕ
Дата: 21.09.2005 16:54:36
Me.КнопкаДляАдмина.Visible = (CurrentUser = "Admin")
Пользователь2
Дата: 21.09.2005 16:54:47
Private Sub Form_Open(Cancel As Integer)
    If CurrentUser = "Admin" Then
        Me.cmdAdminButton.Visible = True
    Else
        Me.cmdAdminButton.Visible = False
    End If
End Sub
NG
Дата: 21.09.2005 22:30:16
У кнопки можно задать с-во "Прозрачный". Т.о. кнопка будет не видна, а админ просто знает где она расположена. "Видишь суслика? Нет? И я нет. А он там есть!" (Анекдот такой). При нажатии на кнопку полезно проверять не нажата-ли какая нибудь из клавиш, что повысит секретность.
Успехов!