hallo,
ich suche ein script oder formel mit der ich von einer datenbank auf server1 zu der datenbank auf server2 wechseln kann.
mit dem skript wird die replik-id auf dem andern server gesucht und die datenbank aufgemacht. die alte datenbank wird zugemacht . bei öffnen der datenbank komm die fehlermeldung: "object variable not set" und wenn ich auch ok klicke sind beide datenbanken geöffnet auf server1 und server2.
hat jemand eine lösung ?
gruss
Björn
Sub Postopen(Source As Notesuidatabase)
Dim newServerName As String
Dim ws As New NotesUIWorkspace
Dim currentView As NotesUIView
Dim currentServer As NotesName
Dim currentRepID As String
Dim newServer As NotesName
Dim newDB As NotesDatabase
' Statische Definitionen (jeweils gewünschten Servernamen einsetzen)
newServerName = "Server101/SRV/ZHKT"
' Current und new Server vergleichen
' (Vergleich der ersten 6 Zeichen, damit Servers im
' Cluster keine Probleme machen
Set currentServer = New NotesName(Source.Database.Server)
Set newServer = New NotesName(newServerName)
If (Left(Ucase(currentServer.Abbreviated), 6) = _
Left(Ucase(newServer.Abbreviated), 6)) Then
Exit Sub
End If
' Aktuelle Version in Variablen speichern
Set currentView = ws.CurrentView
currentRepID = Source.Database.ReplicaID
' Get new Database
Set newDB = New NotesDatabase("", "")
Call newDB.OpenByReplicaID(newServer.Abbreviated, currentRepID)
' Open new Database und close current View
Call ws.OpenDatabase(newServer.Abbreviated, _
newDB.FilePath, , , True, False)
Call currentView.Close
End Sub