Hi zusammen,
ich möchte in der Funktion überprüfen, welcher Button der Dialogbox gedrückt wurde. Wenn auf OK gedrückt wird, soll der eingegebene String zurückgegeben werden. Wenn der Benutzer Abbrechen gedrückt hat soll ein "leer" zurückgegeben werden.
Danke für jede Hilfe.
Function CreateTest
Dim oWorkspace As New NotesUIWorkspace
Dim oSession As NotesSession
Dim dbCurrent As NotesDatabase
Dim uidSource As NotesUIDocument
Dim docDialog As NotesDocument
Dim bDialog As Variant
Dim sValue As String
Set oSession = New NotesSession
Set dbCurrent = oSession.CurrentDatabase
Set uidSource = oWorkspace.CurrentDocument
Set docDialog = dbCurrent.CreateDocument
docDialog.ReplaceItemValue "Form", "Test"
bDialog = oWorkspace.Dialogbox("Test", True, True, False, False, False, False, "Testwerte neu anlegen", docDialog, True)
If bDialog Then
Call docDialog.Save(True,True,True)
End If
End Function
Gruß
darkface