Hi ich habe zwar schon hier die Suche gequält komme aber leider nciht weiter, aber evtl. kann mir hier jemand helfen.
Ich habe eine Pickliste welche ich mit einer View fülle, aber nun möchte ich mir gerne den Inhalt
einer Spalte des Ausgewählten Dokumentes mir ausgeben lassen leider ohne Erfolg.
Hier der Code:
Const ITEMNAME$ = "ID_MainDOC"
Const VIEWNAME$ = "Main_Doc"
Const DELIMITER_TITLE_UNID$ = "~"
Const COLUMN$ = "1" 'which column contains the itemnames ?
Const MSGPICKLIST_TITLE$ = "Document selection"
Const MSGPICKLIST_TEXT$ = "Please select a main document to which you want to assign this response document:"
Const ERRMSG_1001$ = "Current document is not in edit mode."
Const ERRMSG_LINE2$ = "Operation has been canceled."
On Error Goto ErrorHandler
Dim session As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim docCur As NotesDocument
Dim vPicklistReturn As Variant
Dim strLeftValue As String
Dim i As Integer
Dim ID_Field As Variant
Dim view As NotesView
Set db = session.CurrentDatabase
Set uidoc = uiws.CurrentDocument
Set docCur = uidoc.Document
'Only continue if the current document is a response & if it is in the edit mode
If Not uidoc.EditMode Then Error 1002, ERRMSG_1001
'Display the documents and let the user select one
vPicklistReturn =uiws.Pickliststrings( _
PICKLIST_CUSTOM, _
False, _
db.Server, _
db.FilePath,_
VIEWNAME,_
MSGPICKLIST_TITLE, _
MSGPICKLIST_TEXT, _
COLUMN)
If Isempty(vPicklistReturn) Then Goto GoOut 'user did not select a document
'Get left and right value
strLeftValue = Instr(vPicklistReturn(0), ITEMNAME)
Messagebox "String: " +strLeftValue
Wo liegt denn mein Fehler
Gruß und schon danke für die Antworten
Jörg
