Verständnisproblem - Auswahl von Datensatz anhand einer Aktion

[m3]

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

[Axel]

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

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


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

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 ?

Zudem die Hilfe mal sowas von benutzerfeindlich aufgebaut ist...

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."")

[m3]

1) Der Pfad zur Datenbank tut mir in der Seele weh. Wenn die Datenbank im Notes-Datenpfad ist, reicht der Teil "DHTimRegen.nsf" (steht auch in der Designer-Hilfe).

2) Es fehlt ein grundlegende Fehlerbehandlung. Ist DB überhaupt gesetzt und valide, ist ws, doc, ... gesetzt und valide, ....

3) Gibt es die View "(Projektdokumente \nach Projektbezeichnung)" ?

4) Wenn es die View gibt, ist diese kategorisiert und gibt es eine leere Kategorie (du gibst ja als Category "" an)?

[koehlerbv]

Was soll dieser Code denn überhaupt bewirken? Das, was da abläuft, ist komplett sinnfrei - es gibt keinerlei Ergebnis ...

Bernhard

[m3]

Hihi. Jetzt hab ich grad gesehen, worauf sich Bernhard bezieht. *ggggg*

[Angelos]

@m3

zu 1) bereinigt. Danke für den Hinweis.
zu 2) wtf? 
zu 3) ja, die view (Ansicht) gibt es.
zu 4) keine Ahnung?   

[DAU-in]

zu 4) keine Ahnung?   

nachsehen? 

und dann noch die Hilfe zur Save-Method befragen.

[klaussal]

Also wenn ich das richtig sehe, fehlen dem "Engel" die Basics.

Da ist wohl zuerst eine Schulung o.ä. angebracht. Ansonsten bringt das hier nix.

[koehlerbv]

Also wenn ich das richtig sehe, fehlen dem "Engel" die Basics.

Das schrieb er schon:

zu 4) keine Ahnung

Vor allem soll er erstmal aufmalen, was überhaupt Sinn und Zweck der Sache ist - erst dann kann man überhaupt behilflich sein.

Bernhard

[Angelos]

also, hier nochmal worum es genau geht und was genau mein Problem ist.
Siehe Anhang: Screenshots beigefügt.

Also, ich will auf einen Button klicken (in dem Beispiel "Auswahl nach Projektbezeichnung"). siehe Bild01.

Dieser soll ein Pop-Up öffnen (siehe Bild2) in dem ich das Projekt, dass ich will auswähle und die jewelige Projektnummer und Projektbezeichnung in meine Maske übernimmt.

Ich hab bisher diejenigen Werte (zumindest das was mir klar ist) auf meine Bedürfnisse umgeschrieben. (z.B. Dateipfad, Name der Ansicht, Values...)

[m3]

zu 2) wtf? 

If doc|db|ws Is Nothing Then ...
Defensive Programmierung, Fehlerbehandlung? Sollte bekannt sein.

Weiter solltest Du, wenn Du Methoden wie "PickListStrings" verwendest, Dir auch die Designer-Hilfe dazu und zu den sich daraus ergebenden Themen GENAU ansehen. Dann sollte Dir (4) klarer werden.

Und einfach zum Nachdenken: Was passiert mit dem Wert, den Du mit "Call doc.replaceItemValue("Zeitprojekt",back(0))" in das Feld des Dokuments schreibst, wenn Du die Sub verlässt?

[koehlerbv]

Das ErrorHandling sollte unbedingt wie folgt ergänzt werden:

Code

Msgbox "Projektauswahl Fehler:" & Error$ & " " in Zeile " & Cstr (Erl) 

Beachte auch das "&" statt "+"! Das "+" ist NICHT der String Concenator!

Weiters: Die Fehlermeldung "... nicht in Gestaltungsliste" weist eindeutig auf die fehlerhafte Referenz auf ein nichtexistentes Designelement hin. Die angegebene Ansicht in PicklistStrings ist da sehr naheliegend. Da stimmt etwas nicht - das Leerzeichen vor dem Backslash?

Und: Geh strukturierter an die Sache heran - Code "finden" und dann mit try & error abändern wird niemals dauerhaft funktionieren!

Bernhard

[m3]

Weiters: Die Fehlermeldung "... nicht in Gestaltungsliste" weist eindeutig auf die fehlerhafte Referenz auf ein nichtexistentes Designelement hin. Die angegebene Ansicht in PicklistStrings ist da sehr naheliegend. Da stimmt etwas nicht - das Leerzeichen vor dem Backslash?

Ich glaub eher es liegt daran, dass er mit einer Kategorie in eine nicht kategorisierte View fährt.

Irgendwie zipft mich das an, kostenlos remote jenen Unterricht zu geben, den unser Engelchen eigentlich Firmenintern bekommen sollte. Da stimmst was prinzipiell nicht. (Und Angelos, ich mach Dir persönlich keinen Vorwurf daraus)

[Angelos]

Code

Weiters: Die Fehlermeldung "... nicht in Gestaltungsliste" weist eindeutig auf die fehlerhafte Referenz auf ein nichtexistentes Designelement hin.

und genau um DIESE Fehlermeldung dreht sich alles. Wenn das verschwindet, komme ich wohl wieder alleine zurecht.

[DAU-in]

dann lies dir doch das Statement von M3 zur kategorisierten View nochmals durch.

[koehlerbv]

Tja, nun isser wech - aber was unsere Hinweise nun bewirkt haben, bleibt im Dunklen ...

Bernhard 

[guesswho]

Beachte auch das "&" statt "+"! Das "+" ist NICHT der String Concenator!

nur blöd, dass genau das "+" in den Herdt-Unterlagen (bzgl. Script) konsequent und durchgängig als String Concenator angegeben ist.

Als ich meinem "Engel" hier nach ihren tagelangen Problemen und Versuchen (und endlich dann einer Rückfrage!) erklärt habe, dass das nun GAR NICHT GEHT, hat die mir nach zwei Stunden Suche in der Notes-Hilfe gezeigt, dass es auch dort als Option beschrieben ist....   

Wenn unsere Engelchen Grundlagen BEHERRSCHEN würden, wäre das alles kein Problem. Aber mal kurz reinspringen, Semi besuchen, Buch durchwälzen und noch eine Herdt-Unterlage. So, jetzt kann ich alles!

Stimmt, alles ausser den (verd....) Grundlagen

Ach, nur noch eine Frage: Wie kann ich in einer Ansicht Integer in Long umwandeln ? 

Weitere Aussagen verkneif ich mir 

Jo