Zitat
taurec schrieb:
Indem du ein NotesDocument erzeugst, dieses mit den gewünschten Werten füllst und es der Dialog Box mitübergibst
Hallo taurec,
danke fü rdie Antwort, habs mittlerweile hinbekommen.
Irgendwie habe ich zu kompliziert gedacht.
Ich habe in das Dokument und in die DialogMaske ein
Feld eingefügt, "DLG_TRansfer".
Über eine Prozedur die durch eine Schaltfläche aufgerufen wird, wird der Feldname des Textfeldes übergiben.
Das Feld Dlg_Transfer wird mit dem Inhalt des TxTFeldes gefüllt,
durch die DialogBox erfolgt eine Übernahme des Feldwertes da das Feld in der DlgBox auch vorhanden ist, und alles wird gut
Sub DlgUse (myitem As String)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUiDocument
Dim Doc As NotesDocument
Dim item As NotesItem
Dim Newval As Variant
Dim Oldval As Variant
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
' Prüfen ob Feld vorhanden ist
If Not doc.HasItem(myitem) Then
Exit Sub
End If
'Feld Dialog transfer füllen
oldval=doc.GetItemValue(myitem) 'Übergibt den Wert es Feldes aus dem Dokument
doc.dialogTransfer=oldval
Call ws.DialogBox("(DLG_Form)", True,True,True,True,False,False,"Edit txt.... ")
'Neuer Wert, wenn in dem DialogDokument das Feld geändert wurde
NewVal=doc.dialogTransfer
If Not (OldVal(0)= NewVal(0)) Then
Set item=doc.ReplaceItemValue(myitem, NewVal(0))
Else
Messagebox "Es ist keine Änderung erfolgt"
End If
doc.dialogTransfer=""
Call uidoc.Refresh
End Sub
Viele Grüße
Ferdi