Form.DatasheetFontUnderline-Eigenschaft (Access)

Verwenden Sie die DatasheetFontUnderline-Eigenschaft , um eine unterstrichene Darstellung für Feldnamen und Daten in der Datenblattansicht anzugeben. Boolescher Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. DatasheetFontUnderline

expression Eine Variable, die ein Form-Objekt darstellt.

HinwBemerkungeneise

Die DatasheetFontUnderline-Eigenschaft gilt für alle Felder in der Datenblattansicht und für Formularsteuerelemente, wenn sich das Formular in der Datenblattansicht befindet.

Diese Eigenschaft ist nur in Visual Basic innerhalb einer Microsoft Access-Datenbank 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 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 werden die Daten und Feldnamen in der Datenblattansicht des Formulars Produkte kursiv und unterstrichen angezeigt.

Forms![Products].DatasheetFontItalic = True 
Forms![Products].DatasheetFontUnderline = True

Im folgenden Beispiel werden die Daten und Feldnamen in der Datenblattansicht der Tabelle Products kursiv und unterstrichen angezeigt. Zum Festlegen der Eigenschaften DatasheetFontItalic und DatasheetFontUnderline wird im Beispiel die SetTableProperty-Prozedur verwendet, die sich im Standardmodul der Datenbank befindet.

Dim dbs As Object, objProducts As Object 
Const DB_Boolean As Long = 1 
Set dbs = CurrentDb 
Set objProducts = dbs![Products] 
SetTableProperty objProducts, "DatasheetFontItalic", DB_Boolean, True 
SetTableProperty objProducts, "DatasheetFontUnderline", DB_Boolean, True 
 
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

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.