Feld nicht gefunden

[notesnewbie]

Hi,

ich hätte mal wieder ein Problem.

In einer Ansicht habe ich einen Button angelegt um Dokumente über eine Eingabemaske (ohne das Dokument zu öffnen) eine Nummer schnell und problemlos eingeben zu können. Dieses funktioniert auch. Nun kam ich auf die Idee vor dem update zu prüfen ob das Nummernfeld innerhalb des Dokumentes bereits gefüllt ist. Allerdings kommt er mir jetzt immer mit dem Fehler "Object variable not set". Ich bin noch etwas unerfahren in der Script Programmierung und denke das ich einen Fehler in den Klassen habe. Vielleicht sieht ja jemand den Fehler und kann mir einen Tipp
geben.

Anbei der Code:

Sub Click(Source As Button)
   Dim session As NotesSession
   Dim ws As New NotesUIWorkspace
   Set session = New NotesSession
   Dim uidoc As NotesUIDocument
   Set uidoc =ws.CurrentDocument
   
   If ( uidoc.FieldGetText( "nummer" ) = "" )  Then
   Call.dialogbox "erfassung",True,True,True,,,,"Bedarfsmeldu                ngsnummer",,True,True)
   Else
   Messagebox( "Personalbedarfmeldung wurde bereits         übergeben !" )
   End If
   
End Sub.

Danke

NotesNewbie

[eknori]

also der code ist i.O.
was sgt denn der DEBUGGER ?? Stimmt der Feldname ??

[Glombi]

Das
 Call.dialogbox
muss
call ws.Dialogbox(...
heißen.

Andreas

[notesnewbie]

Hi,

@eknori,
    Im Debugger zeigt er mir die Variable nicht an.
    Mache ich den selben Button mit selbem Code im Dokument selbst funktioniert alles.  
@Glombi
   entschuldigung. Tippteufel.  ich habe dort ws.dialogbox stehen  



NotesNewbie

[Driri]

Hi,

hab ich das richtig verstanden, du führst das Script in der View aus, das Dokument ist aber nicht offen ?

Dann dürfte er das Objekt uidoc auch nicht setzen können.

Kopie aus der Notes-Hilfe :

Usage
This method cannot be used to access the document that's currently highlighted in a view or folder.

[Driri]

Nachtrag :

Versuchs mal so :

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim uiview as NotesUIView
   Dim doc As NotesDocument
   Dim feld as Variant

   Set uiview = ws.CurrentView
   Call uiview.SelectDocument( doc )

   feld = doc.GetItemValue( "nummer" )
 
   If ( feld(0) = "" )  Then
   Call.dialogbox "erfassung",True,True,True,,,,"Bedarfsmeldu                ngsnummer",,True,True)
   Else
   Messagebox( "Personalbedarfmeldung wurde bereits        übergeben !" )
   End If
   
End Sub.

[notesnewbie]

Hi,

ich möchte mich für die Antworten bedanken.

@Diri
Leider hat es nicht ganz so geklappt wie ich wollte. Aber egal nach etwas nachdenken habe ich dann einen anderen Lösungsweg gesucht.

Bis dann

NotesNewbie