Form.FrozenColumns-Eigenschaft (Access)
Verwenden Sie die FrozenColumns-Eigenschaft , um zu bestimmen, wie viele Spalten in einem Datenblatt fixiert sind. Ganze Zahl mit Lese-/Schreibzugriff.
Syntax
Ausdruck. FrozenColumns
expression Eine Variable, die ein Form-Objekt darstellt.
HinwBemerkungeneise
Fixierte Spalten werden auf der linken Seite des Datenblatts angezeigt und bewegen sich nicht, wenn Sie einen Bildlauf horizontal durch das Datenblatt durchführen.
Hinweis
Die FrozenColumns-Eigenschaft betrifft nur Tabellen, Formulare und Abfragen in der Datenblattansicht.
In Visual Basic ist diese Eigenschaftseinstellung ein Ganzzahlwert , der die Anzahl der Spalten im Datenblatt angibt, die mithilfe des Befehls Spalten fixieren eingefroren wurden. Die Datensatzauswahlspalte ist immer fixiert, sodass der Standardwert 1 ist. Wenn Sie also eine Spalte fixieren, wird die FrozenColumns-Eigenschaft auf 2 festgelegt; Wenn Sie zwei Spalten fixieren, wird sie auf 3 festgelegt usw.
Beispiel
Das folgende Beispiel verwendet die FrozenColumnsFrozenColumns-Eigenschaft, um die Anzahl der in einer Tabelle in der Datenblattansicht fixierten Spalten einzustellen. Wenn mehr als drei Spalten fixiert sind, wird die Tabellengröße maximiert, sodass Sie so viele nichtfrozen Spalten wie möglich sehen können.
Sub CheckFrozen(strTableName As String)
Dim dbs As Object
Dim tdf As Object
Dim prp As Variant
Const DB_Integer As Integer = 3
Const conPropertyNotFound = 3270 ' Property not found error.
Set dbs = CurrentDb ' Get current database.
Set tdf = dbs.TableDefs(strTableName) ' Get object for table.
DoCmd.OpenTable strTableName, acNormal ' Open table.
tdf.Properties.Refresh
On Error GoTo Frozen_Err
If tdf.Properties("FrozenColumns") > 3 Then ' Check property.
DoCmd.Maximize
End If
Frozen_Bye:
Exit Sub
Frozen_Err:
If Err = conPropertyNotFound Then ' Property not in collection.
Set prp = tdf.CreateProperty("FrozenColumns", DB_Integer, 1)
tdf.Properties.Append prp
Resume Frozen_Bye
End If
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.