Guten Morgen liebe Community,
ich möchte von einem Dokument den Inhalt eines Textfeldes in ein Textfeld eines anderen Dokuments kopieren. Dabei müssen allerdings die Ländernamen der beiden Dokumente übereinstimmen ;)
Meines Erachtens müsste das folgendermaßen gehen:
- alle Dokumente der anderen Maske durchlaufen
- prüfen, ob Ländernamen identisch sind
- wenn identisch, dann Feldinhalt mit neuem Inhalt ersetzen (vorher in den Editiermodus)
- Dokument speichern und schließen
Nun habe ich angefangen:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim feldZuKopieren As NotesItem
Dim land As NotesItem
Dim feldZuKopierenInhalt As String
Set uidoc = ws.CurrentDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument ( db )
'hole aus dem geöffneten Dokument den Inhalt des zu kopierenden Feldes
Set feldZuKopieren = uidoc.Document.GetFirstItem("fldProd_Indications_User")
Set feldZuKopierenInhalt = feldZuKopieren.Text
Msgbox feldZuKopierenInhalt 'Ausgabe zum Test
'Land-Feld speichern
Set land = uidoc.Document.GetFirstItem("fldCou_Name")
Msgbox land.Text
'hier werden alle Dokumente der Maske frmCatalog_Country durchlaufen
Dim coll As NotesDocumentCollection
Dim docAdmin As NotesDocument
Set coll=db.search(|Form="frmCatalog_Country"|, Nothing, 0)
Set docAdmin=coll.getfirstdocument
While Not docAdmin Is Nothing
'prüfen, ob Land übereinstimmt
If docAdmin.GetFirstItem("fldCou_Name") = land Then
'Inhalt des Feldes ersetzen
docAdmin.ReplaceItemValue("fldProd_Indications", feldZuKopierenInhalt) 'FEHLER
'Dokument speichern und schließen
Call docAdmin.Save(1,1)
End If
'nächstes Dokument
Set docAdmin=coll.getnextdocument(docAdmin)
Wend
Call uidoc.Document.Save(1,1) 'aktuelles Dokument am Ende noch speichern
End Sub
Ist meine Logik im Quelltext korrekt? Ich bekomme in der Zeile mit
docAdmin.ReplaceItemValue("fldProd_Indications", feldZuKopierenInhalt)
einen Fehler "Illegal use of parentheses".
Woran liegt das? ???
Gruß,
Micha
Hallo,
vielen Dank für die vielen Tipps.
Ich habe mein Skript nun folgendermaßen geändert:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim land As NotesItem
Dim feldZuKopierenIndication As NotesItem
Dim feldZuKopierenInhaltIndication As String
Dim feldZuKopierenAI As NotesItem
Dim feldZuKopierenInhaltAI As String
Dim feldZuKopierenBrand As NotesItem
Dim feldZuKopierenInhaltBrand As String
Dim neu As String
Set uidoc = ws.CurrentDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument ( db )
'hole aus dem geöffneten Dokument den Inhalt des zu kopierenden Feldes
Set feldZuKopierenIndication = uidoc.Document.GetFirstItem("fldProd_Indications_User")
feldZuKopierenInhaltIndication = feldZuKopierenIndication.Text
'Simikolons ersetzen
feldZuKopierenInhaltIndication = Evaluate({@ReplaceSubstring("} & feldZuKopierenInhaltIndication & {";";Chr(10)}) 'FEHLER
Msgbox feldZuKopierenInhaltIndication 'Ausgabe zum Test
Set feldZuKopierenAI = uidoc.Document.GetFirstItem("fldProd_Products_User")
feldZuKopierenInhaltAI = feldZuKopierenAI.Text
Set feldZuKopierenBrand = uidoc.Document.GetFirstItem("fldProd_Brands_User")
feldZuKopierenInhaltBrand = feldZuKopierenBrand.Text
'Land-Feld speichern
Set land = uidoc.Document.GetFirstItem("fldCou_Name")
Msgbox land.Text
'hier werden alle Dokumente der Maske frmCatalog_Country durchlaufen
Dim coll As NotesDocumentCollection
Dim docAdmin As NotesDocument
Dim itemCopy As NotesItem
Set coll=db.search(|Form="frmCatalog_Country"|, Nothing, 0)
Set docAdmin=coll.getfirstdocument
While Not docAdmin Is Nothing
'prüfen, ob Land übereinstimmt
If docAdmin.GetFirstItem("fldCou_Name").Text = land.Text Then
'Inhalt des Feldes ersetzen
docAdmin.fldProd_Indications = feldZuKopierenInhaltIndication
docAdmin.fldProd_Products = feldZuKopierenInhaltAI
docAdmin.fldProd_Brands = feldZuKopierenInhaltBrand
'Dokument speichern und schließen
'Call docAdmin.Save(True,True)
Call ws.EditDocument(True,docAdmin)
End If
'nächstes Dokument
Set docAdmin=coll.getnextdocument(docAdmin)
Wend
Call uidoc.Document.Save(True,True) 'aktuelles Dokument am Ende noch speichern
End Sub
Wie man sieht, möchte ich aus einem Feld (bzw. später aus mehreren) die ";" zu "Chr(10)", also einem Zeilenumbruch (Klick auf Enter) ändern. Hierbei handelt es sich um Felder mit Mehrfacheinträgen. Diese werden beim auslesen wohl mit einem ";" getrennt, was mein Einfügen natürlich wieder geändert werden müsste...
Das Ersetzen klappt allerdings nicht (siehe Kommentar : Fehler). Hier wird der Fehler:
Operation failed
ausgegeben. Das ist natürlich nicht wirklich aussagekräftig.
Kann mir an der Stelle jemand weiterhelfen?
Danke schön ^-^
Stimmt, da war ein Fehler drin.
feldZuKopierenInhaltIndication = Evaluate({@ReplaceSubstring("} & feldZuKopierenInhaltIndication & {"; ";" ; @NewLine)})
ergibt aber leider ein "Type Mismatch" ???
Das versteh ich nicht wirklich.