Ansicht an Variable übergeben

[seerow]

Hallo

kleines Problem mit Lotus script. Wie kann ich eine Ansicht im Lotus script einer Variable zuweisen?
Bzw. möchte ich die Ansicht "view_printer_all_bycustomer" der Variable "viewname" zuweisen.
Ich dachte so:

Code

Dim workspace As NotesUIWorkspace
Dim view As NotesView
Dim viewnav As NotesViewNavigator
Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim viewname As String

Set workspace = New NotesUIWorkspace
Set view = db.GetView( "view_printer_all_bycustomer" )
Set viewnav = view.CreateViewNav()
Set session = New NotesSession
Set db = session.CurrentDatabase

'get the current view's name
viewname = view.Name

[koehlerbv]

Wie wäre es, wenn Du zuerst Dein Datenbank-Objekt instantiierst und erst danach davon das View-Objekt ableitest ? Du nimmst doch jetzt schon Bezug auf "db" und instantiierst es erst hinterher. "Object variable not set" war das Ergebnis, stimmts ?

Bernhard

PS: Ausserdem willst Du offensicht den Namen eienr Ansicht der Variablen viewname zuweisen. Aber der Name ist Dir ja bekannt ...

[seerow]

  ja Bernhard, da hast du recht.....genau das ist die Fehlermedlung

[seerow]

Bernhard, ich bekomme es nicht hin. Was genau meinst du?

[koehlerbv]

Wie sieht denn Dein Code jetzt aus ?

[seerow]

Es handelt sich hierbei um ein script welches die aktuelle View in ein csv Importiert. Ich möchte jedoch die View gerne
fest im script einfügen.

orginal code

Code

Dim workspace As NotesUIWorkspace
Dim view As NotesView
Dim viewnav As NotesViewNavigator
Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim viewname As String

Set workspace = New NotesUIWorkspace
Set uiview = workspace.CurrentView
Set view = uiview.View
Set viewnav = view.CreateViewNav()
Set session = New NotesSession
Set db = session.CurrentDatabase
viewname = view.Name

mein code

Code

Dim workspace As NotesUIWorkspace
Dim view As NotesView
Dim viewnav As NotesViewNavigator
Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim viewname As String

Set db = session.CurrentDatabase
Set workspace = New NotesUIWorkspace
Set session = New NotesSession
Set view = db.GetView( "view_printer_all_bycustomer" )
Set viewnav = view.CreateViewNav()

viewname = view.Name

[koehlerbv]

Naja, den Code hast Du etwas umgestellt, amchst aber nach wie vor den gleichen prinzipiellen Fehler.

Erst kommt
Set db = session.CurrentDatabase

DANACH kommt erst
Set Session = New NotesSession

Woher soll den bei
Set db = session.CurrentDatabase
der arme Compiler wissen, was Du mit session meinst, wenn Du das erst ein paar Zeilen später bekannt gibst ?

Weiterer Tip am Rande: Du kannst NotesSession und NotesUIWorkspace schon in der Deklaration instantiieren:
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace

HTH,
Bernhard

[seerow]

das gibts doch nicht....hast mal wieder recht gehabt.
Ich sehe schon, es wird langsam Zeit für 'ne Notesschulung.

Werden die Beiträge eigentlich noch auf "erledigt" gesetzt?

Danke Bernhard

[koehlerbv]

1. Gern geschehen.

2. Das mit dem "Erledigt"-Knopf ist in Arbeit - Arne rödelt ...

Bernhard