ник: Василий
Здравствуйте! Помогите пожалуйста, на этом сайте http://hiprog.com/index.php?option=com_content&task=view&id=251661592&Itemid=35 узнал о таком способе авторизации, только не могу разобратся как написать или как разграничить права в этой проге и вообще?
Dim Какие_права As String
Dim Каой_пароль As String
Поле3.SetFocus
Какие_права = ""
Каой_пароль = ""
Каой_пароль = DFirst("Значение", "Пароль")
If Mid(Каой_пароль, 4, 2) & Mid(Каой_пароль, 7, 2) = Nz(Me!Поле3) Then
Какие_права = "Пользователь"
End If
If Mid(Каой_пароль, 11, 2) & Mid(Каой_пароль, 15, 3) = Nz(Me!Поле3) Then
Какие_права = "Администратор"
End If
If Какие_права <> "" Then
MsgBox "Вы входите в программу с правами - " & Какие_права
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "Руфат декабрь"
Else
Кнопка26_Click
End If
End Sub
вот, тут как и куда вписать, чтоб юзер не мог открывать таблицы или фомы? или удалять что либо из таблиц.