"Object variable not set"

[inu]

Hallo Leute,

folgendes Fragment:

Dim Workspace  As New NotesUIWorkspace   
Dim UIDoc         As NotesUIDocument
Dim Nummer     As variant
Set UIDdoc     = Workspace.CurrentDocument
Nummer         = UIDoc.FieldGetText("Kurzinfo_Nummer")

die letzte Zeile liefert im Debugger den Fehler "Object variable not set". UIDoc ist vorhanden und auch das Item namens "Kurzinfo_Nummer".

Was nun?

[ascabg]

Wie waers mit

Nummer = UIDdoc.FieldGetText("Kurzinfo_Nummer").


Andreas

%Edit.
Ein

Code

Option Explicit

Hilft in derartigen Faellen oft weiter.

[inu]

Habe ich schon mitgeteilt, dass ich seit 4:30 Uhr auf den Beinen bin?

Ich muss mir wohl eine Brille zulegen! Danke

[Klafu]

aus der hilfe noch ein beispiel

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim composed As String
  Set uidoc = workspace.CurrentDocument
  composed = uidoc.FieldGetText( "DateComposed" )
End Sub


Chris

Edit: war wohl zu langsam 

[ascabg]

Wie schon.

Ich bin seit 03:00 Uhr auf den Beinen und darf noch ca. 2 Std fuer den Weg nach Hause einplanen.
 


Andreas

[inu]

@ascabg: Dann hast Du eindeutig die bessere Kondition.