هل من طريقة لجعل البرنامج يقرأ محتوى الحقول عند عرضها في الفورم؟

بالنسبة لسؤالك الأول :

يمكن قراءة محتوى مربع نص text1  بالنموذج باللغة الانجليزية :

Call speech(Me.Text1)

وأنشئ موديول بها  الدالة speech :

Option Compare Database
Option Explicit

Function speech(str As String)
Dim objvo As Object
Set objvo = CreateObject("sapi.spvoice")
objvo.speak str
End Function

جزاك الله خيرا اخي @أمير2008

الكود شغال 100% .

كم سؤال، بلا مؤاخذة لوحضرتك او في احد يحب يجاوب:

- كيف ممكن اضيف فاصل زمني بين قراءة كل خانة؟ ويضلل الكلمة المقروءة؟

- وهل ممكن التحكم بسرعة القراءة وكيف؟

- وكيف موضوع القراءة بالنسبة للنصوص العربية او اي لغة اخرى؟

علمًا أن نظام التشغيل انجليزي...

يمكن تلبية احتياجاتك مستقبلا

لكن حاليا المتوفر عندي برنامج يدعم لهجة عربية وانجليزية

وممكن كمان ينطق ألفاظ نابية بطريقة لبقة

لكن للآسف فيجوال بيسك

طيب ممكن احصل على نسخة من هذا البرنامج لو تكرمت؟

وبالنسبة لاضافة الفاصل الزمني، انا وجدت هذا الكود واشتغل معي...

You can copy this in a module:

Sub WaitFor(NumOfSeconds As Long)
Dim SngSec as Long
SngSec=Timer + NumOfSeconds

Do while timer < sngsec
DoEvents
Loop

End sub

and whenever you want to apply the pause write:

Call WaitFor(1)

أرسلته على الخاص