Office: Spaltenbreite in Datenblattansicht fix

In anderen Threads zu diesem Thema habe ich gelesen, dass man die Spalten in der Datenblattansicht von Unterfromularen in ihrer Breite so festlegen kann, dass der Benutzer sie nicht mehr verändern kann. Es gelingt mir zwar, die Spaltenbreite zu verändern und dies auch zu speichern, aber ich hätte gern, dass man sie überhaupt gar nicht mehr verändern kann. Geht das? In den Formulareigenschaften unter Format habe ich keine Option "Veränderbar" gefunden. Ausser bei "Rahmenart", aber das half nichts. Auch "Größe ändern" auf nein zusetzen, brachte nichts. Ich habe das Formular als Unterformular konzipiert, endlos in Datenblattansicht.

Gibt es noch eine Möglichkeit?

Gruß,


Heimon

:)

 

AFAIK gibt es hierfür keine Lösung. Eine Alternative ist das Active X Control ListView!

 

Hi, da ich noch nie damit gearbeitet habe, tue ich mir etwas schwer. Gibt es irgendwo eine beispiel.mdb mit ListView in Aktion? Wie binde ich das Objekt an die Datenbank an? Warum sehe ich nur ein weißes Rechteck? Und warum ist die Erde keine Scheibe?

;-)

Heimon

 

Dann ist das für Dich vermutlich keine Lösung.

Eine Routine zum Befüllen:
Code:

und dann ...

vb@rchiv · Tipps & Tricks · Klick auf eine Datenspalte im ListView erkennen

 

Vielleicht hilft Dir auch das !"

 

Hey, ich glaube, das Lebans Beispiel "frmFreezeColumnWidths" ist genau das, was ich brauche. Kannst Du mir boch einen Tipp geben, welche Module ich brauche und welche ich nicht übertragen muss? Ich verstehe vom Programmieren leider fast nix..., alles was zu dem Beispiel "frmAutoColumnWith" gehört, brauche ich vermutlich nicht, oder?

liebe Grüße,

Heimon

 

Ho, Torsten!

Das Lebans-Beispiel ließ sich 100%-ig implementieren. Ich musste noch etwas friemeln, weil ich selbst die Spaltenbreiten noch anpassen wollte.

Vielen Dank nochmal,

Heimon

 

Hallo, ich komme nochmal auf diesen alten Thread von mir zurück, da sich jetzt in der Anwendung eine Fehlermeldung zeigt.

Ich habe den Code von Stephen Lebans verwendet. Auf das Ereignis "bei Mausbewegung" des Formulars in Datenblattansicht wird dabei das Modul "clsFreeze.ResetAllColumnWidths" aufgerufen.

Leider erhalte ich bei Mausbewegungen über dem Formular den "Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt."

Es tut mir leid, ich komme hier einfach nicht weiter. Kann mir jemand helfen?

Viele Grüße,


Euer Heiner

 

Bei mir funktioniert alles einwandfrei! Wo im Code tritt der Fehler auf!

 

Hi, Strausto!

Bitte entschuldige, es ist immer blöd, wenn man hilft und kein Feedback kommt. Ich war im Urlaub und bin erst seit gestern wieder am PC...

Der Fehler tritt bei Mausbewegungen auf, allerdings erst nach einer Weile...

Der Code scheint o.k. (kann ihn kompilieren).

Wie kann ich checken, wo genau der Fehler sitzt?

Danke,

Heiner

 

P.S.: Nach der o.g. Fehlermeldung wird im VBA-Fenster folgender Code gelb hinterlegt:

Code:

 

Was heißt: "allerdings erst nach einer Weile..."? Was machst du in der Zwischenzeit? Was ist passiert?

 

Also da muss ich doch mal was loswerden:
Ich schätze ja Lebans Seite durchaus und finde es auch cool, auf was für Ideen er kommt und wie er selbst abwegigste Lösungen per API etc. produziert.
Auf der anderen Seite frage ich mich, ob der Typ eigentlich irgendwas davon produktiv in Datenbanken einsetzt?
Nicht nur, dass seine Demos oft etwas schlampig geschrieben sind (...da kommen dann so Blöcke mit auskommentiertem Code und ein 'actually this doesn't work as expected' o.ä. vornedran, Module und Funktionen, die gar keine Verwendung in der Demo finden, ein Haufen von Deklarationen, die offenbar standardmäßig in die Demos gesetzt werden und nicht benötigt werden,...) und meist noch aus der alten A97-Zeit stammen. Vieles davon betrachte ich lediglich als Werkstudien, die als Anregung für eigenen Code dienen könnten, was ich aber nie und nimmer in eine DB für einen Kunden einbauen würde.
Die vorliegende AutoColumnWidth-Demo weist IMHO einige der erwähnten Unzulänglichkeiten auf. Ich würde den Code nicht verwenden, nur um Spalten zu fixieren; bei jedem MouseMove eine komplette Prozedur durchlaufen zu lassen, die alle Spalten wieder neu einstellt ist einmal sehr performancehungrig, zum anderen nicht richtig zuverlässig - denke ich.

Deshalb stelle ich die Frage: Warum müssen deine Spalten überhaupt fixiert sein?
Du könntest stattdessen einen Timercode im Formular verwenden, der alle z.B. 500 ms die Spalten auf optimale Breite einstellt:
Code:

Ciao, Sascha

 

Hallo, Sascha!

Vielen Dank für Deine kritischen Anmerkungen. Ich werde noch einmal in mich gehen, ob ich dieses Feature wirkllich brauche, vor allem wegen der von Dir genannten Performance-Probleme. Der Grund, warum ich das Spaltenfixieren haben wollte, war der, dass die (durch Rumklicken eines Users) veränderte Spaltenbreite beim nächsten öffnen des Formulars nicht wieder auf dem alten Wert war. Gibt es eine Möglichkeit feste Spaltenbreiten so abzuspeichern, dass sie beim nächsten Öffnen wieder den Ausgangswert haben? Dein Vorschlag mit dem Timer klingt nicht schlecht, ich habe nur keine Erfahrung damit: Was bedeutet der Wert "-2" und wie stelle ich den Timer auf 500ms ein?

Danke & Grüße,

Heiner

 

In die Eigenschaft "Zeitgeberintervall" des Formulars gibst du 500 ein.
In der Eigenschaft "Bei Zeitgeber" wählst du [Ereignisprozedur] aus und klickst die "..." rechts.
In die nun im VBA-Editor entstandene Prozedur setzt du meinen Code.
(- 2) weist Access an, die Spalte auf optimale Breite zu setzen; also der selbe Vorgang, wie wenn du in der Datenblattansicht eine Spalte markierst und auf "Format"..."Spaltenbreite"..."Anpassen" gehst.

Ciao, Sascha