texteingabe box mit fieldappendtext

  • Hey Leute,


    wünsch euch erstmal en frohes neues jahr.


    hab folgendes problem. ich habe in einer datenbank mehrere dokumente. die alle haben ein feld "product".
    jetzt soll in das feld "product" ein neuer, zusetzlicher name eingefügt werden. das soll aber nur bei den dokumenten passieren, die ausgewählt wurden in der viel "all".


    ich hab mal mit der funktion fieldappendtext rumgespielt, nur leider fehlt mir ein ansatz.


    gibt es ein möglichkeit über einen button in der view,der z.B. eine Textbox öffnet?


    in der textbox wird dann der neue name eingetragen und dann in das feld "product" der markieren dokumente hinzugefügt?


    habt ihr ne idee?


    dank euch

  • Hallo,


    fieldappendtext ist nur für ein UIdoc, also das aktuell geöffnete. Und Du willst ja alle angehakten Docs bearbeiten.


    mach Dir einen Script-Agent, der mit UnprocessedDocuments eine notesdocumentcollection füllt


    Also so ungefähr:




    Hoffe, dass ich mich nicht vertippt habe - Habe gerade keine Möglichkeit zum testen...


    Gruss, Bernd

  • das sieht schon mal gut aus, das problem ist jetzt, dass ich den text nur für das markierte dokument einsetzte.


    wenn ich 3 dokumente mit haken markiere funktioniert das leider nicht.

    • Offizieller Beitrag
    Code
    ...
    If coll.Count < 1 Then 
            Messagebox "Hierfür muss mind. ein Dokument markiert sein!" 
            Exit Sub 
    End if
    ...


    Gruß
    Dirk

    Rein logisches Denken verschafft uns keine Erkenntnis über die wirkliche Welt.
    Alle Erkenntnis der Wirklichkeit beginnt mit der Erfahrung und endet mit ihr.
    Alle Aussagen, zu denen man auf rein logischen Wegen kommt, sind, was die Realität angeht, vollkommen leer.
    Albert Einstein

  • muss leider nochmal stören. wenn in dem feld product folgender eintrag enthalten ist:


    test1; test2; test3


    dann werden test2; test3 gelöscht wenn ich einen neuen über die obige funktion hinzufüge.


    wie kann ich das unterbinden?

  • Hey Leute ich hab jetzt folgenden Agent laufen:


    Sub Initialize

    Dim ws As New NotesUIWorkspace
    Set uidb = ws.CurrentDatabase
    Set db=uidb.Database
    Set coll = db.UnprocessedDocuments

    If coll.Count < 1 Then
    Messagebox "Hierfür muss genau ein Dokument markiert sein!"
    Exit Sub
    Else
    Set doc = coll.GetFirstDocument
    End If

    strValue = Inputbox$ ( "Bitte eingeben:" , "Neuer Produktname" , "")
    strValue1 = "; "

    Set doc = coll.getfirstDocument

    If strValue = "" Then
    Messagebox "Bitte neuen Produktnamen eintragen!"
    Exit Sub
    Else
    Do Until doc Is Nothing
    doc.product = doc.product(0) + strValue1 + strValue
    doc.bemerkung = doc.bemerkung(0) + strValue1 + strValue
    Call doc.save(True,True)

    Set doc=coll.getnextdocument(doc)
    Loop
    End If
    End Sub






    wenn jetzt in dem feld product folgender eintrag enthalten ist:


    test1; test2; test3


    dann werden test2; test3 überschrieben wenn ich einen neuen Namen über die obige funktion hinzufüge.


    wie kann ich das unterbinden?


    dank euch