Alaa Malk

السلام عليكم ..

احتاج مساعدة في حزمة الصوت باللغة العربية

كيف احصل على هذه الحزمة ؟؟

وذلك لجعل البرنامج ينطق ارقام الدور باللغة العربية بصوت انثى او ذكر

THE FUNCTION I USE

Sub Speak(Msg As String, Optional Gender As String = "FEMALE")
    Dim Vox As Object ' SpeechLib.SpVoice
    Set Vox = CreateObject("SAPI.SpVoice") ' New SpeechLib.SpVoice
    Set Vox.Voice = Vox.GetVoices("Gender = " & Gender).Item(0)
    Vox.Speak Msg
End Sub

مع الاحترام ,,

السلام عليكم

احتاج كود لنقل ملف من فولدر الى اخر على الشبكة 

مع الشكر

مشكور لكن انا بدي انه ما يكتب عربي بالمره

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

شكرا سيد جعفر 

☺️

شكرا ابو خليل

كلامك صح

لكن يحدث ايضا بدون عداد وقت

🤣🙄

اخ قدور

المرفق ما رح يفيد

الفكره انه الفورمات احيانا اذا كان فيها صور او تم استدعاء استعلام

بتعمل شي مثل ال 

blinking

وهو شي مزعج احيانا

☺️

https://docs.microsoft.com/en-us/office/vba/api/access.application.echo

السلام عليكم 

 - query هل هناك طريقة لايقاف وميض الفورمات اثناء العمل خصوصا بعد الاستعلام

وكذلك اذا كان هناك صور خلفية للفورم

ما اقصده هو 

form echo

application echo

مع العلم اني قمت بايقاف هذه الخاصيات في الكود ولكن لم يتوقف وميض التطبيق

docmd.echo false

application.echo false

ولكم الشكر

شكرا جعفر كلامك مزبوط 

تم التجريب بنجاح

كان بس سوء فهم للصوره .. اعتذر

وشكر لك كل الشكر على الحل😍

شكرا اخ جعفر

قمت بتجريبها مسبقا 

تنجح ولكن تحتاج للنقر على كل صفحة ليتم تفعيل النتيجه

وانا احتاج ان تظهر النتائج صحيح بمجرد اصدار التقرير 

😀

تفضل الملف المرفق

rep.rar

Just now, Alaa Malk said:

تفضل الملف المرفق

rep.rar 96.04 kB · 0 downloads

يقوم باختيار ممتاز لكل الصفحات

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

يوجد على الصفحة 5 مربعات اختيار (ممتاز ,جيد جدا , جيدا , مقبول , ضعيف 

وبناء على التقدير يقوم التقرير باختيار المربع المناسب

لكنه لا يعمل الا على الصفحة الاولى 

احتاج كود لتمرير هذا الامر لكل صفحة بشكل منفصل

Private Sub Report_Load()
    Me.Degree1.SetFocus
Me.TXTEDARI = DLookup("EMP_NAME", "AllEmpInfTbl", "job_title='رئيس القسم الإداري'")

If Me.Degree1 = "ممتاز" Then
Me.CK1.Value = True
Me.CK2.Value = False
Me.CK3.Value = False
Me.CK4.Value = False
Me.CK5.Value = False
ElseIf Me.Degree1 = "جيد جدا" Then
Me.CK1.Value = False
Me.CK2.Value = True
Me.CK3.Value = False
Me.CK4.Value = False
Me.CK5.Value = False
ElseIf Me.Degree1 = "جيد" Then
Me.CK1.Value = False
Me.CK2.Value = False
Me.CK3.Value = True
Me.CK4.Value = False
Me.CK5.Value = False
ElseIf Me.Degree1 = "مقبول" Then
Me.CK1.Value = False
Me.CK2.Value = False
Me.CK3.Value = False
Me.CK4.Value = True
Me.CK5.Value = False
ElseIf Me.Degree1 = "ضعيف" Then
Me.CK1.Value = False
Me.CK2.Value = False
Me.CK3.Value = False
Me.CK4.Value = False
Me.CK5.Value = True

End If

  
End Sub

السلام عليكم 

احتاج الى طريقة تجعل الكود يعمل في كل صفحة من صفحات التقرير على حده