Hi Semeaphores,
danke für die Antwort, aber irgendwie komme ich damit nicht klar
Das Dokument wird hier leider nicht geöffnet ... was macht ich denn falsch ... eine Idee ?
PS : Stecke noch in den Anfängen einer Scriptprogrammierung ;-((
Hier mein Script :
Set ns = New Notessession
Set ws = New Notesuiworkspace
Set db_raum = ns.currentdatabase
Set uidoc_raum = ws.currentdocument 'Zugriff auf das aktuelle Dokument
Set doc_raum = uidoc_raum.document ' Synchro Back-end Front-End
If doc_raum.BewirtungsID(0) <> "" Then
Set doc_profil = db_raum.GetProfileDocument("Profil") ' Ermittlung der Daten zur Bewirtung
Server_bew = doc_profil.Profil_Server(0)
Dateipfad_bew = doc_profil.Profil_Dateipfad(0)
Set db_bew = ns.getdatabase(Server_bew, Dateipfad_bew)
Set doc_bew = db_bew.GetDocumentByunid(doc_raum.BewirtungsID(0))
Set uidoc_bew = ws.EditDocument( False )
Else
Messagebox "Zu dieser Reservierung wurde keine Bewirtung erstellt ! ", 0, "Hinweis"
End If
End Sub