hallo!
weiß jmd, warum ich den befehl nicht beim öffnen einer maske verwenden kann??
Sub Click(Source As Button)
Dim qdoc As NotesUIDocument
Dim tdoc As NotesUIDocument
Dim workspace As New NotesUIWorkspace
Dim v As String
Dim m As String
Set qdoc = workspace.CurrentDocument
v = qdoc.FieldGetText("verwendungszweck")
m = qdoc.FieldGetText("unbenannt")
Call workspace.SetTargetFrame("main")
Set tdoc = workspace.ComposeDocument ( "", "", "ba" )
Set tdoc = workspace.CurrentDocument
Call tdoc.FieldSetText("verwendungszweck",v)
Call tdoc.FieldSetText("zeitraum",m)
Call tdoc.refresh
End Sub
fehlermeldung ist "user-defined error"