make access work with text to speech

[CHEECO]

I am trying to make access work with text to speech. The below code is a code I use with excel to di it. It is not a big deal but I would like to get this to work in access also. What changes do I need to make to the code to get it to work with access as well. Thank-you

Cheeco

Sub UseSpeech()
 
 Application.Speech.Speak "type the words to say here"
 
End Sub

[nhorton79]

Try a variation of:
Sub test()
Dim s As Object
Set s = CreateObject("SAPI.SpVoice")
s.Speak "Greetings. How are you?"
Set s = Nothing
End Sub

[CHEECO]

That worker perfectly. Thanks.

[nhorton79]

Glad I could help.