نجوم المشاركات

السلام عليكم ورحمة الله وبركاته .. في ليلة صافية والجو بين البارد والمعتدل .. وأنا أتصفح الفيس بوك .. لمحت سؤال لأحد الإخوة يطلب فيه طريقة لحساب عدد أيام الغياب والحضور للموظفين في نموذج مستمر .. فخطرت على بالي هذه الدالة الصغنونه الظريفة .. فوضعتها موضع التنفيذ مع نموذج دايناميكي لتقويم شهري كنت قد صممته سابقا مع سبق الترصد 😁 وقلت أضعه بين أيدي جنابكم لمن أراد أن يستفيد منه .. ولمن أراد أن ينفعنا بنصائحه الثمينة والسمينة 😅🖐🏼️ وهذه هي الدالة المستخدمة في عمودي مجموع الحضور والغياب : Public Function Count_Present_Absent(P_or_A As String) As Integer ' دالة لحساب عدد أيام الحضور وعدد أيام الغياب من تقويم مكون من 31 يوم ' By: Moosak 'P_or_A = Present or Absent ? وتعني أنت تريد حساب الحضور أم الغياب ' على أفتراض أن أسماء حقول الأيام هي على التوالي : Day1, Day2, Day3 ...... Dim x As Integer Dim Frm As Form: Set Frm = Screen.ActiveForm Dim PresentDays As Integer, AbsentDays As Integer Count_Present_Absent = 0 For x = 1 To 31 If Frm.Controls("Day" & x).Value Like "*ح*" Then ' حساب عدد أيام الحضور PresentDays = PresentDays + 1 ElseIf Frm.Controls("Day" & x).Value Like "*غ*" Then ' حساب عدد أيام الغياب AbsentDays = AbsentDays + 1 End If Next ' الدالة ترجع مجموع عدد أيام الحضور أو مجموع عدد أيام الغياب حسب الطلب If P_or_A = "P" Then Count_Present_Absent = PresentDays ElseIf P_or_A = "A" Then Count_Present_Absent = AbsentDays Else Set Frm = Nothing Exit Function End If Set Frm = Nothing End Function موضوع سريع وعلى الطاير قبل أن تتفلت المعلومات 😊🖐🏼️ تسجيل حضور وغياب الموظفين.accdb

السلام عليكم و رحمة الله اخوتى و أحبتى اعضاء منتدى اوفيسنا الحقيقة ترددت كثيرا قبل كتابة هذا الموضوع و لعدة اسابيع و لكنى اليوم قررت ان ارتدى ثوب الشجاعة و اقدم اليكم ذلك البرنامج المتواضع و الذى كلفنى جهدا ليس بالقليل و قد اوحى الى فكرته حفيدى مازن لذا قررت ان اسمى البرنامج باسمه و فكرة البرنامج هو استعراض حروف و كلمات اللغة العربية البسيطة و التى تناسب عقلية تلميذ كى جى 1 و كى جى 2 مدعوما بالصور التى قد يعرفها الطفل فى ذلك العمر ملحوظة هامة : لابد من دعم الابوين حتى يتعلم الطفل استخدام البرنامج بنفسه و الآن على بركة الله .... اليكم البرنامج ( بعد فك الضغط لا يتم استخراج اى ملف من الفولدر) Mazen.rar

وعليكم السلام ورحمة الله وبركاته 🙂 شكرا لتهانيكم وتبريكاتكم إخواني / آبائي / أساتذتي الأعزاء 🙂 🌹 يكفيني شرفاً ورفعة وجودي بينكم إخواني الأعزاء وما يزيدني هذا المنصب عنكم مقدار درجة ، فأنا منكم وإليكم والسلام عليكم 😅🖐🏼️ والشكر مرفوع للإدارة الكريمة ، والوالد والمهندس والأستاذ العزيز @jjafferr 🙂 نفعني الله بكم ، وأعاننا جميعا على حمل الأمانة 🌹🤲🏼

