Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument 'über Datenbank' öffnen erzeugt Illegal Function Call

(1/3) > >>

DerAndre:
Ich habe gesucht aber nichts passendes gefunden.

Ich habe das Phänomen, daß wenn unten eingestellte Eigenschaften für eine Datenbank gewählt sind wird im PostOpen des Datenbankscript ein Illegal Function Call erzeugt.
Der Fehler tritt in der ersten  Zeile, eine simple Zuweisung, nach der Deklaration auf. Nach wegklicken der Meldung wird dann die DB geöffnet.

Hat jemand so ein Phänomen schon gehabt?

Client ist 6.5.1 DE
Server ist auch 6.5.1

Glombi:
Unter 6.5.3 tritt das nicht auf.

Poste doch mal das Script im Postopen der Datenbank.

Andreas

DerAndre:
Script:

Sub Postopen(Source As Notesuidatabase)
   Dim db As notesdatabase
   Dim Gdp_MainServer As String,Gdp_SecondServer As String,Gdp_ThirdServer As String
   Dim Gdp_Serverlist As Variant,MsgRetValue As Integer
   Dim dispServer As String
   Gdp_SecondServer="" -> hier meldet sich der Debugger
   Gdp_ThirdServer=""
     'v1.6
   On Error Resume Next
   Gdp_Serverlist=GetGlobalParamByKey("SAS_ServerList","names")
   Gdp_MainServer=Gdp_Serverlist(0)
   Gdp_SecondServer=Gdp_Serverlist(1)
   On Error Goto errorLabel
   Set db = source.database
   dispServer =Gdp_MainServer
   If db.server = Gdp_MainServer Then
      dispServer =    Gdp_SecondServer
   End If
   
   Dim continue As Variant
   
   continue=True
   Call ApromService_VerifyHttpConnection(continue)
   
   If (Not continue) Then
      MsgRetValue=Messagebox("Es besteht keine Verbindung zum Aprom-Server"+Chr(13)+ _
      "Sie werden weitergeleitet auf NotesServer: " +at_name_cn(dispServer) ,0+16,"SAS")
      Dim ws As New NotesUiWorkspace   
      Call ws.openDatabase(dispServer,db.filepath)
   Else
      setModelParamId("APR-MP-000008")
      Call  ApromService_ClientPreloading
      Activateapp  db.Title
   End If
   Goto endOfSub
   
errorLabel:
   MsgRetValue=Messagebox("Fehler aufgetreten in Modul:  Dbase PostOpen" +_
   " Fehler-Nr.:" & Str(Err) & ": " &  Chr(13) & Error$,16,"SAS Fehlermeldung")   
endOfSub:   
End Sub


Der Code ist nicht von mir, ich hoffe aber, das er ein bischen hilft.

DerAndre:
Das ist alles nicht wahr...  :-:

Ich habe noch im Errorhandle was eingefügt, danach kein Fehler mehr.

Schablone wieder drüber, kein Fehler mehr...

Ich versteh das nicht...

DerAndre:
Ich bekomm die Kriese.

Fehler kommt, Fehler kommt nicht...

Dann auch noch eine Fehlinformation.

Fehler kommt bei der Zeile

    Activateapp  db.Title

Navigation

[0] Themen-Index

[#] Nächste Seite