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

[rm2005]

Добрый день!

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

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

 

[Kee_Keekkenen]

замени строку
Dim selectDB As NotesDatabase
на
Dim selectDB As New NotesDatabase("","")

 

[rm2005]

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