با سلام قبلا این آموزش رو قرار داده بودم اما درون یک تاپیک با عنوان کلک های Access
این بار با اسم خودش قرار دادم چون به پیشنهاد دوستان به دید همه عزیزان نمیرسه این طوری شاید بهتر دیده بشه و اگر کسی خواست استفاده کنه
این هم فانکشن
Function SMSG(Message As String)
Dim speaks, speach
speaks = Message
Set speach = CreateObject("sapi.spvoice")
speach.speak speaks
End Function
فایل نمونه هم پیوست شد