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 يقوم باختيار ممتاز لكل الصفحات

التقرير هو عبارة عن صفحة لكل موظف يوجد فيها تقييمه السنوي يوجد على الصفحة 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

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