CreateReplica mit Integration auf Replikatorseite

[TMC]

Hi,

folgender Code erstellt eine lokale Replik der angegebenen DB:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim replica As NotesDatabase
   Set db = New NotesDatabase("server3" , "db123.nsf")
   If Messagebox ("Do you really want to create a local replica?",1 + 32,"Question") = 1 Then
      Continue = True      
   Else
      Exit Sub      
   End If
   Set replica = db.CreateReplica( "", "testdb.nsf" )   
End Sub

Dies soll als Button an Homeoffice-Mitarbeiter geschickt werden, damit diese simpel eine lokale Replik erstellen können.
So weit so gut, nur erstellt Notes damit nicht einen Eintrag in der Replikatorseite und fügt die Replik auch nicht als Kachel hinzu.

Was müsste man da noch im Script ergänzen / modifizieren?

Grüße,
TMC

[koehlerbv]

Wieder mal Multitasking:
- Neue lokale Replik dem NotesUIWorkspace hinzufügen (AddDatabase)
- Neue lokale Replik mit NotesDatabase.Replicate (Servername) replizieren lassen.

Irgendwie war mir aber so, als wenn wir das hier im Forum in den letzten zwei Monaten schon mal gehabt hatten, aber da bin ich mir jetzt nicht so ganz sicher ...

Viel Glück und wieder Grüsse von "Ober... nach Nieder...")
Bernhard

[Driri]

Hi,

das Hinzufügen als Kachel geht über

Call notesUIWorkspace.AddDatabase( server$ , filename$ )

Nen besonderer Befehl, um die Datenbank in die Replikatorseite einzutragen kenne ich nicht, evtl. macht er das mit dem AddDatabase aber auch mit. Einfach mal ausprobieren.

[TMC]

Hi Helfende,

danke für die schnelle Info.

Ein simples Database Open der lokalen Replik hat schon gereicht :-)

Schönen Nachmittag/Abend,

TMC