keine CurrentDatabase in WS

[tabama]

Wie ist es möglich, dass im Workspace keine Aktuelle Datenbank vorhanden ist?

[Klafu]

Ist die nicht im Session ?

Set Maildb = session.Currentdatabase

[tabama]

Hallo,

ich brauche aber die "uidb" aus "ws", weil ich eine Ansicht öffnen will

  Set uidb = ws.CurrentDatabase
  Call uidb.OpenView("xy")

[BigWim]

Returns a NotesUIDatabase object representing the database that's currently open.
...
Usage
The GetCurrentDatabase method supersedes this property due to the failure of the property when the user accesses the current database through View - GoTo (for example, on the workspace menu with the database selected).

Von wo aus erfolgt den der Aufruf Deiner Funktion?
Und poste mal die vollständige Initialisierung Deiner Funktion

Markus

[tabama]

Hallo Markus,

über eine Aktion. Die vielen remarks kommen daher, dass ich noch am testen bin.


Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Set db = session.CurrentDatabase
'    Set view = db.GetView( "Selektionsergebnis" )
'    Call view.Remove
   
    'view privatisieren   
   Dim ws As New NotesUIWorkspace
   Dim uidb As NotesUIDatabase
   
'   Set uidb = session.CurrentDatabase
   
   Set uidb = ws.CurrentDatabase
   Call uidb.OpenView("xy")
   
    'view schließen   
'    Dim ws As New NotesUIWorkspace
   Dim uiview As NotesUIView
   Set uiview = ws.CurrentView
   Call uiview.Close
End Sub

[BigWim]

Verhält sich bei mir genauso - kann ich Dir aber nicht erklären.

ich hole mir - wie Klafu - die Datenbank auch immer über session.

Markus

[m3]

Hallo,

ich brauche aber die "uidb" aus "ws", weil ich eine Ansicht öffnen will

  Set uidb = ws.CurrentDatabase

The GetCurrentDatabase method supersedes this property due to the failure of the property when the user accesses the current database through View - GoTo (for example, on the workspace menu with the database selected).

[tabama]

Hallo,

habe den Verweis auf die Hilfe nicht verstanden. Habe mir nochmal die Hilfe angeschaut. Dort steht weit und breit nichts davon, dass ich die uidb nicht über eine Aktion aufrufen kann.

Nun habe ich im querryopen und postopen der Ansicht die uidb holen wollen, aber auch das geht schief.

Weiß jemand wo ich die uidb greifen kann bzw. wie ich mit script eine View öffnen kann?

[BigWim]

Code

	Dim ws As New NotesUIWorkspace
	Dim uidb As NotesUIDatabase
	
	
	Set uidb = ws.GetCurrentDatabase
	Call uidb.OpenView("xy")

Markus

Weiß jemand wo ich die uidb greifen kann bzw. wie ich mit script eine View öffnen kann?

Mal ehrlich. Wenn nicht hier wer dann? Aber das funktioniert besser, wenn Du z. B. das hier beachten würdest ...

[S2000]

Hallo,

also die currentview hast du ja im zugriff (siehe dein screenshot) und für jede weitere View kannst du über das database object der session gehen.

Gruß
Armin

[tabama]

Hallo Armin,

mein Ziel ist es aber, eine View im Frontend zu öffnen. Dazu gibts die Methode "uidb.OpenView". Und dazu brauche ich halt die "uidb".

Trotzdem Danke

[S2000]

... ok, und soll dann in der ansicht gemacht werden (könntest ja auch ne form nehmen mit ner embedded view und die view über ein feld in der form bestimmen).

Gruß
Armin

[Klafu]

Code

This example gets the current database and opens the By Category view.
Dim workspace As New NotesUIWorkspace
Dim db As NotesUIDatabase
Set db = workspace.GetCurrentDatabase
Call db.OpenView("By Category")

Chris

[BigWim]

@Chris

Vielleicht hätte ich in meinem Post noch beschreiben müssen, dass statt xy noch der Name der View einzusetzen ist. Aber ich dachte, weil es sein Beispiel war, wäre das nicht nötig ....

Ich hoffe, Dein Beispiel macht es deutlicher

Markus

[Klafu]

Hallo Markus,

Jetzt fällt mir erst auf, das wir praktisch das selbe geposted haben.
Aber wir werden sehn, ob dies den Threadersteller auf die richtige Bahn bringt 

Chris

[tabama]

Hallo Chris und Markus,

zuerst habe ich gedacht, nun habe ich den Fehler.
Ich habe nämlich nicht die Methode mit "get" aufgerufen, sondern die Eigenschaft benutzt.

Aber es kommt das gleiche raus: CurrentDatabase ist leer.

[Klafu]

Geh in deine Maildatenbank - erstelle eine neue E-Mail.
In dieser erstellst du einen Button der folgendes LS ausführt:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesUIDatabase
   Set db = workspace.GetCurrentDatabase
   Call db.OpenView("($All)")
End Sub

Dann geht die Ansicht: Alle Dokumente auf.
Klappt reibungslos.

Chris

[tabama]

Hallo,

@Chris: Es ist aber nicht mein Ziel in der Mail-DB eine Ansicht zu öffnen, sondern in der gerade aktuellen (was nicht die Mail-DB ist).

Ich habe es nun geschafft, die uidb in meiner Aktion zu haben. Ich ermittle diese in einer scriptbibliothek und binde diese in die Aktion ein.
Wie ihr sehen könnt, ist die uidb da und die Views sind auch drin. Nun bekomme ich aber eine Fehlermeldung, wenn ich eine der views öffnen will.

[Klafu]

Davon, das du nich aus der Maildb die "Alle Dokumente" Ansicht öffnen willst, bin ich ausgegangen.
Ich wollte dir nur ein Beispiel zeigen, wie du diese Funktion einsetzen kannst.
Du musst praktisch nur statt wie bei mir "($All)" "0Gesamt\Nach Instiut" einsetzen und es muss gehen.
Da brauchst du auch keine Scriptbibliothek.

Willst du nicht mal deinen ganzen Code posten ?

Chris