وعليكم السلام أخي أزهر 🙂 طلبط بسيط بإذن الله ، ولكن سأعرض عليك خدمات أكثر 😊 - هل تريد نقل الملف أيضا إلى مجلد بجانب قاعدة البيانات ؟ - وإضافة زر لفتح الملف .. ؟ - وزر آخر لحذفه ؟ إذا كانت إجابتك بنعم .. فسأرفق لك الأكواد .. أما إذا كنت فقط ستكتفي بالسؤال فهذا هو الكود الذي طلبته 🙂 : On Error GoTo ErrHandler Dim fd As Object Dim filedialogPath As String Set fd = Application.FileDialog(1) fd.AllowMultiSelect = False fd.Title = "حدد الملف المطلوب" fd.Filters.Clear fd.Filters.Add "كل الملفات", "*.*" If fd.Show = True Then 'Debug.Print fd.SelectedItems(1) Me.filesource = fd.SelectedItems(1) Else MsgBox "لم تقم باختيار أي ملف" Exit Sub End If ErrHandler: If Err.Number = 0 Then Exit Sub Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End If

السلام عليكم 🙂 اخوي موسى @Moosak هذا تشريف للموقع والاعضاء ، وانت اهل لذلك ، فأهلا وسهلا بك 🙂 جعفر

اعتقد اني رأيت مواضيع في المنتدى تتحدث عن ذلك .... اما باخفاء المجلد أو تحويله الى ملفات نظام ... والله اعلم .... ابحث عنها اخي الكريم

بارك الله فيك أخي@ابراهيم الحدادوجعله الله في ميزان حسناتك ...آمين أسأل الله تعالى أن يحفظ ذرياتنا جميعاً بحفظه ...آمين

بارك الله فيك اخى @ابراهيم الحدادوجعله الله في ميزان حسناتك

بارك الله فيك ي ا أستاذ @ابراهيم الحداد 🌹🌹🌹

بالتوفيق الأخ موسى وتحياتي الى الأخ الأستاذ جعفر 🙂

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

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

الف الف مبروك اخى الكريم

وعليكم السلام 🙂 تذكر لما تروح تأخذ سيارتك لتصليح الماكينة ، ولما ترجع يقولون لك تم تصليح السيارة ، ويعطوك علبة مليانه براغي ، يقول لك هذه البراغي كانت زيادة ، فما كان في داعي نرجعها مكانها 🙂 الله يسلمك ، هذا اللي عملته مع النموذج ، كان مليان كود زيادة ، فجعلته كله اسفل النموذج ، واوقفت عمله ، وحذفت صفحة كود التقرير الفاضية 😁 تركت التقرير الاصل report1_ORIGINAL ، وعملت تغييرات اكثر من مرة على التقرير الآخر ، وما كان فيه مشكلة ، جرب واخبرنا النتيجة لوسمحت 🙂 جعفر Badges.zip

وعليكم السلام ورحمة الله وبركاته الأكواد الموجودة في البحث التالي قد تفيدك فأنت تحتاج إلى كود بنفس فكرة التفقيط https://www.officena.net/ib/search/?q=تفقيط&quick=1&type=forums_topic&nodes=135

أنا والوقت .. كل واحد يركض على صوب 😅🖐🏼️ السمع والطاعة 🙂

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

جعله الله في ميزان حسناتك يوم القيامة

جعله الله في ميزان حسناتك

السلام عليكم هدية بسيطة جدا لكم وهو رد جميل كل من ساعدني القاعده ربما تنيرك بفكرة ما وليس شرط استخدامه نواة القاعدة 64بت تم بناؤها بإصدار اوفيس 2016 اللغة الإداريه (العربية) البرنامج بسيط واكواده بسيطة ويعتبر من اوائل البرامج اللي صممتها وشغاله تمام بإذن الله واعدكم بتطويره في اقرب وقت واعادة رفعه وسأخذ ردودكم واقتراحاتكم بعين الاعتبار البرنامج يستهدف لمن لدية مكتب عقار ويريد تنظيم العقود إلكترونيا يمكنك من خلاله تسجيل عقود إيجار العملاء بكافة تفاصيله وكذلك تسجيل الدفعات برنامج إدارة الأملاك والعقارات برنامج لإدارة العقارات والملاك و عقود التأجير والتقسيط بشكل تفصيلي يمكنك طباعة البيانات الأساسية والدفعات لعرضها للعميل النسخة هي النسخة المختصرة بحيث يتم فيها تسجيل البيانات الأساسية للعقار وبيان الدفعات حيث النسخة التفصيلية نقوم بإنشائها الأن يمكنك البحث بشكل سريع عن أي رقم عقد ليعرض لك بيانات العقد والدفعات البرنامج يقوم بتنبيهك في حال انتهاء الايجار او باقي على انتهاء العقد خلال شهر او اربع شهور او عشر أيام ----- بعض الصور تأجير لمتابعة العقود والايجارات.rar

فعلا انا اعمل الآن لارسال شهادات حلقات تحفيظ الى اولياء الامور عبر الواتس توقفت عند ارسال التقرير (الشهادة) ، وما زلت احاول اذا جد جديد لدي وتوصلت الى الحل وضعته لك هنا او لعل احد الاخوة لديه الحل فنستفيد منه جميعا

وفقكم الله وحفظكم من كل سوء استاذنا العزيز ابو احمد

ما شاء الله تبارك الله تستاهل اخي @Moosak مزيد من التألق والى الامام ...

حياك الله أستاذ حاولت أن أسهل عليكم بقدر المستطاع بحيث أحتفظ بالبيانات الأصل ولكن أصبح بعض التعديل يتطلب مراجعة كلية لكل الأكواد وهذا متعب علي حاليا. قمت بالتعديل على البيانات التي تلصق في صفحة المسودة القسم الأيمن/الأول بما يعني أن البيانات الأصلية لن تكون متوفرة بعد المعالجة. مع ملاحظة أن الكود يقوم بتقريب كل الدرجات السعي والنهائية. نحتاج مشاهدة صورة أخرى من هذه النسخة شبيهة للصورة السابقة. توزيع القرار لمدارس العراق_05.xlsm

وعليكم السلام ورحمة الله وبركاتة ضع الفولدر المسمي تخزين علي برتيش D ....وان ارت تغير الموقع يكن من هنا ... FName = "d:\تخزين\" واستخدم الملف المسمي Main من اي مكان تفضل تخزين.rar

بسم الله الرحمن الرحيم وبه نستعين والصلاة والسلام على اشرف الخلق والمرسلين هذا العمل صدقة جارية على روح والدة البشمهندس طارق محمود جزاه الله عنا خير الجزاء والله لانى اقدره واحترامه واقبل يديه وهذا البرنامج يرجع الفضل لله ثم للبشمهندس طارق قبل العمل على البرنامج برجاء مشاهدة فيديو الاستخدام حتى تجيد استخدام البرنامج واتركم مع البرنامج البرنامج به اكواد من المنتدى 1.rar الاصدار الرابع قوائم الطلاب.xlsm

جزاك الله خيرا يا استاذ كريم نظيم

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

Private Sub Form_Load() Image1.Picture = LoadPicture("C:\Users\username\Pictures\image.jpg") End Sub دا كود لتحميل صوره علي الفورم يقد يفيدك

أشكرك أخي الكريم العضو الذهبي وجعل الله أيامك كلها دهب على تفضلك علي بالرد على الموضوع الذي طرحته. وما أود أن أقوله بأنني قد جربت ما تفضلت به أنت قبل أن تتفضل بالاجابة وبعد إلإجابة والنتيجة أنه لم يتم بتفريغ الفاتورة من بياناتها بعد إخراج الاكواد من الحلقة التكرارية، وعند إداخال الاكواد في الحلقة التكرارية يقوم بترحيل الصف الاول من بيانات الفاتورة وجزء من الصف الثالث فقط. لقد قمت بعمل زر امر أخر لتفريغ الفاتورة لكن هذا بشكل مؤقت لأنني لا أرغب بهذا الشكل واريد أن يتم تفريغ الفاتورة من بعد عملية الترحيل مباشرة وأن يعطي رسالة بأنه تم ترحيل البيانات بنجاح. مرة أخرى أشكرك جزيل الشكر

السلام عليكم و رحمة الله اخوتى و احبائى شرفنى مروركم الكريم و مشاعركم الطيبة

ما شاء الله موضوع مميز وجميل وربنا يبارك لك فى حفيدك

