Hi,
na logen gibts da n bissel Code:
...
Set view = db.Getview("Nach Projekten")
zaehler = view.TopLevelEntryCount
If (zaehler = 0) Then
Messagebox "Bitte legen Sie erst ein Projekt an!", , "Neues Teilprojekt anlegen"
Else
Set doccol = db.unprocessedDocuments
count = doccol.count
If (count = 0) Then
Messagebox "Es muss das Dokument 'Projektbeschreibung' des gewünschten Projekts markiert sein (nicht die Kategorie)!", , "Teilprojekt anlegen"
Else
Set uidoc = ws.EditDocument()
TeilKat1 = uidoc.Fieldgettext("Categories1")
TeilKat2 = uidoc.Fieldgettext("Date")
Call uidoc.close
Set uidoc = ws.ComposeDocument("","","Teilprojekt")
Set doc = uidoc.Document
Call uidoc.Fieldsettext("Projektname", TeilKat1)
temp = ws.dialogbox("Teilprojekt") <-das ist der Moment, wo Frosch ins Wasser rennt!
If (temp = False) Then
Set item = doc.ReplaceItemValue("SaveOptions", "0")
uidoc.close
Else
...
Wie gesagt, wenn ich das Ganze im Debugger ablaufen lasse, öffnet sich die Dialogbox, dass es nur so eine Freude ist, aber ohne eben nicht!
Thomas