Freigeben über

Form.FrozenColumns-Eigenschaft (Access)

  • Artikel

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.