Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: mwue am 21.10.05 - 13:02:34

Titel: Dokument neu zuordnen
Beitrag von: mwue am 21.10.05 - 13:02:34

Liebes Forum,

ich habe folgendes Problem mit meinem Skript, mit dem ich Dokumente neu zuordnen möchte.

Bei der Zeile 
response.form = "Unterpunkt" bekomme ich die Meldung "Variant does not contain an object".
Wie kann das sein, die Zeile vorher hat doch noch geklappt ?

Zum Verständnis:
Die DocId des künftigen Elterndokuments steht in einer Environment Variablen. Die Ansicht DocId listet alle Dokumente sortiert nach Id.

Ganz herzlichen Dank im voraus

Marion

_____________________________

Hier der Code


Sub MakeResponse
   
   ' Ordnet gewähltes Dokument einem anderen zu   
   Dim ws As New Notesuiworkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim parent As NotesDocument
   Dim response As NotesDocument
   Dim item As NotesItem
   Dim text As String
   Dim uiview As notesuiview
   Dim view As NotesView
   Dim viewid As NotesView
   
   Set db = session.Currentdatabase
   Set viewid = db.getview("viewDocId")
   Set uiview = ws.Currentview
   
   ' Elterndokument
   Key =  session.GetEnvironmentString("DocID")
   Set parent = viewid.GetDocumentByKey(Key)
   
   ' Bilden der Document Collection
   Set view = uiview.view
   Set dc = uiview.Documents
   Set response = dc.GetFirstDocument()
   
   If dc.count > 0 Then
      
      ' Loop durch Dokumente
      For j = 1 To dc.count   
         If response.IsResponse Then
      ' Zuordnen des Dokuments zum gewünschten Elterndokument
            Call response.MakeResponse( parent )
            reponse.Form = "Unterpunkt"
            Call reponse.Save( True, True )
         Else
            Msgbox "Dokument kann nicht zugeordnet werden, da Hauptdokument",,"Fehler"
         End If
         Set response = dc.GetNextDocument(response)
      Next
         ' Ende Loop Dokumente
      
   Else
      Msgbox "Sie müssen ein Dokument auswählen",,"Hinweis"
   End If
End Sub

Titel: Re: Dokument neu zuordnen
Beitrag von: sloe am 21.10.05 - 13:31:02

Hi,
wenn das der Orginal CopyNPaste Code ist, dann sind da zwei Schreibfehler:

reponse.Form = "Unterpunkt"
Call reponse.Save( True, True )

Titel: Re: Dokument neu zuordnen
Beitrag von: koehlerbv am 21.10.05 - 13:39:30

Und mit Option Declare wäre das nicht passiert  ;)

Bernhard

Titel: Re: Dokument neu zuordnen
Beitrag von: mwue am 21.10.05 - 13:50:18

Jubel ! Ihr habt mir meinen Tag gerettet !!! Das war der Original Copy und Paste Code.

Da hätte ich bestimmt noch Stunden gesessen und hätte den Schreibfehler nicht entdeckt. 
Und das mit Option Declare merke ich mir.

Ich wünsche Euch noch ein schönes Wochenende und ganz herzlichen Dank für die Tipps. 

Marion