Office: (Office 2016) Endlosformular = automatische Höhe

Hallo Gemeinde.

Habe zwei Unterformulare untereinander, die Endlosformulare sind.
Nur möchte ich keine fixe Höhe angeben. Die Höhe soll sich automatisch anpassen, sodass u.a. keine vertikalen Scrollbalken entstehen und die Übersichtlichkeit (Bedienung) gegeben ist.

Gibt es hierfür eine Lösung?

:)

 

Du musst sie dir programmieren. *Smilie

Du berechnest für jedes Formular den notwendigen Platzbedarf. (Zeilenhöhe x Zeilenanzahl + eventueller Zusatzbedarf für Überschriften usw.)
Dann passt du die Unterformular Steuerelemente entsprechend an.

LG Markus

 

Hallo,
das musst Du programmieren, wie von Markus bereits gesagt.
Aber mal eine andere Frage:
Ich hatte ja in meinem Beispiel (aus Deinem anderen Thema) die beiden Ufos bewusst nebeneinander gemacht. Die Anzahl der Felder (bei den Kontaktdaten) und die Anzahl der Datensätze (bei beiden Ufos) bleiben ja je Kunde überschaubar.
Daher bist Du mit nebeneinander viel besser bedient, denn die Höhe spielt dann keine Rolle mehr. Scheint mir deutlich übersichtlicher.

Wobei ich jetzt davon ausgehe, dass es die gleichen Ufos sind.

 

Hallo
Lies einmal in meiner Doc S. unten rechts
Seite: 118
6.2.10 Feste Höhe des Formulars auch wenn mit/ohne Navigationsschaltfläche
Seite: 146
6.48 Formular Höhe nach anz. DS bei Endlos-Formularen
Seit: 145
6.45 Formular auf dem Screen Positionieren und Grösse einstellen

 

Hi Markus.

Habe ich mir schon fast so gedacht *wink.gif*.
Danke.

Hi Klaus.
Ja, so unrecht hast Du ja nicht. Würde gerne diese Ansicht probieren, um die vertikalen Scrollbalken nicht zu haben.

Habe echt ein Problem, mit der Positionierung der Unterformulare.
Kein vernünftigen Anhaltspunkt. Echt irritierend mit dem Lineal im Unterformular.
Im Unterformular ist nur eine Zeile, aber in der Ansicht sind gleich drei ... schon komisch, obwohl ich an der Höhe nichts verändert habe.

Hi Rudolf.

Hui, jede Menge Arbeit.
Würde die Datei gerne lokal speichern, aber keinen DropBox-Account (Microsoft).

Wieso machst daraus kein Buch in der 2016er / 365er Version?

*wink.gif*

Danke Euch.

 

Hallo

in 98 % von dem was in meiner Doc steht lanufen auch mit
access2016 *wink.gif*

ws solldas heisen ?
Verstehe ich nicht ganz*confused.gif*
meinst Du die Pdf ?
wird doc bein Runterladen gesteichert :
bei mir in C:UserslanzDownloads
dazu brauchst Du keine DropBox *wink.gif*

 

Gut *wink.gif*

Wollte die Datei ACCESS 2000BU Begleitunterlagen.zip downloaden, ging nicht, da DropBox Zugangsdaten haben wollte - habe da keinen mehr.
Jetzt konnte ich die Datei problemlos laden, ohne das Zugangsdaten abgefragt wurden. *wink.gif*

 

Hallo.

Habe zwei Endlosformulare als ufrm untereinander, diese sollen sich dem Datensatz der Höhe anpassen.

Habt Ihr ein Anwendungsbeispiel.
Verstehe das nicht, da der Code nicht auskommentiert ist. ^^

 

Hallo
hier hätte ich eine Muster DB
https://www.dropbox.com/s/vt66vswgsl...azmaZ.zip?dl=0 ! achtung ist nicht ewig dort zu finden !
Runter Laden
und öffnen
danach Formular FrmAuswahl öffne
und Auswählen
• öffne Formular FrmSchriftZeichen an letzter Position und Letzter Höhe
• öffne Formular FrmSchriftZeichen an Starposition (im Code festgelegt)
Die zwei Botten Drucken und SNP gehen NICHT
SNP gib es nicht mehr und Zum Drucken muss der Code angepasst werden *frown.gif*
• öffnen FormularFrmPosFormMitButtonOderTaste

Teste (Spiel) einwertig *wink.gif*

 

Hi Rudolf.

Ich habe es angeschaut - nimm es mir nicht übel - verstehe da nichts. ^^

Stattdessen habe ich diesen Code-Schnippsel gefunden.

Verknüpfte Forms:
ufrm_KS_KundenAddEdit (Textbox: txtKundennummerID)
--> ufrm_KS_KontaktmoeglichkeitAddEdit
--> ufrm_KS_Fahrzeug

Diesen habe ich im Code-Editor in der Form ufrm_KS_KontaktmoeglichkeitAddEdit hinzugefügt.


Private Sub Form_Load()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim hoehe As Long


Set db = CurrentDb

strSQL = "SELECT Count(*) AS anzahl_kontaktmoeglichkeiten FROM KUNDEN_KONTAKT WHERE kd_id = txtKundennummerID"
MsgBox strSQL
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
hoehe = rs.Fields("anzahl_kontaktmoeglichkeiten") * 400 + 3100

MsgBox hoehe

DoCmd.MoveSize , , , hoehe

End Sub

Den Code habe ich in dem Endlosformular hinzugefügt.
Nur meckert Access ...

1.) Übermittelt nichts aus der Textbox txtKundennummerID
2.) meldet Fehler 3061 (1 Parameter wird erwartet, aber es wurden zu wenig Parameter übergeben)
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

Ist das Vorhaben mit diesem Code-Schnippsel machbar?
Kennt jemand vielleicht eine Lösung? *wink.gif*

 

Hallo
Von wo hast Du diesen Code?
Aus meiner Doc welche Seite ?

Hast Du in der Muster Accdb
Beim öffnen des Formular Frmschriftzeichen nach gesehen ?

 

Hi Rudolf.

Nicht aus deiner Doku.

Daher habe ich den Code: Klick

 

Hier ist der Link noch einmal in funktionierender Form.

 

Nouba.

Ja, dort habe ich den her (Link: ein Post vor Dir).

Aber der besagte Code liefert Fehler, siehe einige Post darüber.
Komme nicht weiter. Leider.

 

Den ersten Punkt aus dem Post #10 habe ich mit strSQL = "SELECT Count(*) AS anzahl_kontaktmoeglichkeiten FROM KUNDEN_KONTAKT WHERE kd_id = '" & Forms![ufrm_KS_KundenAddEdit]![txtKundennummerID] & "'" gelöst.

Der zweite Punkt zerbricht mir schon den Kopf ^^