Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Steffen_Albrecht am 12.07.02 - 14:05:49

Titel: Object Variable not set
Beitrag von: Steffen_Albrecht am 12.07.02 - 14:05:49

Hallo,

beim Einsetzen dieses Quellcodes, bekomme ich immer die Meldung "Object variable not set". Der Debugger bleibt bei Set
doc = view.getdocumentbykey( key ) stehen.
Weiß jemand warum? ???

Gruß
  Steffen

Function Ok2Save( source As NotesUIDocument ) As Variant
     Dim view As NotesView
     Dim db As NotesDatabase  
     Dim doc As NotesDocument
     Dim s As New NotesSession
     Dim key As String
     Dim key2 As String
     Dim item As NotesItem
     
          ' get the current database and view
     Set db = s.CurrentDatabase
     Set view = db.GetView("LieferantenKey") ' this is the view created in step 1 above
     
          ' refresh document for validation formulas and get key for this document
     Call source.Refresh
     key = source.fieldgettext("key")
     
          ' check to see if the document key already exists....
     Set doc = view.getdocumentbykey( "key" )
     
     If doc Is Nothing Then
          ' first time saved
           Ok2Save = True
           Exit Function
     Else
           Set item = doc.GetFirstItem("key")
           key2 = item.values(0)
           If key2 = key Then
          ' key matched...possible duplicate"
          ' subsequent saves
                 If doc.UniversalID = source.document.UniversalID Then
          'saving same document
          'unid matched, same doc, saving..."
                       Ok2Save = True
                       Exit Function
                 Else
          ' duplicate document
          ' unid is different with same key...duplicate document"  
                       Messagebox "Sie dürfen keine Dublikate von Dokumenten anlegen.",64,"Fehler beim Speichern"
                       Ok2Save = False
                 End If
           Else
          ' keys dont match not the same document
          'keys dont match...saving"
                 Ok2Save = True
           End If
     End If
End Function

Titel: Re: Object Variable not set
Beitrag von: Grabby am 12.07.02 - 14:30:39

Hi Steffen.

Belegt er denn überhaupt die View beim Durchlauf Deines Scriptes? Ich hatte ein ähnliches Problem, hab' 'n Wert aus einer Ansicht gesucht und eben diese Fehlermeldung bekommen. Hab mich in meinem Script im Ansichtsnamen verschrieben, so dass er die view gar nicht belegen konnte. Daraufhin natürlich auch nicht bezüglich des Keys fündig wurde.

Gruß
Grabby

Titel: Re: Object Variable not set
Beitrag von: Steffen_Albrecht am 12.07.02 - 14:42:58

Klasse! Daran hat es gelegen... Danke!  :D

Ich Depp hab die Klammern  um den Ansichtsnamen vergessen!