اخى الكريم غير اكواد التفريغ خارج الحلقه المتكرره Sub SaveBill() On Error Resume Next Dim Lrow As Integer Lrow = ورقة3.Cells(ورقة3.Rows.Count, "a").End(xlUp).Offset(1, 0).Row ورقة3.Cells(Lrow, "A") = ورقة1.Cells(2, "B") ورقة3.Cells(Lrow, "B") = ورقة1.Cells(3, "B") ورقة3.Cells(Lrow, "C") = ورقة1.Cells(4, "B") ورقة3.Cells(Lrow, "D") = ورقة1.Cells(29, "D") ورقة3.Cells(Lrow, "E") = ورقة1.Cells(29, "F") ورقة3.Cells(Lrow, "F") = ورقة1.Cells(30, "F") ورقة3.Cells(Lrow, "G") = ورقة1.Cells(31, "F") ورقة3.Cells(Lrow, "H") = ورقة1.Cells(32, "F") ورقة3.Cells(Lrow, "I") = ورقة1.Cells(33, "F") Dim LastRow As Integer Dim R As Integer For R = 7 To 27 If (ورقة1.Cells(R, "b") = "") Then Exit Sub End If LastRow = ورقة2.Cells(ورقة2.Rows.Count, "A").End(xlUp).Offset(1, 0).Row ورقة2.Cells(LastRow, "A") = ورقة1.Cells(2, "B") ورقة2.Cells(LastRow, "B") = ورقة1.Cells(3, "B") ورقة2.Cells(LastRow, "C") = ورقة1.Cells(4, "B") ورقة2.Cells(LastRow, "D") = ورقة1.Cells(R, "B") ورقة2.Cells(LastRow, "E") = ورقة1.Cells(R, "C") ورقة2.Cells(LastRow, "F") = ورقة1.Cells(R, "D") ورقة2.Cells(LastRow, "G") = ورقة1.Cells(R, "E") ورقة2.Cells(LastRow, "H") = ورقة1.Cells(R, "F") Next ورقة1.Cells(2, "B") = "" ورقة1.Cells(3, "B") = "" ورقة1.Cells(4, "B") = "" ورقة1.Cells(R, "B") = "" ورقة1.Cells(R, "C") = "" ورقة1.Cells(R, "D") = "" ورقة1.Cells(R, "E") = "" ورقة1.Cells(R, "F") = "" End Sub

تمام اخوي موسى وهذا اللي يعمله الكود ، ولكن يعملها بقيمة متغير غير محفوظة ، ولاحظ ان لديه صور سابقة يريد فتحها ، موجودة فعلا في مجلدات البرنامج ولكن مساراتها في الجدول مختلفة تم عمل اللازم .. عند فتح الصورة يتغير مسارها في الجدول الى المسار الجديد وذلك بتحديث قيمة الحقل في الجدول بقيمة المتغير " ii " الذي يحمل قيمة المسار الجديد الرقم 1 ( المستوى الأول ) يعني المجلد الاقرب لملف الصورة اي المجلد الذي بداخله الصور والرقم 2 ( المستوى الثاني ) هو المجلد الذي قبله وهو الظاهر بجانب قاعدة البيانات فلو لديك مجلد ثالث بجانب قاعدة البيانات بداخله مجلدات فلا يحتاج التعديل على الكود لأنه بنفس المستوى اما لو لديك 3 مجلدات متداخلة هنا يلزم اضافة سطر يحمل المستوى الثالث تفضل المرفق بعد التعديل التراخيص3.rar

اهلا وسهلا اخي العزيز موسى اعانك الله ووفقك الرجل المناسب في المكان المناسب

طبعا وجودك كإداري ما مفروض يُنقص شيء من ابداعاتك الفنية ، فنحن بإنتظار المزيد منها ان شاء الله 🙂 جعفر

الف مبروك اخى @Moosak تستاهل كل خير وربنا يعينك ع خدمه اخوانك والعطاء المستمر

مبارك أخي @Moosak انضمامك إلى فريق العمل وعساك ع القوة.

الف مبروك... استاذ @Moosak وفقك الله وأعانك في مساعدتنا

ألف مبروك

استاذ/ @Moosak مبارك ان شاء الله ـ اختيار موفق من فريق الموقع وهو اهل لذلك

مبارك عليك اخونا واستاذنا @Moosak .. تستحق بالتوفيق لك

الف مليون مبروك بالتوفيق دايما 🎊🎊🎊🎊

لا اجد من الكلمات اهداء يعبر عن سعادتى بهذ الخبر ولكنك تستحق بكفاءة وجدارة وشكرا لإدارة المنتدى لحسن اختيارها وتحياتي وتقديرى للجميع

الف مبروك واهلا وسهلا بك أخي موسى 😊

مبروك استاذي موسى هذا لأنك متميز وخلوق أعانك الله وسدد خطاك

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام خاصية البحث او الضغط على الرابط وسوف تجد الكثير من المواضيع المرتبطة بالمرتبات واذا لم تجد طلبك في البحث فضلا ارفاق ملف كمثال لما تريد https://www.officena.net/ib/search/?q=مرتبات&quick=1&type=forums_topic&nodes=135

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي اليك برامج هدية لك ولكل اعضاء وزوار منتدى اوفيسنا . ملف تم تعديله بطريقة دينامكية تمكنك من دمج اكثر من 100 ملف في مجلدات مختلفة في ملف واحد . رابط لشرح طريقة الاستخدام بالتوفيق............ Sh_2023.zip

السلام عليكم مرفق الملف بعد إضافة الاكواد التالية مع توضيح أجزاء الكود وتفعيل عمليات البحث والاضافة والحفظ * تم اضافة زرار مؤقت باللون الاصفر لاستدعاء الفورم من الشاشة الرئيسة برنامج مخازن user 12345.zip ' تعريف المتغيرات الرئيسه Dim Sheet_Name As String Dim L_Row As Integer Dim Current_Row As Integer Private Sub UserForm_Initialize() ' ملء الكمبوبوكس الأساسى حسب جدول اسماء الشيتات L_Row = ThisWorkbook.Sheets("هام جدا للبرمجة").Range("A" & Rows.Count).End(xlUp).Row Me.ComboBox1.RowSource = "='هام جدا للبرمجة'!A2:A" & L_Row End Sub Private Sub ComboBox1_Change() ' عند اختيار اسم الشيت يتم حفظةفى المتغير الرئيسي لاستعماله فيما بعد Sheet_Name = Me.ComboBox1.Value L_Row = Sheets(Sheet_Name).Range("A" & Rows.Count).End(xlUp).Row ' ربط الشيت بالليست بوكس ListBox2.Visible = True Me.ListBox2.ColumnCount = 2 Me.ListBox2.ColumnWidths = "70,120" ListBox2.RowSource = "='" & Sheet_Name & "'!A3:B" & L_Row End Sub Private Sub ListBox2_Change() ' التنقل عبر اختيارالبنود من الليست بوكس Current_Row = ListBox2.ListIndex + 3 Me.TextBox1 = Sheets(Sheet_Name).Range("A" & Current_Row) Me.TextBox2 = Sheets(Sheet_Name).Range("B" & ListBox2.ListIndex + 3) End Sub Private Sub CommandSearch_Click() ' البحث عن قيم معينة وادراجها فى الليست بوكس الخاصة بالبحث ListBox1.Clear If Len(Sheet_Name) = 0 Then MsgBox "من فضلك اختار ورقة العمل" Exit Sub End If If Len(Trim(TextBox3.Text)) = 0 Then MsgBox "لم يتم إدخال قيمة للبحث عنها" ListBox1.Visible = False Exit Sub End If Dim myArray() As String Dim iRow As Integer ListBox1.ColumnCount = 3 ListBox1.ColumnWidths = "0, 70,120" For i = 0 To ListBox2.ListCount - 1 If InStr(1, ListBox2.List(i, 1), TextBox3.Text) <> 0 Then ListBox1.AddItem ' إضافة عمود مخفى برقم البند فى الليست يوكس الاساسي لتسهيل التنقل ListBox1.List(ListBox1.ListCount - 1, 0) = i ListBox1.List(ListBox1.ListCount - 1, 1) = ListBox2.List(i, 0) ListBox1.List(ListBox1.ListCount - 1, 2) = ListBox2.List(i, 1) End If Next ListBox1.Visible = True End Sub Private Sub ListBox1_Change() 'كود التنقل بواسطة قائمة نتائج البحث If ListBox1.ListCount > 0 Then If ListBox1.ListIndex > -1 Then ListBox2.ListIndex = ListBox1.List(ListBox1.ListIndex, 0) End If End If End Sub Private Sub Command_Add_Click() ' لإضافة بند جديد يتم إضافة سطر الى مصدر الليست الاساسى ثم التنقل الى السطر الجديد If Len(Sheet_Name) = 0 Then MsgBox "من فضلك اختار ورقة العمل" Exit Sub End If L_Row = L_Row + 1 ListBox2.RowSource = "='" & Sheet_Name & "'!A3:B" & L_Row ListBox2.ListIndex = L_Row - 3 End Sub Private Sub CommandDelete_Click() ' كود الحذف If Len(Sheet_Name) = 0 Then MsgBox "من فضلك اختار ورقة العمل" Exit Sub End If If Current_Row = 0 Then MsgBox "قم باختيار القيم التى تود حذفها" Exit Sub End If Dim R R = MsgBox("هل ترغب فى حذف السطر الحالى", vbOKCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تاكيد الحذف") If R = vbOK Then Sheets(Sheet_Name).Rows(Current_Row).Delete End If ComboBox1_Change End Sub Private Sub CommandSave_Click() ' كود الحفظ If Len(Sheet_Name) = 0 Then MsgBox "من فضلك اختار ورقة العمل" Exit Sub End If If Current_Row = 0 Then MsgBox "قم باختيار القيم التى تود تعديلها او حفظها مسبقا" Exit Sub End If If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox "هناك خطأ فى بيانات الكود أو الاسم" Exit Sub End If 'يمكنك هنا ايضا إضافة جمل برمجيةالتأكد من عدم تكرار رقم الصنف اوالكود مسبقا If Application.WorksheetFunction.CountIf(Sheets(Sheet_Name).Range("A1:A" & L_Row), TextBox1.Text) > 0 Then If Sheets(Sheet_Name).Range("A" & Current_Row).Value = TextBox1.Text Then GoTo 1 MsgBox "الكود المدخل متكرر برجاء التأكد من عدم تكرار الاكواد", vbOK + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "الكود موجود مسبقا" TextBox1.Text = Sheets(Sheet_Name).Range("A" & Current_Row).Value Exit Sub End If 1: Dim CodeNr Dim CodeDiscr ' يفضل حفظ البيانات بعد التحديث فى متغيرات مؤقتة لتفادى الخطأ اثناء الحفظ ثم تحديثها فى ورقة العمل CodeNr = TextBox1.Text CodeDiscr = TextBox2.Text Sheets(Sheet_Name).Range("A" & Current_Row).Value = CodeNr Sheets(Sheet_Name).Range("B" & Current_Row).Value = CodeDiscr MsgBox "تم حفظ البيانات بنجاح", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تاكيد" End Sub Private Sub CommandEnd_Click() Me.Hide UserFormMain.Show End Sub

أنشئت هذا البرنامج للأستعمال الشخصى فانا من قام بجلب الكلمات من احدى المواقع وقمت بترجمتها بجوجل واعرضه هنا ربما 😀يفيد احد صغير او كبير هذا البرنامج ناطق يضم اكثر 3000 كلمة انجليزية مستخدمة فى المحادثات ومترجمة ( اى من يعرفهم يفهم 90% من محادثات اللغة الانجليزية ) With 2,500 to 3,000 words, you can understand 90% of everyday English conversations, English newspaper and magazine articles, and English used in the workplace وهو يصلح ان يضع فيه اى اسئلة واجوبة للاختبار واخفاء الاجوبة او الاسئلة كما يقوم البرنامج بقراءة اللغة الانجليزية فى الخانة الاولى عند ضبط الاعدادات وهو يصلح للكبار والصغار ومراجعة المناهج يسمح ويفضل نشره او جزء منه للمنفعه العامة يحتاج البرنامج مكتبة microsoft speech object library والتى تحتوى على ملف sapi.dll واختيارها وتوجد هذه المكتبة فى الويندوز Text-to-Speech (TTS) ويجب تفعيلها وضبطها وهذا مثال بسيط فى التعامل مع مكتبة نطق النص تبديل نص الزر أخفار واظهار العناصر تمكين وعدم تمكين العناصر(السماح بالكتابة و والتعديل) التعامل مع السجلات الرسائل النصية واختيار الزر الافتراضى انشاء فلتر وتنشيطه اخفاء شاشة الاكسيس والقوائم اغلاق نموذج اخر فتح نموذج اخر طرق منع تحذيرات النظام واستعادتها التعامل مع دالة Select Case استعلام الحذف استعلام الاضافة استعلام التحديث اخفاء النماذج من التعديل اخفاء الجداول من التعديل النموذج المنقسم عمل ميكرو متعدد استخدام دالة DCount استخدام نص يعتمد على قسمة حقلين تنسيق الحقل للحصول على نسبة مئوية استخدام نص التلميح control tip text التعامل مع زر الاختيار استخدام الدالة العشوائية مع تحديد مجالها الانتقال الى سجل عشوائى تنسيق العنصر على حسب قيمته استخدام وسائل تصدير البيانات معظم الاحداث انشئت ميكرو وتم تحويلها الى vba ملحوظة يمكن استيراد البيانات الى الجدول لمن يعرف وننوه ان البرنامج يصلح للدراسة سواء كان كبير او صغير يمكن الاستفاده منه وانوه ان الترجمة حرفية يمكنك تغييرها للأفضل ان رأيت ذلك البرنامج انشئ على اكسيس 2019 64 بت وويندوز 10 نفعكم الله به للتنزيل من هنا https://gofile.io/d/7UWmB7 اضغط هنا للتنزيل من موقع خارجى او التنزيل من المرفقات 3000Words.zip