Form.DatasheetFontWeight-Eigenschaft (Access)

  • Artikel

Verwenden Sie die DatasheetFontWeight-Eigenschaft , um die Linienbreite der Schriftart anzugeben, die zum Anzeigen und Drucken von Zeichen für Feldnamen und Daten in der Datenblattansicht verwendet wird. Ganze Zahl mit Lese-/Schreibzugriff.

Syntax

Ausdruck. DatasheetFontWeight

expression Eine Variable, die ein Form-Objekt darstellt.

HinwBemerkungeneise

Die DatasheetFontWeight-Eigenschaft bezieht sich auf alle Felder in der Datenblattansicht sowie auf Formularsteuerelemente, wenn sich das Formular in der Datenblattansicht befindet.

Diese Eigenschaften sind nur in Visual Basic innerhalb einer Microsoft Access-Datenbank verfügbar.

In Visual Basic werden von der DatasheetFontWeight-Eigenschafteneinstellung folgende Werte vom Typ Integer verwendet.

Einstellung Beschreibung
100 Extra dünn
200 Sehr dünn
300 Niedrig
400 (Voreinstellung) Normal
500 Mittel
600 Fett formatiert
700 Fett
800 Sehr fett
900 Hoch

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 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.