Domino 9 und frühere Versionen > Entwicklung

...Ansicht öffnen aus anderer DB mittels Openview

(1/2) > >>

friedolin:
 ??? ???

dieses LS öffnet mir gezielt das dokument in einer ander DB, aber ich
möchte jetzt nur die Ansicht gezielt öffnen
was und wo müssen die Befehle noch stehen, bin noch kein LS-Spezi
irgendetwas mit OpenView hab ich gelesen aber ich bekomm es nicht auf die Reihe.

Sorry, brauche mal Eure hilfe!

friedolin

Sub Click(Source As Button)
   On Error Goto ende
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim WinNr3 As String
   
   Set ws = New notesUIWorkspace
   Set uidoc = ws.currentDocument.Document

   Set db = session.GetDatabase( "ODN-RD/RD/DATA/DE", "orbis/adminaddr.nsf" )
   Set view = db.GetView( "(Alles nach WinNr)" )
   
   WinNr3 = Mid$(uidoc.WinNr(0), 2, 3)
   Set doc = view.getdocumentbykey(WinNr3)
   Call ws.editdocument(False, doc,)
   Exit Sub
ende:
   Msgbox "Adress-Link nicht möglich, WinNr > " + WinNr3 + " wurde nicht gefunden!" , 48, "Adress-Link Error"
   Exit Sub
End Sub

Driri:
Hi,

du kannst über die UIDatabase eine View öffnen.

Dim ws as New NotesUIWorkspace
Dim uidb as NotesUIDatabase

Set uidb = ws.CurrentDatabase

Call db.OpenView("Ansicht")


Übrigens : In deinem Script fehlt noch die Deklarierung des uidocs  ;)

koehlerbv:

--- Zitat ---Übrigens : In deinem Script fehlt noch die Deklarierung des uidocs
--- Ende Zitat ---

Aus diesem Grunde sollte man ja auch immer, bevor man auch nur eine einzige Zeile in ein neues Modul schreibt, Option Declare setzen.

By the way: Der Variablenname uidoc ist extrem unglücklich gewählt, da der Name ja impliziert, es handele sich dabei um ein NotesUIDocument - eingesetzt wird er aber für ein NotesDocument.
Das kann einem später erheblichen Ärger (bei der Fehlersuche) bescheren. Natürlich steht es jedem frei, eine Variable auch TanteHerta zu nennen, aber ...  ;)

HTH,
Bernhard

friedolin:
 ???

hallo diri,
habe es mal so ergänzt, kommt aber auf folgende fehler:



Sub Click(Source As Button)
   On Error Goto ende
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim uidb As NotesUIDatabase
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim WinNr3 As String
   
   Set ws = New notesUIWorkspace
   Set uidoc = ws.currentDocument.Document
   Set uidb = ws.CurrentDatabase
   
   Set db = session.GetDatabase( "ODN-RD/RD/ORGA DATA/DE", "orbis/adminaddr.nsf" )
      
   WinNr3 = Mid$(uidoc.WinNr(0), 2, 3)
   -- Fehler:  WinNr is not a member

   Call db.OpenView( "($WinNr)" , WinNr3 )
   -- Fehler:  OpenView is not a member

   Exit Sub
ende:
   Msgbox "Adress-Link nicht möglich, WinNr > " + WinNr3 + " wurde nicht gefunden!" , 48, "Adress-Link Error"
   Exit Sub
End Sub

Glombi:
Das
Set uidoc = ws.currentDocument.Document

ist KEIN NotesUIDocument, sondern ein NotesDocument

Der Name uidoc ist unglücklich, besser Du nennst es nur doc.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite