PDA

Vollständige Version anzeigen : Endlosformular wie Datenblattansicht


dwiat
04.10.2002, 16:18
Hallo,

ich möchte die Funtionen:

- Spalten einblenden/ausblenden
- Spalten vergrößern/verkleinern
(evtl. auch - Spalten verschieben
und Spalten fixieren/fixierung aufheben)

im Endlosformular nutzen können, so wie es in der Datenblattansicht oder in Tabellen möglich ist.

Gibt es für dafür eine Lösung?

MFG

alpenpower
05.10.2002, 08:17
Hallo dwiat,

In meinem Formular hab ich hinter einem Umschaltbutton folgende Funktion hinterlegt:

Private Sub UBtn_UFO_Ansicht_Click()

Dim UForm As Control
Set UForm = Me![Ergebnisse_UForm]

Select Case Me!UBtn_UFO_Ansicht

Case False: UForm![S2_1].ColumnHidden = True
UForm![S3_1].ColumnHidden = True
UForm![S4_1].ColumnHidden = True
UForm![T_1].ColumnHidden = True
UForm![T_2].ColumnHidden = True
UForm![T_3].ColumnHidden = True

Case True: UForm![S2_1].ColumnHidden = False
UForm![S3_1].ColumnHidden = False
UForm![S4_1].ColumnHidden = False
UForm![T_1].ColumnHidden = False
UForm![T_2].ColumnHidden = False
UForm![T_3].ColumnHidden = False
End Select

End Sub

Du musst nur noch die Felder entsprechend anpassen, dann dürfte es laufen. Mit 'Columnwidth' kannst du die Breite einstellen - siehe OL-Hilfe. Wenn du eine Lösung hast, mit Spaltenfixierung, lass es mich wissen!

Grüße Franz