Не работает Openbyreplicaid.

Тема в разделе "Lotus - Программирование", создана пользователем rm2005, 2 апр 2007.

  1. rm2005

    rm2005 Гость

    Добрый день!

    Не получается открыть базу по её реплике.

    Код (Text):
    Sub Click(Source As Button)
    Dim db As New NotesDatabase("","")
    Dim DocColl As NotesDocumentCollection 
    Dim CurrentUIWorkspace As NotesUIWorkspace
    Dim ServerName As String
    Dim SelectDoc As NotesDocument
    Dim znac As Variant
    Dim selectDB As NotesDatabase
    Dim DbID As String

    ServerName="Server"
    Set CurrentUIWorkspace=New NotesUIWorkspace
    Set db= New NotesDatabase(ServerName, "cmss.nsf")
    Set DocColl=CurrentUIWorkspace.PickListCollection(PICKLIST_CUSTOM,False,"Server","cmss.nsf", "1. Программы\1. По организациям","1","2","категория")
    Set SelectDoc=DocColl.GetFirstDocument
    znac=SelectDoc.GetItemValue("otmet")
    DbID=znac(0)
    Msgbox (DbID)

    If Not selectDB.OpenByReplicaID(ServerName,DbID) Then
    Messagebox "No local replica",, "Cannot find database"
    Exit Sub
    End If
    Exit Sub
    Выдаётся ошибка Object variable not set
     
  2. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    замени строку
    Dim selectDB As NotesDatabase
    на
    Dim selectDB As New NotesDatabase("","")
     
  3. rm2005

    rm2005 Гость

    Для: Kee_Keekkenen
    Большое спасибо за помощь!!!
     
Загрузка...

Поделиться этой страницей