A
Abbi
Не могу найти ошибку. Проверка на происходит.
[codebox]Function check_kod(a As Variant) As Variant
Dim ses As New Notessession
Dim view As NotesView
Dim docum As NotesDocument
Dim result As String
Dim arr (0 To 1) As String
Dim spravdb As New NotesDatabase("","")
sServer=ses.GetEnvironmentString("SpravInfServer")
sDb = "testOTiTB.nsf"
If Not spravdb.OpenWithFailover(sServer,sDb) Then
Msgbox "База данных ""Тестирование"" не найден.", 16,"Ошибка..."
End If
Set view = spravdb.GetView("(testir)")
result = Inputbox ("Введите код для прохождения тестирования","Тестирование","")
arr(0) = result
arr(1) = a(0)
Set docum=view.GetDocumentByKey(arr) !!!!! НЕ ПРИСВАИВАЕТ DOCUM !!!
If Not(docum Is Nothing) Then
check_kod =True
End If
End Function[/codebox]
[codebox]Function check_kod(a As Variant) As Variant
Dim ses As New Notessession
Dim view As NotesView
Dim docum As NotesDocument
Dim result As String
Dim arr (0 To 1) As String
Dim spravdb As New NotesDatabase("","")
sServer=ses.GetEnvironmentString("SpravInfServer")
sDb = "testOTiTB.nsf"
If Not spravdb.OpenWithFailover(sServer,sDb) Then
Msgbox "База данных ""Тестирование"" не найден.", 16,"Ошибка..."
End If
Set view = spravdb.GetView("(testir)")
result = Inputbox ("Введите код для прохождения тестирования","Тестирование","")
arr(0) = result
arr(1) = a(0)
Set docum=view.GetDocumentByKey(arr) !!!!! НЕ ПРИСВАИВАЕТ DOCUM !!!
If Not(docum Is Nothing) Then
check_kod =True
End If
End Function[/codebox]