Domino 9 und frühere Versionen > ND7: Entwicklung

Verständnisproblem - Auswahl von Datensatz anhand einer Aktion

<< < (5/13) > >>

m3:
Axel, ich habe den relevanten Teil extra ausge-Xt, damit der Engel mal die Designer-Hilfe benutzt. :(

Axel:

--- Zitat von: m3 am 02.07.08 - 12:48:47 ---Axel, ich habe den relevanten Teil extra ausge-Xt, damit der Engel mal die Designer-Hilfe benutzt. :(

--- Ende Zitat ---

Ich hab's gesehen, aber ich konnte "das Gestochere" einfach nicht mehr mit ansehen.   ;) :o


Axel

Angelos:
VIelleicht hilft das weiter:


--- Code: ---Sub Click(Source As Button)

On Error Goto ERRORHANDLE

Dim db As New NotesDatabase("","C:\Program Files\lotus\notes\data\DHTimRegen.nsf")
Dim view As NotesView
Dim doc As NotesDocument
Dim session As New NotesSession
Dim projectdoc As NotesDocument
Dim ws As New NotesUIWorkspace
Dim back As Variant
Dim value As Variant

Set doc = ws.CurrentDocument.Document
back = ws.PickListStrings ( PICKLIST_CUSTOM, _
False, _
db.Server, _
db.FilePath, _
"(Projektdokumente \nach Projektbezeichnung)", _
"Projektauswahl", _
"Bitte ein Projekt auswählen", _
1, "")
If Isempty(back) Then Exit Sub
Call doc.replaceItemValue("Zeitprojekt",back(0))

Set View = db.getView("ProjectByProjectTitle")
If view Is Nothing Then Error 1002, "Projekt-Ansicht konnte nicht geöffnet werden."

Set projectdoc = view.getDocumentByKey( back(0) )

value = projectdoc.getItemValue("ProjectNo")
Call doc.replaceItemValue("Zeitprojektnummer",value(0))

value = projectdoc.getItemValue("ProjectManager")(0)
Call doc.replaceItemValue("Zeitprojektverantwortlicher",value)

value = projectdoc.getItemValue("ProjectTeam")(0)
Call doc.replaceItemValue("Zeitprojektteam",value)

value = projectdoc.getItemValue("ProjectCostCentre")(0)
Call doc.replaceItemValue("Zeitprojektkostenstelle",value)
Exit Sub
ERRORHANDLE:

Msgbox "Projektauswahl Fehler:" + Error
Exit Sub


End Sub

--- Ende Code ---

Das mit den doppelten Anführungszeichen für local hab ich schon probiert. Er spuckt trotzdem noch ne Fehlermeldung aus. "Eintrag nicht in Gestaltungsliste". Das Umstellen auf Englisch hat nichts gebracht von daher kann ich leider keine passendere Fehlermeldung angeben. Die Hilf sagt auch nichts zu diesem Fehler. (Zudem die Hilfe mal sowas von benutzerfeindlich aufgebaut ist...)

klaussal:
Wo kommt der Fehler (Zeile) ?
Was sagt der Debugger ?


--- Zitat ---Zudem die Hilfe mal sowas von benutzerfeindlich aufgebaut ist...
--- Ende Zitat ---
Stimmt nur teilweise. Man(n) muss schon wissen, wie und was man sucht.

Angelos:
der Debugger verweist auf folgende Breakpoints:
1.) On error go to errorhandle
2.) Dim db as New NotesDatabase...
3.) dim session as new notessession
4.) dim ws as new NotesUIWorkspace
5.) Set doc = ws.CurrentDocument.Document
6.) 1."")

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete