Bestimmten Feldwert komfortabel Teilweise ändern

[adminnaddel]

hallo und guten morgen,

hat jemand eine idee, wie ich komfortabel und trotzdem schnell 5000 feldinhalte in 5000 docs teilweise ändern kann.
der feldinhalt besteht jeweils aus einer zahlenkombination, wobei die letzen 3 zahlen, immer mit dem gleichen wert, geändert werden müssen.
(3245231-2352152345-578)
meine vorstellung geht insoweit, dass in einer view, durch eine aktion, ein popup bzw dialog aufblobbt und ich die drei ziffern eingeben kann. beim klick von ok, setzt sich die maschinerie in bewegung und ändert alle werte in den doc.

aber, wie muss wohl das script oder die formel zum ändern der docs aussehen.?

vielleicht hat ja jemand schon soclh ein beispiel gestrickt!
grüsse aus hamburg

[Axel]

Hi,

ich nehme mal an, dass das Feld mit der Zahlenkombination ein Textfeld ist.

Dann könnte der Agent so aussehen:


Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim strNewValue As String

Set db = session.Currentdatabase
Set collection = db.UnprocessedDocuments  'Alle markierten Doks in die Collection

strNewValue = InputBox$("Geben Sie den neuen Wert ein:")

Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
doc.Feld = Left(doc.Feld(0), Len(doc.Feld(0))-3) + strNewValue
Call doc.Save(True, False)
Set doc = collection.GetNextDocument(doc)
Wend

Den Feldnamen musst du anpassen. Der Agent muss für ausgewählte Dokumente gelten.

Ich habs nicht probiert, müßte aber laufen.

Axel

[adminnaddel]

also, ich habe es mir einfach gemacht und einen agent gestrickt.
somit diesen fall für erledigt betrachten.
cu

[adminnaddel]

@axel,

da ich mir dachte, keiner wird sich melden, hatte ich es dann einfach mit dem agent gemacht.
aber ich danke dir für das script, den daraus lerne ich fleissig!
grüsse

[adminnaddel]

nun ja,

dummer weise kriege ich bei

Set collection = db.UnprocessedDocument

die meldung "not a member unprocessedDocument"

sagt das jemanden etwas?
cu

[adminnaddel]

hi,

ich habe es jetzt mal mit :

Set dc = db.AllDocument

versucht und kriege immer noch die meldung:
"not a member AllDocument"  
weiss den keiner bescheid?
cu

[Rob Green]

nochmals zu der o.g. Unprocessed Methode:

schau nochmal exakt auf das Bsp. von Axel und was Du draus gemacht hast  


wink: [size=10][shadow=red,left,300]SSSSSSSSSS[/shadow][/size][/b]

Abschreiben lernt man doch in der Schule, admin, bei den Hausaufgaben..

[adminnaddel]

sorry, ich dacht mit alldocument könnte ich alle docs der collection greifen, statt nur die ausgewählten.

eines vielleicht noch;
ein refresh der view im script innerhalb der schleife ist doch bestimmt möglich?, doch welche function ist dat?
grüsse und danke

[Axel]

Hi,

kein Problem. Ich würde den View-Refresh aber nicht in der Schleife machen, sondern erst nachdem alle Dokumente angepasst wurden.

Hier das erweiterte Script:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim view As NotesView
Dim strNewValue As String

Set db = session.Currentdatabase
Set view = db.GetView("Name der Ansicht")

Set collection = db.UnprocessedDocuments  'Alle markierten Doks in die Collection

strNewValue = InputBox$("Geben Sie den neuen Wert ein:")

Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
doc.Feld = Left(doc.Feld(0), Len(doc.Feld(0))-3) + strNewValue
Call doc.Save(True, False)
Set doc = collection.GetNextDocument(doc)
Wend

Call view.Refresh  'Aktualisieren der Ansicht

[Rob Green]

@admin
kann es sein, daß Du ein Problem mit dem Buchstaben "s" hast???

Schau nochmals bitte ganz exkat und genau in der Notes Help nach, wie die Property unprocesseddocument... und alldocument... geschrieben wird.....................................

 

[Axel]

hi,

ich habe es jetzt mal mit :

Set dc = db.AllDocument

versucht und kriege immer noch die meldung:...

Hi,

auch hier fehlt das s an Ende.

mit  

   Set dc = db.AllDocuments

bekommst du alle Dokumente der Datenbank in die Collection dc

Axel

[adminnaddel]

nochmals danke für eure hilfe.

ich hatte gerade das script mit

dim uiws as new notesuiworkspace
call uiws.ViewRefresh

ergänzt, da habe ich gesehen, das die performance unter aller s.... ist (das wort mit dem s, doch keine probleme mit s)

also werde ich doch wieder auf das von AXEL zurück greifen.
aber eines hat das schon wieder heute gebracht, ich werde ein script-papst

also, noch mal danke an alle
(ich könnte noch tausend überlegungen posten, will euch aber nicht schocken, deshalb habe ich im terminkalendar meine ganzen fragen aufgeteilt und werde täglich daran erinnert, EUCH zu fragen!!!!
danke
grüsse aus hamburg

[Axel]

(ich könnte noch tausend überlegungen posten, will euch aber nicht schocken, deshalb habe ich im terminkalendar meine ganzen fragen aufgeteilt und werde täglich daran erinnert, EUCH zu fragen!!!!

Hi,

nur zu, wir sind ganz Ohr (und Auge).  


Axel

[adminnaddel]

@axel

jetzt aber ohne rechtschreibfehler .......
das klappt nicht, mein lieber!

meines schon, aber deine ergänzungen sind nicht mit "F9" zu vergleichen. keine fehlermeldung, aber auch kein refresh der view!

sorry axel.....aber lass man.....das kriege ich jetzt schon alleine hin.
Psssssssssssssss
(.....wo zum teufel sind meine anderen notesforenadressen....)
Psssssssssssssss
War nur ein Scherz....
cau

[Axel]

Hi,

sorry, dass es nicht klappt. Ich hab es bisher noch nicht gebraucht. Die Methode hab ich aus der Designer - Hilfe raus gesucht. Bin da im Moment auch überfragt. Wenn du eine Lösung hast, lass es uns wissen.


Axel
 

[Rob Green]

@admin,
wenn man in der Hilfe diese Methode "refresh" von der Klasse NotesView nachsieht und nicht einfach abschreibt, dann liest man folgendes: "The Refresh method does not rebuild the view index."

Die Notes Designer Help ist wirklich sehr hilfreich, um Sachen besser zu verstehen und zu erlernen.

Damit der User die Änderungen optisch mitbekommt, schau mal bitte unter der "ViewRefresh method" nach unter der Klasse "NotesUIWorkspace".

[Axel]

Hi Rob,

den Hinweis hab ich auch gelesen, aber nicht gewußt, das sich das so auswirkt.

Wieder was dazugelernt.  

Danke.

Axel

[adminnaddel]

 
ein letztes male zu diesem thema von mir:
@Rob Green -> schau ->

Code

ich hatte gerade das script mit 

dim uiws as new notesuiworkspace
call uiws.ViewRefresh

ist doch schon lange ales geschehen......
adios senores

[Rob Green]

 

wie sagt man?

*mühsam ernährt sich auch ein admin*