font dialog in office 64bit

macroshadow,it din't work.
thanks

How about a little more information ;-)
How did you use the code? On which line do you get a error? What is the error number?

it ran but the dialog never showed

How did you run the code?

Run this code (obviously, you must change TextBoxName to a name of a textbox on your form):
Sub Demo()
    Dim blnRet As Boolean
    blnRet = test_DialogFont(Me.TextBoxName)
End Sub

yep i did that bu it does work in ms access 64bit system and that is what i am looking for

can you upload a sample file?

It fails here it returns 0
  lLogFontAddress = GlobalLock(lMemHandle)
  If lLogFontAddress = 0 Then
    DialogFont = False
    Exit Function
  End If

Replace line 170 with this:

#If VBA7 And Win64 Then
	Dim lLogFontAddress As LongPtr, lMemHandle As LongPtr
#Else
    Dim lLogFontAddress As Long, lMemHandle As Long
#End If

Select allOpen in new window

You may also have to replace line 139 (of the original code with this:

#If VBA7 And Win64 Then
	Dim dwBytePoint As LongPtr, dwByteVal As LongPtr
#Else
    Dim dwBytePoint As Long, dwByteVal As Long
#End If
	Dim szOut As String

Select allOpen in new window

Macro,I tried but it still fails at the same line of code.I just cant get it to work in 64bit vba have been searching the web for an alternative.

Thanks

hi macro i am up to the  if  ChooseFont(FS)=1
it fails to open any suggestion.THanks

Is this issue solved?