Form. DatasheetFontUnderline-Eigenschaft (Access)Form.DatasheetFontUnderline property (Access)

Mit der DatasheetFontUnderline-Eigenschaft können Sie eine unterstrichene Darstellung für Feldnamen und -daten in der Datenblattansicht angeben.You can use the DatasheetFontUnderline property to specify an underlined appearance for field names and data in Datasheet view. Boolescher Wert mit Lese-/Schreibzugriff.Read/write Boolean.

SyntaxSyntax

Ausdruck. DatasheetFontUnderlineexpression.DatasheetFontUnderline

expression Eine Variable, die ein Form-Objekt darstellt.expression A variable that represents a Form object.

BemerkungenRemarks

Die DatasheetFontUnderline-Eigenschaft gilt für alle Felder in der Datenblattansicht und für Formularsteuerelemente, wenn sich das Formular in der Datenblattansicht befindet.The DatasheetFontUnderline property applies to all fields in Datasheet view and to form controls when the form is in Datasheet view.

Diese Eigenschaft ist nur in Visual Basic in einer Microsoft Access-Datenbank verfügbar.This property is only available in Visual Basic within a Microsoft Access database.

Die folgende Tabelle enthält die Eigenschaften, die in der DAO- Eigenschaften Sammlung erst vorhanden sind, wenn Sie Sie mithilfe der Symbolleiste Format (Datasheet) 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.The following table contains the properties that don't exist in the DAO Properties collection until you set them by using the Formatting (Datasheet) toolbar, or you can add them in an Access database by using the CreateProperty method and append it to the DAO Properties collection.

DatasheetFontItalic *DatasheetFontItalic * DatasheetForeColor *DatasheetForeColor *
DatasheetFontHeight *DatasheetFontHeight * DatasheetBackColorDatasheetBackColor
DatasheetFontName *DatasheetFontName * DatasheetGridlinesColorDatasheetGridlinesColor
DatasheetFontUnderline *DatasheetFontUnderline * DatasheetGridlinesBehaviorDatasheetGridlinesBehavior
DatasheetFontWeight *DatasheetFontWeight * DatasheetCellsEffectDatasheetCellsEffect

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.When you add or set any property listed with an asterisk, Microsoft Access automatically adds all the properties listed with an asterisk to the Properties collection of the database.

BeispielExample

Im folgenden Beispiel werden die Daten und Feldnamen in der Datenblattansicht des Formulars Produkte kursiv und unterstrichen angezeigt.The following example displays the data and field names in Datasheet view of the Products form as italic and underlined.

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

Im folgenden Beispiel werden die Daten und Feldnamen in der Datenblattansicht der Tabelle Products als kursiv und unterstrichen angezeigt.The following example displays the data and field names in Datasheet view of the Products table as italic and underlined. Zum Festlegen der Eigenschaften DatasheetFontItalic und DatasheetFontUnderline wird im Beispiel die SetTableProperty-Prozedur verwendet, die sich im Standardmodul der Datenbank befindet. ****To set the DatasheetFontItalic and DatasheetFontUnderline properties, the example uses the SetTableProperty procedure, which is in the database's standard module.

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 FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.