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

  • Автор темы rm2005
  • Дата начала
R

rm2005

Гость
#1
Добрый день!

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

Код:
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
 
R

rm2005

Гость
#3
Для: Kee_Keekkenen
Большое спасибо за помощь!!!