Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Felder auf Formularen gleichmäßig verteilen
zurück: Formular DomWert weiter: Nach Auswahl Wert aus Fremdtabelle übernehmen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
tradeiteasy
VBA Newbie| Handle with indulgence!


Verfasst am:
30. Dez 2011, 19:37
Rufname:

Felder auf Formularen gleichmäßig verteilen - Felder auf Formularen gleichmäßig verteilen

Nach oben
       Version: Office 2007

Hallo, ihr fleißigen Helfer,

ich bin gerade dabei eine eingangsseite für eine Datenbank zu gestalten und würde gerne drei eingebettete Formulare nebeneinander auf einem Formular anzeigen. Da hier im Unternehmen die Bildschirme all unterschiedlich groß sind, und die Formularfelder alle gleich groß sein sollen, habe ich es mit den verschiedensten Ankern und auch mit Google probiert, habe aber keine Lösung gefunden.

Deshalb mein Griff zu VBA:
Code:
Private Sub Form_Resize()
    Me.TxtWindowSize.Caption = "Fenstergröße: " + Str(Me.Width)
End Sub
Um nur mal zu testen, wie so was aussieht habe ich mir erst mal die Daten in ein Label gesteckt...und siehe da: Der Wert der Breite bleibt bei konstanten dubiosen 10431 Fragmichnichtwas-Einheiten. Also irgendeine Lösung, vielleicht so elegant wie bei den richtigen Windows Forms, wo man Container für solche Problemstellungen verwenden kann?

Danke schon einmal im Voraus...
viezy
Access-Programmierer


Verfasst am:
30. Dez 2011, 20:00
Rufname: Ralf
Wohnort: Merzig


AW: Felder auf Formularen gleichmäßig verteilen - AW: Felder auf Formularen gleichmäßig verteilen

Nach oben
       Version: Office 2007

Hallo,
1. die Einheit sind Twips (1/567cm)
2. die aktuelle Fensterbreite kannst Du über die Breite (d)einer Commandbar ermitteln Wink
Grüsse, Ralf

_________________
Access ist eigentlich wie Excel,
nur völlig anders...
Nouba
nicht ganz unwissend :)


Verfasst am:
30. Dez 2011, 21:13
Rufname:
Wohnort: Berlin

AW: Felder auf Formularen gleichmäßig verteilen - AW: Felder auf Formularen gleichmäßig verteilen

Nach oben
       Version: Office 2007

Hallo,

vermutlich ist InsideWidth die gesuchte Eigenschaft.

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
tradeiteasy
VBA Newbie| Handle with indulgence!


Verfasst am:
30. Dez 2011, 21:24
Rufname:

AW: Felder auf Formularen gleichmäßig verteilen - AW: Felder auf Formularen gleichmäßig verteilen

Nach oben
       Version: Office 2007

Hi,

danke euch Beiden...InsideHeight und InsideWidth habe ich gesucht! Und jetzt weiß ich auch was twips sind Very Happy (totally wicked incomprehensible pixel scale)

Also noch einmal vielen Dank...
tradeiteasy
VBA Newbie| Handle with indulgence!


Verfasst am:
16. Jan 2012, 13:33
Rufname:

AW: Felder auf Formularen gleichmäßig verteilen - AW: Felder auf Formularen gleichmäßig verteilen

Nach oben
       Version: Office 2007

Ok, ich bin mal wieder zurück an dem Projekt und habe ein Formular erstellt mit ein paar Subforms. Jetzt habe ich ein Label, gennant "LblSbfrmsInfo", und will darin die Namen aller Subforms auflisten. Jetzt komm ich aber nicht dahinter wie ich das angehen soll, da dieser Ansatz hier nicht funktioniert:

Code:
Private Sub Test_Click()
    Dim Sbfrms As SubForm
   
    For Each Sbfrms In Me
        LblSbfrmInfo.Caption = LblSbfrmInfo.Caption & " " & Sbfrms.Name
    Next Sbfrms
End Sub


Irgendwelche Ideen? Ich schätze mal, dass ich For Eaches immer noch nicht richtig verstanden habe... Confused

Lieben Gruß
Nouba
nicht ganz unwissend :)


Verfasst am:
16. Jan 2012, 15:49
Rufname:
Wohnort: Berlin

