Dialogbox Schrift (Font_DialogFont) in 64bit Access aufrufen

[jagger]

@alle,

also jetzt läuft es auch auf einem Access 64bit.
Vielen Dank an alle Mitwirkenden!

... übrigens, wenn man die Werte von dem Fontpicker zur weiteren Verwendung in einer Tabelle speichern will, z.B:

Code [Auswählen] Erweitern

Private Sub txtFeld_DblClick(Cancel As Integer)
Dim lngString As Boolean
Dim AFX As String
Dim AFN As String
Dim AFS As String
Dim AFW As String
Dim AFI As Boolean
Dim AFU As Boolean
Dim LString As String
Dim LArray() As String
    lngString = Font_DialogFont(Me.XFont)
    XFN = Me.XFont
LString = XFN

LArray = Split(LString, ";")

AFN = LArray(0)
AFS = LArray(1)
AFW = LArray(2)
AFI = LArray(3)
AFU = LArray(4)

CurrentDb.Execute "UPDATE tab_Font_Daten SET [FontName] = '" & AFN & "',[FontSize] = '" & AFS & "',[FontWeight] = " & AFW & _
",[FontItalic] = " & BoolToString(AFI) & ",[FontUnderline] = " & BoolToString(AFU) & ""
End Sub

braucht man noch für "As Boolean"-Werte (Ja/Nein) eine kleine Funktion:

Code [Auswählen] Erweitern

Public Function BoolToString(bol As Boolean) As String
If bol = True Then
BoolToString = "True"
Else
BoolToString = "False"
End If
End Function

==>... ,[FontItalic] = " & BoolToString(AFI) & " ...

Habe ich nach einigem Ausprobieren bei http://www.access-im-unternehmen.de/268.0.html gefunden.

LG
jagger