Datenbank-Link auf einen anderen Server

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

hallo,

hab ich schon gemacht. das problem liegt am about dokument. wenn ich eine datenbabk erstelle ohne about dokument läuft das script ohne probleme. leider habe die bestehenden db's alle about dokumente drin und diese darf ich nicht löschen.

auch die einstellung, dass das about nicht angezeigt wird bei ersten öffnen nützt nichts.

gruss
Björn

hallo,

danke, jetzt sollte ich nur noch wissen warum es nicht geht bin leider nicht der spezi in sachen entwicklung. vieleicht hat jemand eine idee wie ich das problem lösen kann. der benutzer sollte eigentlich nichts merken von der umstellung.

Björn