Domino 9 und frühere Versionen > Entwicklung

Funktion requires a valid ADT argument

(1/2) > >>

Steffen_Albrecht:
Hallo,

oben genannte Fehlermeldung erscheint, wenn die erste If- Bedingung erfüllt ist.
Ich verstehe nicht ganz warum.
Vielleicht kann mir einer von Euch auf die Sprünge helfen?

Gruß
   Steffen


key="LRGInfo_08"+uidoc.FieldGetText("Projektbezeichnung")+uidoc.FieldGetText("InterneAuftragsnummer")
   If (uidoc.FieldGetText("Zweck_08")<>"") Then
      Set doc = view.GetDocumentByKey( key  , exact  )
      If Not(doc Is Nothing) Then
         Set uidoc=workspace.ComposeDocument( "","", "LRGInfo_08")
      Else
         Set uidoc=workspace.EditDocument( False , uidoc )
      End If
   Else
      Messagebox("Bitte beben Sie den Verwendungszweck an bevor Sie ein neues Dokument erstellen")
   End If      

ata:
... ich denke dazu gibt es bereits Postings dazu. Geh doch mal über die Suche und gib 500 Tage asl Zeitraum ein...

ata

klaussal:
...
wie sehen denn die DIMs aus ?

ata:
... ich denke das Frontend-Doc liegt noch nicht im Backend vor...

ata

Steffen_Albrecht:
Hallo hier mein kompletter Quellcode:

Sub Click(Source As Button)
   
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim uidoc As NotesUIDocument
   Dim key As String
   Dim doc As NotesDocument
   Dim view As NotesView
   
   Set uidoc = workspace.currentdocument
   Set db=session.CurrentDatabase
   Set view=db.GetView("(FindDocs)")
   
   key="LRGInfo_08"+uidoc.FieldGetText("Projektbezeichnung")+uidoc.FieldGetText("InterneAuftragsnummer")
   
   If (uidoc.FieldGetText("Zweck_08")<>"") Then
      Set doc = view.GetDocumentByKey( key  , exact  )      
      If Not(doc Is Nothing) Then
'         Set uidoc=workspace.ComposeDocument( "","", "LRGInfo_08")
'         Call uidoc.GotoField("Lieferant")
         Messagebox("Test")
      Else
'         Set uidoc=workspace.EditDocument( False , uidoc )
'         Call uidoc.GotoField("Lieferant")
         Call workspace.EditDocument( True, uidoc )
      End If      
   Else
      Messagebox("Bitte beben Sie den Verwendungszweck an bevor Sie ein neues Dokument erstellen")
   End If      
   
End Sub

Der Sinn des Ganzen soll sein, dass auf knopfdruck ein Antwortdokunent auf das aktuell geöffnete erzeugt werden soll. Existiert das Doc schon, soll es geöffnet werden.

Gruß
   Steffen

Navigation

[0] Themen-Index

[#] Nächste Seite