Domino 9 und frühere Versionen > ND6: Entwicklung

Datenbank öffnen im InViewEdit?

(1/3) > >>

wuwu:
Hallo,

User erhalten von uns per Mail einen Link zu einem Dokument in einer Datenbank.
Dieses Dokument öffnen Sie dann, und sehen unter anderem eine eingebettete Ansicht.
Dort habe ich im InViewEdit einen Code eingebaut der auf die aktuelle DB zugreift:
set db = ws.currentdatabase.database

Jetzt bekomme ich natürlich einen Fehler wenn die DB nicht offen ist!
1. Wie kann ich das Abfragen ob die DB im Workspace schon offen ist? Wenn ja,
2. Das öffnen einer DB im WS ist kein Problem, aber wenn ich Sie öffne, das er dann auf das geöffnete Dokument zurückspringt, wie geht das bzw. geht das überhaupt?

Danke für eure Hilfe im vorhinein!
Mfg Horst

Tode:
"Fehlermeldung wenn die Datenbank nicht offen ist":

Was für eine Fehlermeldung ?

In dem Moment wo Du eine Maske / Ansicht / Rahmengruppe / irgendwas aus einer Datenbank offen hast, ist auch die Datenbank an sich "offen".

Also sag uns bitte, welche Fehlermeldung exakt erscheint, an welcher Stelle sie erscheint (debugger), und wie die betreffenden Variablen gefüllt sind. Dann können wir Dir vielleicht auch helfen...

Tode

wuwu:
Der Code lautet:

Sub Inviewedit(Source As Notesuiview, Requesttype As Integer, Colprogname As Variant, Columnvalue As Variant, Continue As Variant)
   On Error Goto Errorhaendler
   
   
   Const QUERY_REQUEST = 1       ' used when the user enters the editable column
   Const VALIDATE_REQUEST = 2     ' used when the user exits the editable column
   Const SAVE_REQUEST = 3      ' saves after validation for an existing view entry
   Const NEWENTRY_REQUEST = 4   ' after validation when the user makes a new entry in a view
   
  ' Editable columns
   fieldName(0) = "work_plan_device_percent"
   fieldName(1) = "work_plan_setup_time"
   fieldName(2) = "device_piece"   
   fieldName(3) = "work_plan_time_piece"
   fieldName(4) = "work_plan_follow_nr"
   
   Dim ws As NotesUIWorkspace
   Dim note As NotesDocument
   Dim db As NotesDatabase
   Dim i As Integer
   
   Set db = ws.CurrentDatabase.Database
   If (Source.CaretNoteID = "0") Then   Exit Sub
.............
Beim Fett angezeigte Codeabschnitt kommt die Meldung Objekt Variable not Set.
Code steht im InViewEditMode!

Sorry, das ich das nicht gepostet habe!

Tode:
und hier ist der Fehler:

Dim ws As NotesUIWorkspace

muss heissen

Dim ws As New NotesUIWorkspace


sonst ist nämlich die Object Variable "ws" not set.

Tode

Axel:
Hi,

du hast zwar die Variable ws deklariert, aber nicht instanziiert. Daher die Fehlermeldung.


Dim ws As New NotesUIWorkspace
   Dim note As NotesDocument
   Dim db As NotesDatabase
   Dim i As Integer
  
   Set db = ws.CurrentDatabase.Database
   If (Source.CaretNoteID = "0") Then   Exit Sub
...

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite