Hallo liebe Notes Entwickler
ich hab folgendes Problem
Ich rufe mit folgenden Code ein Dialogfenster auf
Sub Click(Source As Button)
Dim uiws As New Notesuiworkspace
Dim db As NotesDatabase
Dim uidoc As Notesuidocument
Dim doc As NotesDocument
Dim dialogdoc As Notesdocument
Dim varOk As Variant
Set db = uiws.currentdatabase.database
Set uidoc = uiws.Currentdocument
Set doc = uiws.currentdocument.document
Set dialogdoc = db.createdocument
dialogdoc.DocArt = "hinzufügen"
Forall entry In doc.getItemValue("Supportgroup")
dialogdoc.DocInhalt = dialogdoc.getItemValue("DocInhalt")(0) + entry + Chr(10)
End Forall
varOk = uiws.DialogBox( "dlgSupportgruppen" , False , False , True , False , False , False , "Supportgruppen bearbeiten", dialogdoc, True, True )
If ((varOk = True)) Then
doc.Supportgroup = ""
Forall entry In dialogdoc.getitemvalue("DocInhalt")
doc.Supportgroup = doc.getitemvalue("Supportgroup")(0) + entry + Chr(10)
End Forall
End If
Call uidoc.Refresh
Call uidoc.Refresh
End Sub
an der
rot markierten Stelle bekomme ich immer die Fehler Meldung
Document command is not availible
Ich habe keinen Plan was Notes von mir will.
Hat den jemand anderes
Mfg
Sebastian