Dokumente ändern, nur online???

[dh-paule]

Hallöle

kann ich es in einer Datenbank einrichten das die User Dokumente nur dann ändern können wenn sie auf dem Server arbeiten. Ich möchte verhindern das in der OfflineReplik Daten geändert werden die dann zu Replikationskonflikten führen.

Vielen Dank für eure Tipps und eure Ausdauer mit meinen Problemchen :-)

[eknori]

müsste im QueryModeChange Event der Maske mit

Dim db As NotesDatabase
Set db = session.CurrentDatabase
If ( db.Server = "" ) Then
  continue = false
End If

möglich sein

[Glombi]

Und noch zusätzlich im QueryOpen:

Dim db As NotesDatabase
Set db = session.CurrentDatabase
If ( db.Server = "" ) and Source.EditMode Then
  continue = false
End If

Andreas

[dh-paule]

@eknori :

Es kommt eine Fehlermeldung "Variant does not contain an object" und das Bearbeiten ist weiter möglich :-(

Ich habe das drin stehen:

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase
   If ( db.Server = "" ) Then
      continue = False
   End If
End Sub

Nehme ich die SUB Zeilen raus, gibts gleich einen Fehler  ?

[Glombi]

Es fehlt noch
Dim session as New NotesSession

Denke noch an das QueryOpen, denn sonst kann ein Anwender das Dokument im Bearbeitenmodus öffnen und das QueryModeChange Event greift nicht.

Andreas

[dh-paule]

Klasse, jetzt klappts :-))))

DANKESCHÖN