هل يمكن عمل كود في اكسس ينطق بالصوت ما في مربع نص

[حسين العربى]

السلام عليكم ورحمة الله وبركاته  اخواني اعضاء ومشرفي  المنتدي الكرام

هل يمكن عمل كود  في اكسس ينطق بالصوت ما في مربع  نص  . للتوضيح عندي برنامج للترجمة اريد نطق الكلمة الموجوده بالانجليزي في مربع النص بالانجليزي

وجزاكم الله خيرا

[jjafferr]

وعليكم السلام أخي حسين 

 

استخدم هذا الكود في الحدث "بعد التحديث":

Private Sub cmb_Items_AfterUpdate()

'method ONE:
    'to use this moethod, you have to select:
    'Tools > References > Microsoft Excel xx.x Object Library
'    Dim objXL As New Excel.Application
'    objXL.Application.Speech.Speak Me.cmb_Items
'    Set objXL = Nothing
    
'methos TWO:
    'SAPI commands: https://msdn.microsoft.com/en-us/library/ms723627(v=vs.85)
    Dim objSpeech As Object
    Dim intPitch As Integer
   
    Set objSpeech = CreateObject("SAPI.SpVoice")
    intPitch = 2
    objSpeech.Speak "<pitch middle = '" & intPitch & "'/>" & Me.cmb_Items
    Set objSpeech = Nothing

End Sub

 

 

جعفر

223.textTOspeech.mdb.zip

[حسين العربى]

الف شكر لك اخي الفاضل  وجزاك الله خيرا وجعله الله في ميزان حسناتك وزادك الله من علمه

[jjafferr]