Tach auch.

Innerhalb der Form habe ich unter 'Globals' ein Objekt vom Typ NotesDocument gedimt. Dieses Dokument wird im 'QueryOpen-Event' zum Leben erweckt. Der Vollständigkeit halber muss ich noch hinzufügen, dass dieses Dokument aus einer anderen als der aktuellen Datenbank befruchtet wird.
So.
in einem anderen Event, dem 'PostOpen-Event' versuche ich auf dieses bis zum diesem Zeitpunkt von 'Nothing' verschiedene Dokument zuzugreifen. Aber, und das ist das Problem, es ist tot, d.h Nothing.

Kann mir jemand sagen, was da abgeht? Hängt das vielleicht damit zusammen, das dieses Dokument aus einer anderen DB geladen wird? Warum verliert es beim Event-Wechsel die Referenz?
Aber warum sollte ich dann überhaupt noch ein Objekt global definieren?

Vielen Dank für Eure Mühe im voraus.......


Gruss Gapee




Bitte helft mir Obi-Wan Kenobi, Ihr seid meine letze Hoffnung

TACH!

Danke erst mal für Deinen Beitrag.
Also ich habe nochmal nachgeschaut:

1. Mit dem Debugger ist in der Tat ein Dokument im 'QueryOpen-Event' gesetzt worden und

2. Eine erneute Deklaration im 'PostOpen-Event' findet nicht statt.

Das ist doch alles sehr sehr merkwürdig.
Hast Du vielleicht eine andere Idee? Bin über jeden Denkansatz dankbar

Gruss

Ja genau. Ist alles da...

OK. Also dann:

Globals (NotesForm):

Public WFDbProfile As NotesDocument
Public SetupDbProfile As NotesDocument


QueryOpen-Event:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   
   Const cSetupProfileView = "DBPROFILEHIDDEN"
   
   Dim Session As New NotesSession
   
   Dim SetupDb As NotesDatabase
   Dim SetupProfileView As NotesView
   
   Dim cSetupServer As String
   Dim cSetupFilename As String
   Dim cMessage As String
   
   ' grab workflow-database profile document
   Set WFDbProfile = GetDBProfileDocument Hieran nicht stören.Alles bestens
   
   If( Source.IsNewDoc ) Then
      
      If( Not WFDbProfile Is Nothing ) Then
         
         cSetupServer = WFDbProfile.SetupDbServer(0)
         cSetupFilename = WFDbProfile.SetupDbFilename(0)
         
         Set SetupDb = Session.GetDatabase( cSetupServer, cSetupFilename, False )
         If( Not SetupDb Is Nothing ) Then
            
            Set SetupProfileView = SetupDb.GetView( cSetupProfileView )
            Set SetupDbProfile = SetupProfileView.GetFirstDocument         ' hier ist es da
            If( Not SetupDbProfile Is Nothing ) Then
                              continue = True
            Else
               
               cMessage = |Das Profil-Dokument für die Invoice-Master Setup-Datenbank ist nicht vorhanden.
Bitte verständigen Sie den System-Administrator|
               
               Messagebox cMessage, 64, "Datenbank-Fehler"
               continue = False
            End If
         Else
            
            cMessage = |Die Invoice-Master Setup-Datenbank konnte nicht erreicht werden.
               Bitte kontaktieren Sie den System-Administrator|
            
            Messagebox cMessage, 64, "Datenbank-Fehler"
            continue = False
         End If
      Else   
         ' don't allow to create a new user profile (let admin create a db profile first)         
         
         cMessage = |Wegen eines fehlenden Datenbank-Profil-Dokumentes können Sie
            leider zur Zeit kein Benutzer-Profil anlegen.
Bitte kontaktieren Sie den System-Administrator|
         
         Messagebox cMessage, 48, "Datenbank-Setup-Fehler"
         
         Continue = False
      End If
   End If
   
End Sub

Und schliesslich das
PostOpen-Event:
Sub Postopen(Source As Notesuidocument)

stop
   If( Not SetupDbProfile Is Nothing ) Then   ' und hier nicht mehr
      
      With Source.Document
         ' grab some settings from setup database's profile document
         
         .System = SetupDbProfile .System(0)
         .SystemGUID = SetupDbProfile .SystemGUID(0)
         .SeratioAdress = SetupDbProfile .SeratioAdress(0)
         .SeratioPort = SetupDbProfile .SeratioPort(0)
         .ArchiveAdress = SetupDbProfile .ArchiveAdress(0)
         .ArchivePort = SetupDbProfile .ArchivePort(0)
         
         Call .Save(True, True)
      End With
   End If

End Sub

Hoffentlich hilft's

Sieht alles gut aus, bis auf

1)
If( Source.IsNewDoc ) Then...

D.h. das SetupDbProfile wird nur bei neuen Dokumenten gesetzt.

2) Es handelt sich nicht wirklich um ein Profildokument, oder? Denn dann kann man es nicht so
Set SetupDbProfile = SetupProfileView.GetFirstDocument        
setzen.


Kannst Du mal zweckes Tests folgendes machen:
If( Not SetupDbProfile Is Nothing ) Then
msgbox SetupDbProfile.System(0)
                              continue = True


Dann müsste ja was ausgegeben werden.

Andreas

Könnte es möglicherweise sein, dass die Dok-Referenz verschwindet, weil es aus einer anderen Datenbank kommt?

Eigentlich nicht. Versuche mal, das "Public" in den Globals durch "Dim" zu ersetzen.

Wenn das auch nicht geht, nimm das mal aus den Globals raus und deklariere es mit Dim unter (Declarations).

Ansonsten bin ich genauso ratlos wie Du  

Andreas

ich glaube, das hängt damit zusammen, dass du das SetupDoc-Objekt aus ner "fremden" DB holst.
nach dem QueryOpen wird das SetupDB-Objekt zerstört und damit wird dem SetupDoc-Objekt irgendwie die Existenzgrundlage entrissen und es wird auch zerstört.
Was du mal versuchen könntest, ist die SetupDB auch Global zu deklarieren.
Vielleicht sogar das NotesSession-Objekt

alternativ könntest du dir ne eigene Klasse basteln.
Davon ein Objekt erzeugen und da im QueryOpen die Werte aus dem Profildok lesen und dein eigenes Objekt als global deklarieren

nicht nur beim Eventwechsel. Du kannst das z.B. auch nicht als Funktionsparameter übergeben (ich glaube jedenfalls, mich an sowas erinnern zu können).
Also sobald du aus dem Scope, wo du das Teil instanziiert hast rauskommst, is es wech.

>In was für einem Global hast Du das denn sonst gesetzt gehabt? Wenn das Formularweit gelten soll (sprich bei verschiedenen Events), dann gehört das doch ins Form-Globals?

gapee hatte nur das Document-Objekt global deklariert, das war das Problem. Er/Sie muss zusätzlich das DB-Objekt global deklarieren