AW: Felder auf Formularen gleichmäßig verteilen - AW: Felder auf Formularen gleichmäßig verteilen

Nach oben
       Version: Office 2007

Hallo,

etwas ausführlicher.
Private Sub Test_Click()
Dim ctl As Control
Dim s() As String
Dim i As Long

'-- Datenfeld auf maximale Anzahl der Steuerelemente festlegen
ReDim s(Me.Controls.Count - 1)

'-- i = 0 '-- 0 ist Standard

'-- alle Steuerelemente des Formulars abklappern
For Each ctl In Me
'-- wenn es ein Unterformular ist
If ctl.ControlType = acSubform Then
'-- Datenfeld ausfüllen
s(i) = ctl.Name
'-- Zähler hochsetzen
i = i + 1
End If
Next ctl

'-- gibt es Unterformulare
If i > 0 Then
'-- Datenfeld auf die Anzahl der Unterformularsteuerelemente reduzieren
ReDim Preserve s(i - 1)
'-- Ergebnis ausgeben
Me.LblSbfrmInfo.Caption = Join(s, " ")
End If
End Sub

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
tradeiteasy
VBA Newbie| Handle with indulgence!


Verfasst am:
16. Jan 2012, 15:54
Rufname:


AW: Felder auf Formularen gleichmäßig verteilen - AW: Felder auf Formularen gleichmäßig verteilen

Nach oben
       Version: Office 2007

Wow, Nouba,

vielen Dank, ich hätte jetzt nicht gedacht, dass man es dann doch so kompliziert machen muss Shock . Das ist ja jetzt ein genereller Ansatz, den ich auch für andere Sachen verwenden kann. Klasse!

Vielen Dank.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Fehlermeldung "Zu viele Felder definiert" 9 audiojoe 7320 23. Jun 2007, 15:09
SnakeHo Fehlermeldung "Zu viele Felder definiert"
Keine neuen Beiträge Access Tabellen & Abfragen: aktualisierungsabfrage nur für felder mit wert 2 Gast290306 895 29. März 2006, 10:40
Gast290306 aktualisierungsabfrage nur für felder mit wert
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Felder abfragen 3 Flintstone 795 15. März 2006, 12:16
jens05 Leere Felder abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Feldinhalte Trennen und auf mehrere Felder aufteilen 15 MTG 3338 03. März 2006, 13:29
Gast Feldinhalte Trennen und auf mehrere Felder aufteilen
Keine neuen Beiträge Access Tabellen & Abfragen: Leer und ausgefüllte Felder anzeigen 1 Fabs 613 23. Feb 2006, 09:38
rita2008 Leer und ausgefüllte Felder anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: In einer Abfrage Kriterien für ALLE Felder eingeben ?!?! 4 Doc175 5550 17. Feb 2006, 15:29
Doc175 In einer Abfrage Kriterien für ALLE Felder eingeben ?!?!
Keine neuen Beiträge Access Tabellen & Abfragen: Suchefeld von verschiedenen Formularen 0 Supernetsurfer3 504 03. Nov 2005, 14:12
Supernetsurfer3 Suchefeld von verschiedenen Formularen
Keine neuen Beiträge Access Tabellen & Abfragen: Zu viele Felder definiert! 7 michel1964de 689 29. Sep 2005, 09:15
michel1964de Zu viele Felder definiert!
Keine neuen Beiträge Access Tabellen & Abfragen: Verkettung von Inhalten versch.Felder in einer Tabelle 15 haike 1487 27. Jul 2005, 11:56
haike Verkettung von Inhalten versch.Felder in einer Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: eine excel tabelle auf zwei tabellen in Acces verteilen 0 coones 575 12. Mai 2005, 14:34
coones eine excel tabelle auf zwei tabellen in Acces verteilen
Keine neuen Beiträge Access Tabellen & Abfragen: Felder aus verschiedenen Tabellen in Haupttabelle summieren 4 Maviee 1018 20. Dez 2004, 17:27
mapet Felder aus verschiedenen Tabellen in Haupttabelle summieren
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnende Felder in einer Abfrage 1 schnecke 881 23. Nov 2004, 02:20
mapet Berechnende Felder in einer Abfrage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum