Datenbankdesign teilweise verstecken

[Mr.T]

Hallo,

ich suche nach einer Möglichkeit das Design einer Datenbank teilweise zu verstecken.
Mir ist bekannt wie man Design einer Datenbank versteckt (replace desgn,... Hide....).
Wenn man dies tut dann kann man die Datenbank aber nicht mehr im Designer öffnen, ich möchte aber das eine andere Niederlassung von uns eigene Änderungen an einigen Elementen machen kann bzw. auch neue Forms anlegen kan.

Ich habe hier im Forum einen Link zu diesem Code gefunden, allerdings verstehe ich nicht wie und wo ich diesen Code einbinden muß .
Wäre toll wenn mir jemand den unten angefügten Code erklären kann oder ob es eine andere Möglichkeit gibt.

Danke für Eure Hilfe


Const APIModule = "NNOTES" ' Windows/32 only
Const REPLFLG_HIDDEN_DESIGN = &H0020

Type ReplicaInfo
ID(1) As Long
Flags As Integer
CutoffDays As Integer
CutoffDate(1) As Long
End Type

Declare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" _
( Byval P As String, H As Long) As Integer
Declare Function NSFDbClose Lib APIModule Alias "NSFDbClose" _
( Byval H As Long) As Integer
Declare Function OSPathNetConstruct Lib APIModule Alias "OSPathNetConstruct" _
( Byval Z As Long, Byval S As String, Byval F As String, Byval P As String) As Integer
Declare Function NSFDbReplicaInfoGet Lib APIModule Alias "NSFDbReplicaInfoGet" _
( Byval H As Long, R As ReplicaInfo) As Integer
Declare Function NSFDbReplicaInfoSet Lib APIModule Alias "NSFDbReplicaInfoSet" _
( Byval H As Long, R As ReplicaInfo) As Integer

Sub HideDesign(db As NotesDatabase, hide As Variant)
Dim hDB As Long
p$ = Space(256)
OSPathNetConstruct 0, db.Server, db.FilePath, p$
NSFDbOpen p$, hDB

Dim R As ReplicaInfo
NSFDbReplicaInfoGet hDB, R
If hide Then
R.Flags = R.Flags Or REPLFLG_HIDDEN_DESIGN
Else
R.Flags = R.Flags And Not REPLFLG_HIDDEN_DESIGN
End If
NSFDbReplicaInfoSet hDB, R

NSFDbClose hDB
End Sub

[Mr.T]

Hat denn niemand eine Idee 

[guesswho]

Hallo Mr. T,

das Datenbankdesign verstecken wie von dir beschrieben, dann eine neue leere Datenbank erstellen, Haken "Keine Änderung des Datenbanksymbols durch Aktualisieren/Ersetzen der Datenbankgestaltung" beim Symbol rausmachen. Schablone wechseln und deine zuvor versteckte Datenbank angeben. Den Haken bei "Formeln und Script verbergen" RAUSmachen.

Jetzt kannst du die neue im Designer öffnen, Formel und Script sind aber verborgen, weil diese DB auf einer verborgenen basiert.

Du kannst diese Gestaltungselemente jetzt auch aus deiner unversteckten teilweise wieder ersetzen, in diesen ist dann Script/Formelzeug auch sichtbar.

Jo

[Mr.T]

Danke für die Antwort guesswho!!!

Es hat bestens funktionirt 

SUPER!!