كيف يمكن أستدعاء أكواد ال Texttospeeech من Module

معقول يا أخوانى 10 مرات تحميل وأكثر من 30 قارىء للموضوع و مفيش آى رد

بالطبع حاولت ومازلت أٌحاول وكل المشكله فى الإعلان عن متغير يأخذ أسم الـ Text 

للتقريب مثلاً

هذا الكود مسئول عن تعريف النموذج النشط الحالى 

Dim FRM As Form </P>
Set FRM = Screen.ActiveForm

وهذا الكود الذى أحاول الإعلان به عن اسم الـ Text لكن الكود لا يقبلها ومش عارف السبب

Dim ctl As Control</P>
Set ctl = FRM.ActiveControl

الموضوع كدا أصبح أقرب

الهمه يا أهل الخبره

لكم تحيــــــــــــــــــــــــــــــــاتى 

معقول يا أخوانى 10 مرات تحميل وأكثر من 30 قارىء للموضوع و مفيش آى رد

بالطبع حاولت ومازلت أٌحاول وكل المشكله فى الإعلان عن متغير يأخذ أسم الـ Text 

للتقريب مثلاً

هذا الكود مسئول عن تعريف النموذج النشط الحالى 

Dim FRM As Form     Set FRM = Screen.ActiveForm

وهذا الكود الذى أحاول الإعلان به عن اسم الـ Text لكن الكود لا يقبلها ومش عارف السبب

Dim ctl As Control         Set ctl = FRM.ActiveControl

الموضوع كدا أصبح أقرب

الهمه يا أهل الخبره

لكم تحيــــــــــــــــــــــــــــــــاتى 

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

لعمل وظيفه عامه تستخدمها وتستدعيها في اي مكان من احداث النموذج اليك الطريقة :

1. انشيء وظيفة عامة لمرة واحده في النموذج بهذا الشكل :

Public Function zaSpeech()
If Forms!ID!Frame254 = 2 Then
Exit Function

ElseIf Forms!ID!Frame254 = 1 And Forms!ID!Frame255 = 1 Then
Dim FRM As Form
Dim ctl As Control
Set FRM = Screen.ActiveForm
Set ctl = FRM.ActiveControl
Dim intEngine As Integer
Dim lngEngine As Long
	tts.Speak (ctl)
ElseIf Forms!ID!Frame254 = 1 And Forms!ID!Frame255 = 2 Then
Call InitialiseVoice
Call SpeakIt(FRM.ctl, 1, "")
End If

End Function

ثم نقوم بإستدعاء هذه الوظيفه لكل مربع نص او مربع تحرير وسرد بهذه الطريقة

Private Sub Ctl2_AfterUpdate()
Call zaSpeech
End Sub

انظر فقط سطر واحد في حدث بعد التحديث لمربع النص

الآن اكمل بقية المشوار مع بقية الحقول بهذه الطريقة وستنطق كل مربعات النص في النموذج

وهذا الملف بعد التعديل للنموذج الأول والحقول الثلاثة الأولى

zaTextToSpeech.rar

بالتوفيق

مرحباً أستاذه / زهره

و أسف جداً لكنى قمت بعمل هذه الأكواد بنفس الطريقة و الفرق أنى كنت أضعها فى Module ثم أقوم بإستدعاء هذه الوظيفه فى آى مكان

ولكن كانت تظهر معى هذه الرسالة فى كل مره وذلك تحديداً كلما أردت تغيير الناطق بصوت رجل آى الإختيار الثانى فى النموذج

وهذه الرساله التى كثيراً ما أغضبتنى

ثم تظهر علامات الخطأ فى الكود 

أسف أخوانى فهذا ليس إلحاحاً و أعلم أن كل فرد لا يكفية يومة لقضاء عملة

ولكنى أرجوا أن يكون لهذا الأمر حل و أرجوا أن أجده بينكم كما أتمنى أن لا يطول الإنتظار 

و الله يعلم أنى لم أضع الموضوع فى المنتدى إلا بعد أن أستنفذت كل تجربة أتيحت لى و مازلت أحاول و الله يعلم

و حتى لا أنسى كل الشكر للأستاذه / زهـــــــــــره على المشاركة رغم ضيق وقتها و دعائى لها بالتوفيق 

أسف على الإطاله