Domino 9 und frühere Versionen > ND9: Entwicklung

Serverwechsel beim Öffnen einer DB übers Lesezeichen klappt nicht

<< < (2/2)

FrankLU:
Leider ist die Sache noch nicht erledigt. Ich habe den Code eingebaut, aber ich bekommen bei der If-Abfrage mit der db.OpenByReplicaID die Fehlermeldung, dass die DB schon offen ist: "This database object is already open as CN=ServerAkt/O=.../C=...". Die Anwendung wird dann auf dem im Lesezeichen genannten Server (ServerAkt) geöffnet.


--- Zitat ---Sub Postopen(Source As Notesuidatabase)
   Dim db As New NotesDatabase ("", "")
   Dim view As NotesView
   Dim docStm As NotesDocument
   Dim ServerAkt As String, ServerStd As String, ReplicaID As String
   Dim erg As Variant
   
   Set db = Source.Database
   ServerAkt = db.Server
   ReplicaID = Source.Database.ReplicaID
   
   Set view = db.GetView("viewPar")   'Db-Parameter einlesen für Standard-Server
   Set docStm = view.GetFirstDocument
   ServerStd = docStm.Server(0)
   
   If LCase(ServerAkt) <> LCase(ServerStd) Then
      erg = Evaluate(|@IsNotMember("[TL]"; @UserRoles)|)   'Teamleiter nicht umschalten
      If erg(0) = 1 then
         If db.OpenByReplicaID(ServerAkt, ReplicaID) Then
            Source.close
         Else
            MessageBox"Öffnen der Datenbank nicht möglich", 0 + 48, "Datenbank"
         End If
      Else
         MessageBox"Achtung: Sie arbeiten nicht auf dem Standard-Server " + docStm.Server(0), 0 + 48, "Datenbank"
      End If
   End If
End Sub

--- Ende Zitat ---

ronka:
Eh, klar..


--- Code: ---Set db = Source.Database
ServerAkt = db.Server

--- Ende Code ---

Das ist der Server wo du dich jetzt befindest.


--- Code: ---If db.OpenByReplicaID(ServerAkt, ReplicaID) Then . . .

--- Ende Code ---

Da kannst du nicht erneut hingehen....


--- Code: ---If db.OpenByReplicaID(ServerStd, ReplicaID) Then . . .

--- Ende Code ---

Ist was du haben möchtest um auf den ANDEREN Server zu wechseln, oder ?

Navigation

[0] Themen-Index

[*] Vorherige Sete