Hi Leute,

ich hab mal wieder ne Frage und zwar:

Ich komme aus der Access-Ecke und würde gerne wissen, ob ich sowas ähnliches wie Tabellen auch in Lotus implementieren kann. Wenn ich z.b. ne Person hab, deren Adresse ich speichern will und die hat ne Firmen- und ne Privatadresse. Da machts ja dann keinen Sinn, über die Maske die Person an sich 2mal in der DB abzulegen. Gleiches gilt dann beim Löschen, da müßte ich ja jede Person mehrfach löschen statt nur einmal zentral. Kann ich sowas über Teilmasken realisieren? Oder irgendwie anders?

Hab mal ein Bild aus Access zum Verständnis angefügt.

Danke für die Hilfe

danke.

das notes keine relationen kann und dokumentenorientiert abspeichert weis ich ja, aber ich möchte eben so eine ähnliche struktur realisieren, da es bei der entstehenden DB eben zu einem Namen 1 - x dokumente geben kann. aber ich werd mich mal an die haupt- und antwortdokumenten-sache ranmachen

MisterDa

... das geht schon, was du vorhast. Du mußt dabei darauf achten, daß du für die Person einen Schlüssel generierst, der eindeutig ist. ....

Ich würde es nicht mit Antwortdokumenten machen. Die haben die Problematik, daß wenn das Hauptdokument gelöscht wird die Antwortdokumente ins Nirwana gehen...

Du versuchst krampfhaft Relation nachzubilden. Das ist ein Riesenaufwand und führt meiner Erfahrung nach selten zu gewünschten Ergebnis.

Ich halte für bestimmte Anwendungen Haupt- und Antwortdokumente für die bessere Alternative, weil man sich hier um den Bezug nicht selbst kümmern muß. In einem gebe ich dir recht, dass wenn das Hauptdokument gelöscht wird, die Antwortdokument im Nirwana verschwinden. Aber das läßt sich relativ einfach verhindern. Es gibt genug Lösungsansätze dafür.

Axel

Hi,

füge im PostdocumentDelete - Event des Datenbank-Scripts folgenden Code ein.

Sub Postdocumentdelete(Source As Notesuidatabase)
   
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim i As Integer
   
   Set collection = Source.Documents
   
   If collection.Count = 0 Then
      Exit Sub
   Else
      For i = 1 To collection.Count
         Set doc = collection.GetNthDocument(i)
         Call DeleteResponseDocs(doc)
         Call doc.Remove(True)
      Next  'For i = 1 To collection.Count
   End If  'If collection.Count = 0 Then
   
End Sub


Weiterhin brauchst du folgende Routine:

Sub DeleteResponseDocs (doc As NotesDocument)
   
   Dim responses As NotesDocumentCollection
   Dim tmpdoc As NotesDocument
   Dim dummy As NotesDocument
   
   Set responses = doc.Responses
   Set dummy = responses.GetFirstDocument
   While Not (dummy Is Nothing)
      Set tmpdoc = responses.GetNextDocument(dummy)
      Call DeleteResponseDocs(dummy)
      Call dummy.Remove(True)
      Set dummy = tmpDoc
   Wend  'While Not (dummy Is Nothing)
   
End Sub

Die kannst du ebenfalls in Datenbankscript packen, oder in eine Scriptbibilothek. Die mußt du dann mit Use "Name der Bibliothek" im Options - Abschnitt des Datenbankscriptes einbinden.

Axel

Alles klar.

Danke Leute