Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: dh-paule am 18.02.04 - 11:01:20

Titel: Dokumente ändern, nur online???
Beitrag von: dh-paule am 18.02.04 - 11:01:20

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 :-)

Titel: Re:Dokumente ändern, nur online???
Beitrag von: eknori am 18.02.04 - 11:11:26

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

Titel: Re:Dokumente ändern, nur online???
Beitrag von: Glombi am 18.02.04 - 11:39:23

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

Titel: Re:Dokumente ändern, nur online???
Beitrag von: dh-paule am 18.02.04 - 12:27:49

@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  ????

Titel: Re:Dokumente ändern, nur online???
Beitrag von: Glombi am 18.02.04 - 12:36:41

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

Titel: Re:Dokumente ändern, nur online???
Beitrag von: dh-paule am 18.02.04 - 13:12:35

Klasse, jetzt klappts :-))))

DANKESCHÖN