All Expand in DB Deaktivieren?

[mauric]

Hallo Zusammen

Ich habe momentan dass Feature in einer DB dass alle möglichen Einträge Offen
da stehen "Expand All" dass macht meine DB momentan äusserst unübersichtlich.

Bitte wie kann ich diese Standartmässig so einstellen dass alle geschlossen sind?
muss ich dies mit dem Designer machen?

Wäre wirklich frohm um eine Antwort!

PS: Wenn ich alle "Responses" schliesse, Speichern, Close DB, Open DB, ist wieder
alles offen.

Danke
Mauri

[mauric]

Habe es mal heute mit dem Designer versucht, nach dem Googeln habe ich etwas Code Beispiele gefunden:
Die aber bis jetzt zu kein Resultat geführt haben.

Im Designer > DB > All Documents > PostOpen =

a:=@Command([SectionCollapseAll]);
@If(@IsError(a);@Return("");a)

Danke für einen möglichen ratschlag!

[Peter Klett]

Im Designer die Ansicht öffnen, Eigenschaft der Ansicht, zweiter Reiter (der mit dem "i"), "Alles Komprimieren beim ersten Öffnen der Datenbank" anhaken

[mauric]

Danke, Danke für deine Antwort!
Zuerst möchte ich mich für Deine Antwort wirklich bedanken!

Ja diese Einstellung habe ich zwischenzeitlich auch schon ein paar mal in unterschiedlichen foren gelesen doch,
ich finde diese Option wirklich nicht. Habe ein Bild mal beigelegt.

Bitte nicht steinigen!!
Danke

[eknori]

Nun ja, du müsstest schon erst die anzupassende Ansicht im Designer öffnen.

[mauric]

Bitte auch mit dieser Ansicht?
Nun Aktiviert, Lotus neu gestartet, doch meine 100 Responses sind alle noch Offen.

[Tode]

Das Problem mit dem "Collapse all": Es funktioniert nur teilweise. Der Notes- Client versucht, beim erneuten öffnen einer Ansicht den Cursor immer auf das Dokument zu setzen, auf dem er beim letzten öffnen stand. Das heisst: Wenn der Cursor irgendwo tief unten auf einem Antwortdokument stand dann wird -trotz dieser Option- dieser Ast des Baumes aufgeklappt. Deshalb funktioniert hier tatsächlich nur die Code- Lösung, und nicht das Hökchen zuverlässig.

[Peter Klett]

Übrigens kann man als Benutzer mit SHIFT und MINUS alle Kategorien zusammenklappen

[mauric]

Hallo Tode
Danke vielmals für deine Antwort.... ja ich kann dies nachvollziehen wenn ich im untersten
Pfad arbeite ist der ganze Ast (alles von diesem Ast) offen. Die anderen Projekte sind aber
nun wirklich geschlossen.

Unter dem Ordner "Category" ist nun wirklich auch alles geschlossen :-) Judihui

Bitte, besteht hier eine Möglichkeit, wenn ich ganz liebe Frage, einen solchen Code zu bekommen?
schön wäre dass immer der Pfad offen bleibt in dem ich mich zuletzt befunden hatte, ohne alles
andere offen zu präsentieren.

Oder ist dieses anliegen eine zu grosse Anfrage?

Bitte entschuldigt wenn ich einfach so direkt meine Wunschliste hier ablege!
Dennoch möchte ich mich bei Dir und Euch allen bedanken, dass ich so weit
mal schon gekommen bin!

Es geht doch schon viel viel besser so zu Arbeiten!!
Mauri


PS:
Shift - und + hatte ich bis gestern immer so gehandhabt, gerne würde ich
auch hier, mit denn heutigen Technischen Hilfsmittel weiterkommen.

[Tode]

Du hast doch den Code dafür schon gefunden gehabt... Nur leider tut auch der nicht zuverlässig ;-)

Tatsächlich ist die einzige Möglichkeit, um das einigermaßen zuverlässig hinzubekommen, und damit nicht -unter bestimmten Umständen- den Client zu Crashen- das emulieren des Tastendrucks "Shift -".

Das geht mit LotusScript. Und da ich den Code selbst (vor inzwischen 10 Jahren) zusammengegoogelt habe, ist der hier natürlich auch "for free"...

Packe diesen Code ins PostOpen- Event der Ansicht:

Unter Options:

Code

Use "SendKeyLib"

Unter PostOpen:

Code

Call PushKeys( "+-" )

Und in eine Script- Bibliothek namens "SendKeyLib" den Inhalt der beigefügten Text- Datei. Der Code stammt ursprünglich aus 1998 und ist von Paul Carter.

Damit schliessen sich alle Kategorien beim öffnen der Ansicht. Wie gesagt: Habe diese Lösung inzwischen seit 10 Jahren in bestimmten Datenbanken im Einsatz, funktioniert auch in aktuellen 11er Clients noch...

Möglicherweise gibt es inzwischen modernere / bessere Methoden für die Emulierung von Tastendrücken, aber ich hatte noch keinen Bedarf, diese zu verwenden...

[mauric]

Tode Danke für deine schnelle Antwort!
habe es soeben ausprobiert und wenn ich dies Speichere erscheint die Meldung:
 -->"Data not saved due to Script Error"

Danke Gruss
Mauri

[Peter Klett]

und Du hast in die Bibliothek auch das Script von Tode eingetragen? In seinem Beitrag steht "runtergeladen: 0 Mal"

[Tode]

Ja, mache mal bitte einen Screenshot von der geöffneten "SendKeyLib". Das sollte so aussehen (statt LS.SendKeys steht bei Dir halt "SendKeyLib"):

[jBubbleBoy]

die Lib "SendKeys" nutze ich schon seit Jahren nicht mehr, denn es gibt eine einfache Lösung:

Code

   Dim wsh
    Set wsh = CreateObject("WScript.Shell")
   wsh.SendKeys "+-", True

[Tode]

Ja, das muss ich mir gleich mal notieren... das ist viel besser! Danke!

[mauric]

Hallo Tode, Peter Klett

Stop es war natürlich mein Fehler :-) Entschuldige viel viel vielmals!!!

Es funktioniert !!! judihuihuihuihuiohuiu !!!       

Aber noch eine Frage... ich habe nun beim ICON im Designer siehe Bild, ein roten Stern denn ich nicht wegbringe?

Ich möchte mich schon jetzt 1000 mal bedanken!!
Sooooooo geil !!

Danke
Mauri

[Tode]

Der rote Stern geht weg, wenn Du die Datenbank aus dem Designer entfernst und neu hinzufügst, ODER den Designer neu startest, ODER im Menu "Projekt" auf "Bereinigen" klickst.

[mauric]

Hallo jBubbleBoy
Also ich habe dein Code, nur so korrekt zum laufen gebracht!?

Code

Sub Postopen(Source As Notesuiview)
	Dim wsh As Variant
	Set wsh = CreateObject("WScript.Shell")
	wsh.SendKeys("+-")
End Sub

Ich bin Happy, denn nun habe ich schon zwei mögliche Versionen.
Danke!
Mauri