Form.DatasheetFontHeight-Eigenschaft (Access)

Artikel
04/07/2023

Verwenden Sie die DatasheetFontHeight-Eigenschaft , um den Schriftgrad anzugeben, der zum Anzeigen und Drucken von Feldnamen und Daten in der Datenblattansicht verwendet wird. Ganze Zahl mit Lese-/Schreibzugriff.

Syntax

Ausdruck. DatasheetFontHeight

expression Eine Variable, die ein Form-Objekt darstellt.

HinwBemerkungeneise

Diese Eigenschaft ist nur in Microsoft Access-Datenbanken verfügbar.

Für die DatasheetFontHeight-Eigenschaft muss der von Ihnen angegebene Schriftgrad für die von der DatasheetFontName-Eigenschaft angegebene Schriftart gültig sein. So ist die Schriftart MS Sans Serif z. B. in den Punktgrößen 8, 10, 12, 14, 18 und 24 verfügbar.

Die folgende Tabelle enthält die Eigenschaften, die in der DAO Properties-Auflistung erst vorhanden sind, wenn Sie sie mithilfe der Symbolleiste Formatierung (Datenblatt) festgelegt haben, oder Sie können sie mithilfe der CreateProperty-Methode in einer Access-Datenbank (MDB) hinzufügen und an die DAO Properties-Auflistung anfügen.

Eigenschaften	Eigenschaften fortgesetzt
DatasheetFontItalic *	DatasheetForeColor *
DatasheetFontHeight *	DatasheetBackColor
DatasheetFontName *	DatasheetGridlinesColor
DatasheetFontUnderline *	DatasheetGridlinesBehavior
DatasheetFontWeight *	DatasheetCellsEffect

Hinweis

Wenn Sie eine mit einem Sternchen aufgeführte Eigenschaft hinzufügen oder festlegen, fügt Microsoft Access automatisch alle mit einem Sternchen aufgeführten Eigenschaften zur Properties-Auflistung der Datenbank hinzu.

Beispiel

Im folgenden Beispiel wird die Schriftart auf MS Serif festgelegt, der Schriftgrad auf 10 Punkt und die Schriftbreite auf mittel (500) in der Datenblattansicht der Tabelle Products .

Sub SetDatasheetFont 
 
 Dim dbs As Object, objProducts As Object 
 Set dbs = CurrentDb 
 Const DB_Text As Long = 10 
 Const DB_Integer As Long = 3 
 Set objProducts = dbs!Products 
 
 SetTableProperty objProducts, "DatasheetFontName", DB_Text, "MS Serif" 
 SetTableProperty objProducts, "DatasheetFontHeight", DB_Integer, 10 
 SetTableProperty objProducts, "DatasheetFontWeight", DB_Integer, 500 
 
End Sub 

Sub SetTableProperty(objTableObj As Object, strPropertyName As String, _ 
 intPropertyType As Integer, varPropertyValue As Variant) 
 ' Set Microsoft Access-defined table property without causing 
 ' nonrecoverable run-time error. 
 Const conErrPropertyNotFound = 3270 
 Dim prpProperty As Variant 
 On Error Resume Next ' Don't trap errors. 
 objTableObj.Properties(strPropertyName) = varPropertyValue 
 If Err <> 0 Then ' Error occurred when value set. 
 If Err <> conErrPropertyNotFound Then 
 On Error GoTo 0 
 MsgBox "Couldn't set property '" & strPropertyName _ 
 & "' on table '" & objTableObj.Name & "'", 48, "SetTableProperty" 
 Else 
 On Error GoTo 0 
 Set prpProperty = objTableObj.CreateProperty(strPropertyName, _ 
 intPropertyType, varPropertyValue) 
 objTableObj.Properties.Append prpProperty 
 End If 
 End If 
 objTableObj.Properties.Refresh 
End Sub

Im folgenden Beispiel werden die gleichen Änderungen wie im vorherigen Beispiel in der Datenblattansicht des geöffneten Formulars Produkte vorgenommen.

Forms!Products.DatasheetFontName = "MS Serif" 
Forms!Products.DatasheetFontHeight = 10 
Forms!Products.DatasheetFontWeight = 500

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.

Share via