Private Sub Form_Open(Cancel As Integer)

On Error GoTo ErrorHandler
1:      DoCmd.SetWarnings False
2: Dim cn As ADODB.Connection
3: Dim conn As String
4: conn = "Provider=SQLOLEDB.1;Password=ors;Persist Security Info=True;User ID=tst;Initial Catalog=NCI_RN;Data Source=t38"
6: Set cn = CreateObject("ADODB.Connection")
7: cn.ConnectionString = conn
8: cn.Open

9: Dim objInfo
10: Dim strLDAP
11: Dim strFullName

12: Set objInfo = CreateObject("ADSystemInfo")
13: strLDAP = objInfo.UserName
14: Set objInfo = Nothing
15: strFullName = GetUserName(strLDAP)
'Forms![newAuthoriza].users = NewUserName(strFullName)
'users = NewUserName(strFullName) 'глобал
16: users = strFullName
17: Set rsAut = CurrentDb.OpenRecordset("Select * FROM Authorization Where Authorization.name_kurator='" & Me.users & "' ")
18: If rsAut.BOF And rsAut.EOF Then
19: MsgBox "Доступ запрещен, приложение будет закрыто"
20: upr.enabled = False
21: users.enabled = False
22: DoCmd.Quit acQuitSaveNone

23: Else
24: Set rsAut = CurrentDb.OpenRecordset("Select kod_kurator,name_kurator,kod_upr,kod_rol, CB_Texst FROM Authorization Where Authorization.name_kurator='" & Me.users & "' ")
25: upr = " "

26: For i = 0 To rsAut.Fields.count - 1
27: Do While Not rsAut.EOF
 
28: upr.RowSourceType = "Value List"
29: upr.AddItem (" '" & rsAut.Fields(2) & "'; '" & rsAut.Fields(4) & "'; '" & rsAut.Fields(3) & "' ")
30:  rsAut.MoveNext
31: Loop
32: Next i

33: upr.Requery
34:   rsAut.MoveLast: rsAut.MoveFirst
35: kur = rsAut.Fields(0)

36: cn.Close
37: Set rsAut = Nothing
 End If
Exit Sub
ErrorHandler:
 MsgBox "Возникла ошибка № " & Err.Number & vbCrLf & "В модуле " & Err.Source & vbCrLf & "В строке № " & Er
End Sub