title image


Smiley Re: Fehlermeldung ist
Hi,



also wenn ich das jetzt richtig verstanden habe, willst Du ein Profildokument aus ein anderen bereits bestehenden Datenbank öffnen, oder ? In dem Fall könnte folgendes Script funzen : Dim s As New NotesSession

Dim Ws As New NotesUiWorkSpace

Dim DB As Notesdatabase

Dim Prof As NotesDocument



Set DB = s.getDatabase("MeinServer", "MeineDatenbank")

If Not DB.IsOpen Then

Call Db.Open("", "")

End If

Set Prof = DB.GetProfileDocument("MeineProfilmaske")

If Prof.IsNewNote Then

Prof.Form = "MeineProfilmaske"

End If

If DB.IsOpen Then

Call Ws.EditDocument(True, Prof)

Else

Msgbox "DB konnte nich jeöffnet wer'n !"

End IfZur Fehlersuche gibt's übrigens den Debugger (da siehst Du zumindest, an welcher Stelle ein Fehler auftritt und welchen Zustand die Variablen haben...). Außerdem solltest Du (wenn Du schon keine Scriptschulung kriegst) mal einen Blick in die Notesklassen in der Designerhilfe werfen...
Gruß, der Hoschie

IBM Certified Advanced Application Developer - Lotus Notes and Domino 6 / 6.5 / 7
Certified Lotus Professional Domino R5 Principal Application Developer



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: