Problem mit einer Funktion

[Darkface]

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.

Code

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

[lrzwkle]

Welche Taste gedrückt wurde, kannst Du über den Rückgabewert - in Deinem Fall "bDialog" feststellen. Wenn OK gedrückt wurde, erhältst Du "True", bei Abbrechen "False".

If bDialog Then
     Call docDialog.Save(True,True,True)
     'Es wurde [OK] gedrückt

Else
     'Es wurde [Abbrechen] gedrückt

End If

fG Siegi

[Darkface]

Oh doch so einfach habe ich wohl ne kleine Blockade im Kopf.

Aber wie komme ich an das Feld der Dialogbox? Ich brauche es ja als String?

Gruß
  Darkface

[ata]

... über das docDialog kommst du an die Felder ...

ata

[Darkface]

Danke schön, das Funktioniert.