Domino 9 und frühere Versionen > ND7: Entwicklung

Verständnisproblem - Auswahl von Datensatz anhand einer Aktion

<< < (9/13) > >>

Angelos:
da bin ich wieder.  ;D
Die Hinweise haben mir bisher schon geholfen, jetzt hab ich jedenfalls einen kleinen Ansatz wo die Fehler liegen könnten. Ich denke da auch eher an eine falsche Verlinkung oder so etwas...

Versteht mich nicht falsch, ich würde sehr gerne an eienm Seminar teilnehmen und mir die Grundlagen aneignen. Aber ich stehe unter starkem Zeitdruck. Während der Theoriephase hat man kaum Zeit sich mit etwas anderem zu beschäftigen als mit dem Stoff und in der Praxisphase verlangt die Berufsakademie noch eine Studienarbeit die zügig abgeschlossen werden soll.
Somit hab ich zwangsweise im Moment keine andere Wahl als learning by doing und rumprobieren.

DAU-in:
Wo meinst du denn, dass der Fehler liegt?  :o

Angelos:

--- Code: ---Set doc = ws.CurrentDocument.Document
back = ws.PickListStrings ( PICKLIST_CUSTOM, _
False, _
db.Server, _
db.FilePath, _
"(ProjectByProjectTitle_OnlyNotClosed)", _

--- Ende Code ---

ich tendiere auf die letzte Zeile. Das ist doch die Ansicht die ich öffnen möchte, nicht wahr?
Picklist erzeugt ja das neue Fenster, das beim Drücken des Buttons erscheint, wenn ich es richtig aus der Hilfe verstanden habe.

DAU-in:
da fehlt ein Teil des Befehles
das ist einer der Punkte, die dir M3 schon gestern erklärt hat

und hast du seine Frage bzgl. der Ansicht überprüft?

Angelos:
Die Sache ist die, es gibt schon eine funktionierende Version dieser Aktion. Von daher glaube ich nicht, dass da ein Befehl fehlt. Die Variablennamen heißen bei meiner Aktion auch gleich.

Hier nochmal der Code. Das Grüne bezieht sich immer auf die obere Zeile. Da vermute ich die Fehler.


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

On Error Goto ERRORHANDLE

Dim db As New NotesDatabase( "","DHTimRegen.nsf" )
--- Ende Code ---
'Das ist meine lokal gespeicherte Datenbank.
           
--- Code: ---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, _
"(ProjectByProjectTitle_OnlyNotClosed)", _
--- Ende Code ---
'Hier muss die Ansicht rein, die ich öffnen will.
           
--- Code: ---"Projektauswahl", _
"Bitte ein Projekt auswählen", _
1, "")
If Isempty(back) Then Exit Sub
Call doc.replaceItemValue("Projekt",back(0))

Set View = db.getView("ProjectByProjectTitle")
--- Ende Code ---
' Oder muss hier die Ansicht rein die ich öffnen will?
   
--- Code: ---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("Projektnummer",value(0))

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

Exit Sub
ERRORHANDLE:

Msgbox "Projektauswahl Fehler:" + Error
Exit Sub
End Sub

--- Ende Code ---

Ach ja, die Ansicht, die ich anzeigen will heisst "Projektdokumente \nach Projektbezeichnung" und es gibt eine Spalte namens "Projektbezeichnung", der Typ dieser Spalte ist "Kategorie".

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete