Office: (Office 2010) Berichtshöhe einstellen

Danke für den Code Thomas!

Da ich ja vorher nie mit Modulen gearbeitet habe, hier nochmal eine (blöde) Frage: Muss ich Module, nachdem ich sie erstellt hab, noch in den Bericht einbinden? Wie mach ich das?

Hab jetzt alles kopiert, aber es passiert noch keine Veränderung zum alten. Deshalb war jetzt meine Vermutung, dass es vielleicht damit zusammen hängen könnte.

Danke euch für alles!!!

 

Hallo!

Der Code gehört direkt in das Code-Modul des Berichts. Damit Du Dir das anschauen kannst, habe ich bei meinem vorherigen Beitrag die Datenbank mit den Änderungen angehängt.

HTH

 

Hallo!

Ich hab jetzt alles nochmal kopiert und verglichen. Ich komm einfach nicht auf die Lösung...

Das was mir auffällt ist folgendes: Du hast in der hochgeladenen DB ein Modul. Klickt man`s an, erscheinen drei verschiedene.

Wenn ich die Module nacheinander erstelle, fragt er mich nach jedem "Wollen Sie speichern" und speichert dann jedes einzeln ab.

Sorry, dass ich mich so anstelle :-(

 

Mach es doch einfach mal so:

1. Öffne deinen Bericht in der Entwurfsansicht.
2. Klick auf Detailbereich, mit der rechten Maustaste das Fenster für die Eigenschaften öffnen.
3. Da wählst du den Reiter Ereignis aus, in der Zeile Beim Formatieren stellst du Ereignisprozedur ein und klickst auf die ... ganz hinten.
4. Jetzt öffnet sich das VBA-Modul des Berichts, in das die Funktion und die Prozeduren hineingehören.

maike

 

Hallo!

Die Funktion gehört in das Modul des Berichts.

Geh mal bitte wie folgt vor:
- VBA-Editor öffnen (ALT + F11)
- Projekt-Explorer öffnen (STRG + R)
- Knoten Microsoft Access Klassenobjekte erweitern
- Doppelklick auf Deinen Bericht

Jetzt befindest Du Dich im Code-Modul Deines Berichts. Dort fügst Du die Funktion ein, die ich gepostet habe.

HTH

 

Ok, kaum macht man die Dinge am richtigen Ort, schon funktioniert es auf Anhieb ... Vielen Dank für`s nochmalige erklären ...

Jetzt hab ich auch das mit dem Namen gleich gelöst.

Bräuchte jetzt "nur noch" folgendes:
1. Die Bezeichnungen sollen nur erscheinen, wenn die Felder dahinter auch gefüllt sind.
2. Die Felder, die noch unter einem leeren Feld kommen, sollen "aufrutschen".

1000 Dank für alles!

 

Hallo!

Dann können wir uns ja langsam den interessanten Problemen widmen. *wink.gif*

Tausch mal bitte den VBA-Code im Berichtsmodul gegen diesen aus:
Code:

Zur Sicherheit habe ich die angepasste Beispieldatenbank angehängt.

HTH

 

Mal wieder ein Erfolgserlebnis. Hat auf Anhieb geklappt.

Mir sind gestern noch zwei Sachen eingefallen, die ich machen möchte, aber da meld ich mich bei Bedarf noch mal ... Ich schau erstmal, wie weit ich selber komm.

Vielen Dank an alle, die hier beteiligt waren. Ihr habt mir echt super geholfen.

 

Hallo!

schön zu hören. Nun ist ja nur noch diese ursprüngliche Anforderung offen:

Ist das aktuell noch ein Thema für Dich?

CU

 

Du bist ja gut. Genau das, war jetzt eins meiner zwei Themen, wo ich erstmal googlen wollte, bevor ich hier weiter nerv *wink.gif*

 

Hallo!

Wahrscheinlich wirst Du bei Deinen Recherchen auch bei diesem Link landen:
http://www.team-moeller.de/?Tipps_un...:TwipsFromFont

CU

 

Das hast du mir ganz am Anfang schon vorgeschlagen, hab ich auch ausprobiert, aber bin nicht zurecht gekommen. Deshalb hab ich dann einen anderen Vorschlag ausprobiert, der im Forum kam. Aber ich schau`s mir mal noch mal an ...

 

Hallo Thomas,

ich bräuchte noch mal deine Hilfe: Ich hab mir jetzt deinen Link mal angeschaut, war doch nicht so schwer, das einzubauen, wie ich dachte. Aber ich würde natürlich auch gerne eine Höhe festlegen. Ich hab das mal probiert zu ergänzen, aber irgendwie erkennt er das nicht. Öffnet immer das Modul und makiert mir .TwipsFromFont, wenn ich das ausführen will. Fehlermeldung: Fehler beim Kompilieren: Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft.

Das ist momentan der Code, schon auf meine Wünsche angepasst - bis auf die Msg-Box:

Code:

Könnte man diesen Code gleich so erweitern/ändern, dass die Fehlermeldung mit den Zeilen kommt?

 

Hallo!

Dem ist ja auch so. Du hast einfach ein Argument zuviel eingefügt.
Lösch mal bitte in Deinem Aufruf der Funktion TwipsFromFont den Parameter mit dem Namen lngSHoehe. Der gehört da nicht hin:
Code:

Außerdem solltest Du dem Parameter lngSBreite den Wert 400 zuweisen. Das steht für normale Schriftbreite.
Code:

Achja, das wichtigste fehlt noch. Dem Parameter strCaption musst Du den Text übergeben, dessen Ausmaße Du berechnet haben willst.

HTH

 

Hallo Thomas,

ich habe jetzt erstmal alles wieder so angepasst, wie es vorher war.