Office: (Office 2010) Listenfeld: optimale Spaltenbreite und dynamische Spaltenanzahl

Neue Woche, neues Glück *Smilie)

Fassen wir noch einmal zusammen:

1. Ich habe ein Hauptformular mit 2 Textfeldern zur individuellen Angabe des Datumszeitraums, in dem die Belegungsdaten visualisiert werden sollen und einer Schaltfläche.

2. Auf Klicken der Schaltfläche wird eine Stringvariable erstellt, die eine Abfrage widerspiegelt und als Recordsource eines Unterformulars fungiert.

Das Unterformular (=Endlosformular) soll dann die Belegungsdaten anzeigen. Die Abfrage sieht wie folgt aus (Bsp):

Code:

3.) Auf dem Unterformular sollen nun neben GW_ID, GW_Str insbesondere die dazugehörigen Datumsangaben mit dem entspr. Belegungsstatus angezeigt werden.


Dazu habe ich 14 Bezeichnungsfelder (lbl01 - lbl14) und 14 Textfelder (txt01 - txt14) eingerichtet, die nun dynamisch gefüllt werden sollen.


Nun stellt sich die Frage, wie ich das am Klügsten anstelle?

 

Zu 2, vorheriges Posting:

subform soll dann in der Art ausschauen (siehe Anlage).

 

Hi,

meinst du nicht, eine Kreuzabfrage auf deine Rohdaten wäre einfacher gewesen?

Nun müssten die 14 Textfelder, die die 14 Tage darstellen, auf ihren jeweiligen Steuerelementinhalt eingestellt werden. Wenn du meinem Rat gefolgt bist und die 14 Textfelder systematisch benamst hast (z.B. txtTag01-txtTag14), dann ist das kein großes Problem:

Code:

Die derzeitigen Feldnamen für die Tage sind aber m.E. untauglich, da Access allergisch ist gegen Punkte in Feldnamen. Sinnvoller wären Feldnamen der Art jjjjmmtt o.ä., d.h. 20111024 für den 24.10.2011. Diese Feldnamen könnte eine Kreuztabelle selbst erstellen. Und auslesen kannst du die Feldnamen z.B. per Recordset. Damit ergäbe sich dann etwa folgender Code:
Code:

Auszuführen z.B. beim Öffnen des Formulars.

 

Bins mal so angegangen:

Code:

Code:

==> Fehler: Objekt unterstützt diese Eigenschaft oder Methode nicht.

 

Hi,

Da fehlt die Controlsource. Schau mal genau hin.

Ist der Pfad auf der linken Seite des Gleichheitszeichens richtig? Da muss der Name des Ufo-Controls hin, das ist nicht zwingend der Name des Ufo-Formulars.
Markier mal linke und rechte Seite des Befehls, und lass dir die aktuellen Werte zeigen. Wo hängts da?

 

Pfad auf der linken Seite des Gleichheitszeichens passt nicht.

Habs auch nomal so probiert:
Code:

 

Der Forms-Eisnchub ist sicher falsch, weil die Controls keine Formulareigenschaft darstellen.
Me!subfrmBelegung.Controls(txtlbl).ControlSource sollte tun, wenn die Namen und Variablen da "passen".

 

OK, hab folgenden Code zugrundegelegt:

Code:

Der Wert der Variable lblVar ist beim Abbruch "lblTag1". Das Bezeichnungsfeld heißt genauso.

???

 

Hier auch nochmal zur Veranschaulichung etwas Bildhaftes.

 

Hi,

ein Bild hilft doch immer... ein Kaffee auch. *tongue.gif*

lblTag1 ist ein Bezeichnungsfeld, kein Textfeld. Daher hat das keinen Steuerelementinhalt (ControlSource), sondern nur eine Beschriftung (Caption).

Dein Code wäre also statt auf .Controlsource auf .Caption abzuändern für die Labels. Für die Textfelder ist hingegen mein Code ok.

 

Würde Dir gern ein Käffsche für Deinen hilfreichen Support spenden. *grins

Das eine Problem ist nun gelöst, aber die Textfelder wollen immer noch nicht ganz so:

Code:

Das Recordset wird richtig ausgelesen. Bei der Zuweisung zum Textfeldinhalt haperts noch (siehe Bild => hilft ja bekanntlich immer).

Mit Value bekomme ich zumindest Werte angezeigt:
Code:

...allerdings berücksichtigt das die Tatsache nicht, dass jeder Tag für jede Wohnung einen anderen Zustand bedeuten kann ==> D.h., wenn die erste Wohnung am ersten Tag eine 1 hat, bekommen alle anderen Wohnungen diese 1 auch. Analog für Zustand 0.

 

Hi,

mit Value kannst du nicht arbeiten, weil die Werte ja aus der Abfrage kommen müssen und sich dadurch zeile für Zeile ändern können.

Jedes textfeld braucht den Namen seines Abfrage-FEldes als Controlsource. Prüf das mal nach. Setz das notfalls testweise erstmal händisch ein und guck, obs geht. Mir stoßen immer noch die Feldnamen auf, weil Punkte da eigentlich tabu sind.

 

OK, die Feldnamen waren tatsächlich ein Problem, habe die Abfrage daher wie folgt geändert:

Code:

Damit ergibt sich folgender SQL-Code:
Code:

Hab nun folgenden Code hinter dem Anzeigebutton:
Code:

Allerdings wird jetzt für jede Ferienwohnung in jeder Spalte der Wert gesetzt, der in der ersten Spalte (erstes selektiertes Datum) zugrunde liegt (siehe Anhang).

D. h., hier muss noch was falsch sein:
Code:

 

Hi,

wie schon erwähnt: der Value nützt dir nichts. In die Controlsource muss der Name des einzelnen Recordset-Felds.

Code:

 

Nun isses vollbracht. Außerordentlichen Dank, Sensei.