N
NeviDimka
Приветствую, уважаемые. Помогите начинающему с первой проблемой
Есть две формы, в одном есть поле Type, в другом поле Counter, для события onChange поля Type я пишу слудующий код:
Sub Onchange(Source As Field)
Set notesSession = New NotesSession
Dim nDB As NotesDatabase
Set nDB = notesSession.CurrentDatabase()
Dim nv_types As NotesView
Set nv_types = nDB.getView("types")
Dim ndoc_btype As NotesDocument
Set ndoc_btype = nv_types.getDocumentByKey("XYZ",False)
Dim ni_count As Variant
Set ni_count = ndoc_btype.GetItemValue("Counter")
End Sub
где types - это представление показывающее документы со вторым полем, а ключ XYZ, по которому ищется документ - реально существующий, но после запуска клиента Lotus Notes, открытии базы, и изменении поля Type - выдается ошибка: "Object Variable not set"!!! в отладчике видно, что создается сессия, БД и вид, но не создается документ, и соответственно поле от него( (мне нужно в итогшеполучить значение поля Counter)
Очень рассчитываю на помощь знающих людей.
Есть две формы, в одном есть поле Type, в другом поле Counter, для события onChange поля Type я пишу слудующий код:
Sub Onchange(Source As Field)
Set notesSession = New NotesSession
Dim nDB As NotesDatabase
Set nDB = notesSession.CurrentDatabase()
Dim nv_types As NotesView
Set nv_types = nDB.getView("types")
Dim ndoc_btype As NotesDocument
Set ndoc_btype = nv_types.getDocumentByKey("XYZ",False)
Dim ni_count As Variant
Set ni_count = ndoc_btype.GetItemValue("Counter")
End Sub
где types - это представление показывающее документы со вторым полем, а ключ XYZ, по которому ищется документ - реально существующий, но после запуска клиента Lotus Notes, открытии базы, и изменении поля Type - выдается ошибка: "Object Variable not set"!!! в отладчике видно, что создается сессия, БД и вид, но не создается документ, и соответственно поле от него( (мне нужно в итогшеполучить значение поля Counter)
Очень рассчитываю на помощь знающих людей.