Domino 9 und frühere Versionen > ND8: Entwicklung

keine CurrentDatabase in WS

(1/4) > >>

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:

--- Zitat von: Designer Hilfe ---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).

--- Ende Zitat ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite