nicht benötigte Felder entfernen

    Hi,


    wenn die Felder schon in Dokumenten benutzt werden hilft Dir auch ein


    Field xyz := @DeleteField


    weiter. Damit kannst Du die entsprechenden Daten aus bereits erstellten Dokumenten nachträglich entfernen.

    Für jedes Problem gibt es eine einfache Lösung, die es noch schlimmer macht.

    funktioniert so weit, alles bestens.
    jetzt taucht das nächste problem auf, wenn ich die db auf den server kopiere, dann load compact .... ausführe, führt er den compact aus, aber im admin überdie console kommt dann die meldung:
    Data compact is too far in the future.
    er sagt dann er hat 0% komprimiert, und die Änderungszeit der DB steht eine Stunde vor der jetztigen Zeit.
    Das heist, momentan steht 8:16 auf dem Server als Systemzeit, er schreibt aber bei der Änderung der DB 9:16, WARUM?


    mfg

    Noch etwas,


    habe die DB jetzt auf den Server kopiert -> Notes\Data\DBs
    Servername bei uns lautet: Name/O/Countrycode -> Mail/Firma/DE.


    Jetzt habe ich im Script vom Agenten folgendes eingetragen:
    Set blockdb = s.GetDatabase( "Mail", "DBs/Vorlagen.nsf" )


    Jetzt bekomme ich die Meldung: Eintrag nicht in der Gestaltungsliste!


    Was ist da los?


    mfg horst

    Meine Maske, mit den Vorlagen geht auf, das Fenster ist aber grau hinterlegt, dann ein kleines Fenster, die Fehlermeldung, die kann ich mit OK bestätigen, und dann schließt sich das Fenster!


    mfg

    Horst, Du bist im falschen Thread!
    Taurec weiß jetzt nicht mehr um was es geht.


    Dann hast Du die PICKLIST-Ansicht nicht mit auf dem Server.


    Gruß von Ekki.

    Hallo Ekki,


    ich habe die DB, eins zu eins auf den Server kopiert, wie Sie bei mir lokal liegt!
    Habe auch mal nachgesehen im Designer, die Ansicht PICKLIST ist auch auf der DB am Server vorhanden!


    mfg

    Hallodri,


    hier nochmal der code:


    Const PROMPT = "Textbausteinauswahl. Sie können diesen in jeder Anwendung einfügen"

    Dim s As New NotesSession
    Dim ws As New NotesUIworkspace
    Dim coll As NotesdocumentCollection
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim uidoc As NotesUIDocument
    Dim blockdb As NotesDatabase

    Set blockdb = s.GetDatabase( "SVRNOT01", "WHDB\Vorlagen.nsf" )
    If Not blockdb.isOpen Then
    Msgbox "Die Vorlagen DB wurde nicht gefunden, oder Sie haben keinen Zugriff."
    Exit Sub
    End If

    Set coll = ws.Picklistcollection(PICKLIST, False, blockdb.server, blockdb.filepath, "VIEWPICK", "Textbaustein", PROMPT)
    Set Doc = coll.getfirstdocument
    If Doc Is Nothing Then Exit Sub

    Set uidoc = ws.Editdocument(False, Doc )
    Call uidoc.copy
    Call uidoc.close
    Print "Der Textbaustein '" + doc.getItemValue( "txt_Title" )(0) + "' befindet sich jetzt in der Zwischenablage!"


    Habe für die Ansicht (PICKLIST) in der DB einen Alias vergeben: VIEWPICK


    Mfg Horst

    Hallo,


    PICKLIST_CUSTOM funktioniert auch nicht, die selbe Fehlermeldung, leider!


    Set coll = ws.Picklistcollection(PICKLIST_CUSTOM, False, blockdb.server, blockdb.filepath, "VIEWPICK", "Textbaustein", PROMPT)


    Mfg Horst

    Hallo Jungs,


    merci für eure tolle Hilfe, das Problem hat sich gelößt, irgendwie hatte die DB ein Problem, habe eine neue erstellt, Berechtigungen neu vergeben, den ganzen Inhalt kopiert, es funktioniert, gott sei dank!


    mfg und danke nochmal

    Sorry nochmal wegen gestern, anderes Forum!


    Ich möchte mich nochmal bei Dir bzw. euch bedanken, sehr schnelle Hilfe (die DB erstellt bzw. die genauen Anweisungen gegeben), das es ein Frischling wie ich auch versteht!


    SUPER DANKE NOCHMAL!


    mfg horst

    Hallo,


    jetzt bekomme ich seit heute ein Fehlermeldung vom Vorlagen Agenten:


    notes fehler-inccorect argument: non-null-string expected !!!


    mein code im agenten:


    Const PROMPT = "Textbausteinauswahl. Sie können diesen in jeder Anwendung einfügen"

    Dim s As New NotesSession
    Dim ws As New NotesUIworkspace
    Dim coll As NotesdocumentCollection
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim uidoc As NotesUIDocument
    Dim blockdb As NotesDatabase

    Set blockdb = s.GetDatabase( "SVRNotes", "IT\Vorlagen.nsf" )
    If Not blockdb.isOpen Then
    Msgbox "Die Vorlagen DB wurde nicht gefunden, oder Sie haben keinen Zugriff."
    Exit Sub
    End If

    Set coll = ws.Picklistcollection(PICKLIST_CUSTOM, False, blockdb.filepath, "PICKLIST", "Textbaustein", PROMPT)
    Set Doc = coll.getfirstdocument
    If Doc Is Nothing Then Exit Sub

    Set uidoc = ws.Editdocument(False, Doc )
    Call uidoc.copy
    Call uidoc.close
    Print "Der Textbaustein '" + doc.getItemValue( "txt_Title" )(0) + "' befindet sich jetzt in der Zwischenablage!"


    die berechtigung auf der db ist, default -> manager!


    woran kann das liegen?


    ich hoffe um baldige hilfe,


    horst