Всем привет!
Пытаюсь открыть view из другой БД, пишет что мол БД не открыта и поэтому не могу получить view

Static db As NotesDatabase
Static view As NotesView
Dim PathToServer As String
Dim PathToDB As String
PathToServer = proDoc.GetItemValue("PathToServerDb")(0)
PathToDB = proDoc.GetItemValue("PathToDBDb")(0)+proDoc.GetItemValue("PathToDBContractACC")(0)
If db Is Nothing Then Set db = session.GetDatabase(PathToServer, PathToDB)
If view Is Nothing Then Set view = db.GetView ("Contract")

 

if not db.IsOpen then exit sub

 

if not db.IsOpen then exit sub

Morpheus, ну так я и знаю что она не открыта. В ошибки так и сказано DB has not been opened yet Мне бы узнать почему она не открыта, хотя сесию открываю

 

потому что путь к ней неправиьно прописан скорее всего

proDoc.GetItemValue("PathToDBDb")(0)+proDoc.GetItemValue("PathToDBContractACC")(0)

в дэбагере посмотрите что из себя представляет переменная db после GetDatabase

 

потому что путь к ней неправиьно прописан скорее всего

proDoc.GetItemValue("PathToDBDb")(0)+proDoc.GetItemValue("PathToDBContractACC")(0)

в дэбагере посмотрите что из себя представляет переменная db после GetDatabase

thanks

потому что путь к ней неправиьно прописан скорее всего

proDoc.GetItemValue("PathToDBDb")(0)+proDoc.GetItemValue("PathToDBContractACC")(0)

в дэбагере посмотрите что из себя представляет переменная db после GetDatabase

Что бы не открывать новую тему, решил спросить тут что за приложение (Paper.Document):

> uidoc.CreateObject("Image", "Paper.Document")

Ругается мол - "Недоступно приложение, работающее с объектом."

 

это ActiveX какой-то. у тебя в системе (операционной) его нет
поищи в инете, возможно найдешь где скачать

 

это ActiveX какой-то. у тебя в системе (операционной) его нет
поищи в инете, возможно найдешь где скачать

Akupaka, ну а что искать, та. Какой ActiveX, все подрят?

 

зависит от того ЧТО надо от это активИкса

 

Akupaka, ну а что искать, та. Какой ActiveX, все подрят?

а хз какой, я не нашел. по-идее, надо искать по кодовому слову "paper.document"
попробуй узнать у того, кто писал изначально код.
это может быть какой-то объект, что ставятся со сканером, например...
а может и нет...

 

зависит от того ЧТО надо от это активИкса

вставить картинку в документ Lotus. Раньше процедура:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Set uidoc = workspace.CurrentDocument

uidoc.editmode=True

Call uidoc.GotoField( "original" )
Call uidoc.CreateObject("Image", "Paper.Document")
End Sub
Отрабатывала, все было ОК, а теперь какая-та хрень на строке Call uidoc.CreateObject("Image", "Paper.Document"), пишет не доутепно приложение

 

так , всё отдельная тема по картинке есть... - харе тут засарять