Office: (Office 2010) Dynamische Höhe vom Unterformular ungenau

Hi Forummitglieder,

ich habe ein Problem mit der optischen Darstellung in Access. *depressed
Ich habe in einem HFO ein eingebundenes UFO, dessen Höhe in Abhängigkeit der Datensatzanzahl dynamisch angepasst wird. Das habe ich so eingestellt, dass zwischen dem letzten Datensatz des UFO´s und der Navigationsschaltflächenleiste ca. 1 mm Abstand bleibt. Das funktioniert eigentlich ganz gut, nur ist mir folgendes aufgefallen: Nach Eingabe des 12. Datensatzes verringert sich dieser Abstand um einen gewissen kleinen Betrag und nach 24 Datensätzen verringert er sich wieder ein wenig, ist jetzt kaum noch sichtbar.

Hier der Code:
Code:

Woran kann das liegen? Ist es ein Rundungsfehler? Wie lässt sich das Problem lösen? Wäre echt toll, wenn Ihr mir helfen könntet. Danke!!!

Viele Grüße,
Annika

:)

 

Hallo
evtl. Liest Du einmal in meiner Doc s. Fusszeile unten rechts
Seite;121 "6.3 Feste Höhe des Formulars auch wenn mit/ohne Navigationsschaltfläche"

oder und
SEite: 148 "6.54 Formular Höhe nach anz. DS bei Endlos-Formularen"

oder und
seite 147
"6.52 Formular auf dem Screen Positionieren und Grösse einstellen*

im Anhang eine Muster MDB

beache diese Functionen
Code:

und etwa

Code:

 

Hi,

ich denke der Fehler liegt hier:

Warum addierst du einen festen Wert (dein 1 mm-Abstand?) auf die Anzahl Datensätze anstatt ihn auf das Ergebnis der Höhenberechnung zu addieren?

 

Hi,

@ Ruedi: Für mich auf den 1. Blick umfangreicher als mein alter Code. Damit müsste ich mich zuerst intensiver auseinandersetzen.

@ Anne: Deinen Vorschlag wollte ich zuerst ausprobieren, er erscheint mir leichter lösbar, wenn es sich nur um einen Rechenfehler handeln sollte.
Ich habe folgende Varianten an die beiden entsprechenden Stellen im Code gesetzt und ausprobiert (die Zahlen habe ich durch Versuche ermittelt):
Code:

Ergebnis: Wie gehabt, es ändert sich nichts. Mit zunehmender Datensatzanzahl wird Abstand immer kleiner, wie in meinem gestrigen Beitrag beschrieben.
Code:

Ergebnis: Die Höhe des UFO´s ändert sich überhaupt nicht. Egal, ob oder wieviele Datensätze vorhanden sind.

Viele Grüße,
Annika

 

Hallo,
hast Du bedacht, dass Maßangeben in Twips angegeben (bzw. umgerechnet) werden müssen. 1cm = 567 Twips. 1mm = 56,7 Twips.

 

Hallo Annika,

wieso experimentierst du da mit unterschiedlichen Zahlen (1.85 / 700 / 320) herum, was für eine Idee steckt dahinter?

Lade doch mal eine kleine Beispiel-DB mit den beiden Formularen und was man sonst noch dazu braucht hoch, damit man das mal austesten kann.

PS:
Was ist der Auslöser für den eingangs gezeigten Code, welches Ereignis?

 

Hi,

@ Klaus: Das mit den Twips ist mir bekannt.

@ Anne: Die Beispieldatenbank kommt morgen. Die muss ich erst erstellen.
Das Ereignis ist übrigens Form_Current.

Bis dann,
Annika

 

Hi,

so, anbei eine einfache Beispieldatei.
Einfach Zeile für Zeile ausfüllen und beobachten, wie nach einer gewissen Anzahl von Datensätzen der besagte Abstand immer kleiner wird.
Viel Spaß!

Viele Grüße,
Annika

 

Hallo,
und wenn Du das Beispiel in Access2003 gemacht hättest, könnten sich das noch viel mehr Leute ansehen.
Du kannst z.B. das Beispiel nach Access2003 konvertieren. *grins

 

Hi Klaus,

okay, kein Problem, hier die 2003-er Version. *Smilie

Grüße,
Annika

 

Hallo,
ich kann da kein Problem feststellen bzw. den Fehler nicht nachvollziehen, beschreibe das noch mal an Hand des Beispiels.
Wie bist Du auf die 1,85 gekommen?

 

Hallo
hast Du Dir einmal meine Muster MDB aus #2 angeschaut ?

 

Hi Ruedi,

wie muss ich denn diesen Code (den 1.) einbauen? Wo muss ich da meine Zahlen eingeben? Ich bekomme ständig Fehlermeldungen: "Fehler beim Kompilieren."
Ich kann leider mit Deinem Code momentan nichts anfangen.

Viele Grüße
Annika

 

Hallo Annika,

wenn man sich den Code mal genauer anschaut, muss man feststellen, dass der doch gar nicht funktionieren und der von dir geschilderte Effekt gar nicht eintreten kann.

Im Ereignis "Beim Anzeigen" des Hauptformulars wird die Höhe des Unterfomulars abh. von der Anzahl Datensätze im Unterformular eingestellt.
Und diese bleibt bestehen während man munter neue Datensätze im Unterformular hinzufügt. Da passiert also schon mal gar nichts. daher kann sich auch nichts verschieben. Ich verstehe nicht, wie du das anders erleben kannst.

Und ich verstehe auch nicht, warum du noch immer keinen Kommentar zur ominösen "1.85" gegeben hast. *confused.gif*

Nachtrag:
Der Code: Code:

ist übrigens äquivalent zu diesem hier: Code:

 

Guten Morgen,

habe mir erlaubt die BeispielDB zu testen.
Bei mir funktioniert alles wunderbar, das UFO wird nach
jedem DS vergrößert (erst nach der Entertaste, was aber logisch ist!)
Auch wird das UFO nach 12 DS immer noch gleichbleibend größer!
Habe auch den kurzen Code getestet, der funktioniert auch genauso gut
mit Me!frm_UFO für den Detailbereich, da es ja kein "With" dabei gibt.
Also am Code wird es vermutlich nicht liegen, ev. am Betriebssystem oder
an der Access-Version?!
Schönen Tag wünsche ich noch.