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

السلام عليكم ورحمة الله وبركاته برنامج شئون العاملين به اهم المتطلبات التي تعتمد عليها ادارة شئون العاملين -شاشة دخول بالاسم وكلمة السر - تسجيل بيانات الموظف بصورته الشخصيه وايضا بصوه من بطاقته الشخصيه -تعريفات كثيره اهمها الاداره والقسم والوظيفه - عدد ساعات العمل - نسبة خصم الاجازه المرضيه - قواعد احتساب الاجازات حسب اختيار المستخدم-تامينات العاملين على الثابت والمتغير والكثير والكثير -تسجيل مفردات الراتب واستخراج كشف الرواتب وطباعة نموذج قبض الراتب لكل موظف - استخراج ارصدة الاجازات حسب ماتم تعريفه مسبقا من طريقة استحقاق رصيد الاجازات -ملخص كامل عن الموظف - امكانية تعديل بيانات الموظف وتحديد تاريخ التعيين ونهاية العقد -حتى يعمل البرنامج بكفاءه يرجى احتيار تنسيق التاريخ التالي "dd mmm yyyy" اختر اى مستخدم واكتب الباسوورد 123 اخيراً وليس آخراً البرنامج صدقه جاريه على روح والدتي اسكنها الله فسيح جناته نسالكم الدعاء تحياتي للجميع Employees_Test.rar

تفضل يا سيدي

عفوا منكم جميعا اليك هذا الكود فقط On Error Resume Next DoCmd.OutputTo acOutputQuery, "Q1", "excelworkbook(*.xlsx)" لكن انا عملت استعلام لنموذج فرعي 591.ExportExcel.accdb.zip

وعليكم السلام نصيحتي ان تبذل الوقت وتعمل حقول التقرير بالطريقة العادية ، لأنها ستوفر عليك الوقت لاحقا (مثل ما لاحظت ، طلبك صعب التعامل معه برمجيا ، ولكنه سهل بالطريقة العادية) ولكن ، اليك الجواب حسب طريقتك: . ليصبح الكود: Option Compare Database Const Insh = 1440 Private Sub Report_Open(Cancel As Integer) Dim i, wd, iLeft, Field_No wd = 0.3 * Insh iLeft = 0 For i = 1 To 30 Field_No = 31 - i If Field_No = 2 Then 'الحقل رقم 2 اعمل عرضه 4 اضعاف Me("a" & Field_No).Width = wd * 4 Me("a" & Field_No).Left = iLeft Else 'بقية الحقول عرضها متساوي Me("a" & Field_No).Width = wd Me("a" & Field_No).Left = iLeft End If iLeft = Me("a" & Field_No).Left + Me("a" & Field_No).Width Next i End Sub جعفر 590.TestDBR.accdb.zip

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

السلام عليكم من ضمن سلسلة إكسل في دقيقة.. شرح بسيط وسريع عن كيفية تطبيق عملية حسابية سواء كانت جمع أو طرح أو قسمة أو ضرب على عدة خلايا في نفس الوقت واللي يميز هذه الحركة هو اننا ما نحتاج نسوي عمليات حسابية أو معادلات ولا استخدام دوال كل اللي بنستخدمه هو اللصق الخاص أو Paste Special والتطبيق يكون على نفس الخلايا اللي فيها القيم المطلوب تطبيق العملية الحسابية عليها أترككم مع الشرح واتمنى يكون واضح ومفيد وأسعد باستفساراتكم أو اقتراحاتكم تقبلوا تحياتي https://www.youtube.com/watch?v=oKzvqGo4lhU

السلام عليكم ورحمة الله تعالى وبركاته اخباركم ايه ... عسى ان تكون على ما يرام ندخل الى الموضوع بسم الله الرحمن الرحيم كنت قد انشأت هذا الموضوع من قبل وهو عن كيفية تثبيت البرامج المصنعة بالاكسس داخل نظام التشغيل ويندوز فى الحقيقة كان الموضوع شيقا الى ان سالنى احد الاخوة كيف يمكن تطبيق ذلك على برامجى فجاوبته بان يقوم بنسخ تلك النماذج باكاوادها واضافة لمساتها الفنيه عليها على حسب ما يحلو لك ثم وضعها داخل برنامجك ومحاولة توفيق الاكواد لتعمل بالشكل المطلوب فى الواقع كان الوضع صعبا واحتمال وجود اخطاء فى ذلك بنسب كبيرة ففكرت كثيرا كيف يمكن انشاء معالج لتركيب نظام التثبيت هذا على اى برنامج اكسس دون الحاجة الى النسخ واللصق فجائت الفكرة الى انشاء ذلك المعالج مع اضافة بعض اللمسات وبعض الخيارات التى قد تفيد اى مبرمج مثلا امكانيه جعل البرنامج ينشئ اكثر من مجلد اثناء التثبيت امكانية حفظ ملفات داخل البرنامج مثلا الايقونات وملفات dll واى شء اخر وحتى قواعد اخرى داخل البرنامج لاستخرجها اثناء التثبيت والاهم من كل هذا هو انه يمكنك تصميم نماذج التثبيت بالشكل الذى تريده ثم استخدامها من قبل المعالج لتركبيها على برنامج والتثبيت من خلالها وعلى هذا الاساس قمت بانشاء صفحة خاصة للبرنامج على فيس بوك تستطيع من خلالها تنزيل قوالب تثبيت خاصة ببرنامج هذا هو الرابط https://www.facebook.com/A2P-1140671855968254/photos/ والان مع شرح البرنامج =================== 1 ) ---------------------- اولا وقبل كل شئ اسمى ههههههه ثانيا والاهم هو البروجرس بار البروجرس بار هذا غير متوفر فى اكسس ثم انى خفت من اخطاء عناصر Activex لو قمت بادراج بروجرس بار فقمت بتصمميم هذا الشريط التفاعلى ليكون لمسة فنية رائعة اتمنى ان تعجبكم من خلال هذا البروجرس اقوم بانشاء جداول التثبيت المؤقت الذى تساعدنى فى التثبيت 2 ) --------------------------- الشروط والاحكام الاهم هنا هو الاسمايلى (الوجه الضاحك ) الذى قمت باستبدال Chekbox به اتمنى ان تستمتعوا 3 ) ------------------- اختيار قاعدة البيانات التى تريد تركيب معالج التثبيت لها 4) ------------------------------ خطوة الفنانين قمت بتفعيل ميزة التصميم لتمكنك من تصميم نماذج التثبيت بنفسك واضافتك لمساتك الفنية عليها او يمكنك تنزيل قوالب التثبيت الخاصة بك من صفحة البرنامج عن طريق رابط التحميل المدرج فى هذا النموذج 5) -------------------------- مرجلة فحص نماذج التثبيت تذكر انه لا يمكنك ادراج اى اكواد داخل نماذج التثبيت التى قمت بتصميمها تذكر انه لا يمكنك تغيير اى من مسمياتها اذا وجد اى خطأ بها سيرفضها البرنامج 6 ) ------------------------ 7 ) -------------------------------------- 8 ) -------------------------- التعريف بالبرنامج الخاص بك وادراج الملفات التى تحتاجه عند التثبيت ليقوم البرنامج باستخراجها اثناء التثبيت فى نفس مجلد التثبيت واخد بالك انت من chekbox دى ههههههههههههه 9 ) ------------------------ تفعيل اكواد التفعيل شفت ال chekbox هههههههههههه سارقها من موبايلات سامسونج هههههههه اسم المجلد الذى سيتم التثبيت فيه اسم البرنامج الذى سيظهر فى قائمة ابدأ واختصار سطح المكتب مسار الحفظ وهو المسار الذى سيتم حفظ البرنامج فيه بعد تركيب المعالج له نماذج التثبيت 10) --------------- الشروط والاحكام الذى سيوافقع عليها المستخدم لاتماام التثبيت قد تحتاج من برنامجك اثناء التثبيت انشاء مجلدات اضافية قم بتفعيل الخاصية وكتابة اسماء المجلدات مع مراعات الرموز الذى لا يجب استخدامها فى اسماء المجلدات 11) ------------------------ مرحلة التثبيت والان مع البرنامج البرنامج حتى الان لنسخ اوفيس فوق 2003 فى انتظار ارائكم

فعلاً صحيح كلامك شكراً لك أخي المبارك أبو سلمان وجزاك الله خيراً.

السلام عليكم ورحمة الله تفضل جدول اعمدة عادل.rar

اتفضل استخدمت هذا الكود بعد تحديث Me.Text16 = DSum("[trip_on]", "Qry1", "[date_bills] between [forms]![frmqryserchOnfileBetweendate]![StartDate] and [forms]![frmqryserchOnfileBetweendate]![EndDate]") Me.Text18 = DSum("[quantity]", "Qry1", "[date_bills] between [forms]![frmqryserchOnfileBetweendate]![StartDate] and [forms]![frmqryserchOnfileBetweendate]![EndDate]") Me.Text20 = DSum("[pric]", "Qry1", "[date_bills] between [forms]![frmqryserchOnfileBetweendate]![StartDate] and [forms]![frmqryserchOnfileBetweendate]![EndDate]") waheed.rar

تفضل

اتفضل اخي قاعدة بيانات2.rar

شكرا أخي شفان ما ادري ولا حاولت ادري ، قلت موضوع داخلي بينك وبين برنامجك وعيب اتدخل بينكم وانا شخصيا لا استعمل اوامر الاكسس هذه ، شوف اللي كتبته في هذا الرابط: انا استعمل هذه الوحدة النمطية: http://access.mvps.org/access/api/api0001.htm جعفر وعفوا ، عنك خطأ في كود التصدير ، فانت استخدمت acSpreadsheetTypeExcel12Xml بينما يجب ان تستخدم acSpreadsheetTypeExcel12 (او اي رقم اصغر منه ، ولكن ليس Xml)

اسف على التدخل يا استاذ جعفر استاذنا قام باعطاء مكان حفظ هذا اي في قرص دي وشوف هذا بيعمل المطلوب واذا تريد ان يظهر نافذة حفظ بدل هذا الكود اي حذف كلمة saveFileAs22 من الكود الاسف بهذا DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qryExportExcel"

إبدأ بالحقل Yaree

جرب هذا الكود Private Sub Form_Open(Cancel As Integer) Me.ShortcutMenu = True End Sub

وعليكم السلام 1. علشان نأخذ قيمة Task في الوحدة النمطية ، لازم نشهرها في وحدة نمطية هكذا: Public Task As String فتكون متوفرة في البرنامج كاملا ، 2. لكي نستطيع ارسال Task (والذي هو عبارة عن SQL جاهز) ، يجب علينا حفظه كإستعلام عن طريق الامر QueryDef ، وقد حفظت الاستعلام بإسم qryExportExcel ، والذي نحذفه لما ننتهي من استخدامه ، 3. انا لم تعمل معي نافذة الحفظ "أختيار مكان الحفظ و اسم الملف" ، لذلك عملت متغير مؤقت saveFileAs22 ، Option Compare Database Public Task As String Public Sub exportTable(tName As String) On Error GoTo err_exportTable saveFileAs22 = "D:\myExcel.xls" Dim qrydf As QueryDef Set qrydf = CurrentDb.CreateQueryDef("qryExportExcel", Task) PauseTime = 2 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qryExportExcel", saveFileAs22, True 'Delete it CurrentDb.QueryDefs.Delete "qryExportExcel" Exit Sub err_exportTable: If Err.Number = 3012 Then 'Delete it, to make a new one CurrentDb.QueryDefs.Delete "qryExportExcel" Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 591.ExportExcel.accdb.zip

أخي العزيز / Hassan Hammoud إن شاء الله منتظرين الإضافات

وعليكم السلام الجدول الاصل يجب ان يكون فهرس الحقلين لا يقبل وجود قيم شبيهة: . وبعدين ، الملعب لك ، وافعل ما شئت: لاحظ خطوط العلاقة ، فانت تقول ان الحقل Monthly في الجدول tbl1 ، فيه قيمة واحدة (1)(No Duplicates) ، بينما الحقل المرتبط به من الجدول tbl_Month فيه قيم مالا نهاية (Duplicates OK) . جعفر 589.alaqat.accdb.zip

السلام عليكم الميزة في هذ الطرقة انك تتحكم في إظهار المجلدات والملفات ، مثلا: تستطيع ان تُظهر ملفات بصيغ معينه فقط ، او لا تُظهر ملفات بصيغة معينة ، تستطيع ان تُخفي ملفات اسمها فيه احرف معينة ، مثلا اذا كان عندك ملف اسمه jj.doc ، وكنت تعمل نُسخ منه وتسميها jj_01.doc و jj_02.doc ، فيمكنك وحسب صلاحيات المستخدم ان تُظهر ما تريد وتخفي الباقي ونفس الشئ مع المجلدات جعفر

اعتقد لا يمكن الغاء الشفت.. نهائيا الا اذا في جديد عند خبرائنا

السلام عليكم دائما يُفضل استخدام API الوندوز على اوامر الاكسس ، لأن الاكسس قد يُغيّر هذا الامر او يُلغيها من احد اصداراته ، وهذا ما حدث مع العديد والعديد منها ، منها على سبيا المثال لا الحصر: Application.FileSearch adp Security mdw import DBF لذلك يُنصح انه تستعمل دوال الوندوز بدلا من دوال الاكسس قدر المستطاع جعفر

السلام عليكم ورحمة الله انسخ هذا الكود والصقه فى موديول جديد مخصص له زر Sub Sorting_Data() LR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row Sheet2.Range("B9:M" & LR).Sort Key1:=Range("B9"), order1:=xlAscending End Sub

اخى العزيز اولا اشكرك على المشاركة ثانيا ارجو قراءة الطلب جيدا انا معى برنامج تمكين والغاء الشفت لكن اريد اغلاق الشفت نهائيا ولا يفتح مرة ثانية

أخي الكريم أرسلان وجزيت خيراً بمثل ما دعوت لنا وزيادة

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

أخي انت تناشد الأكسس والمرفق إكسيل!! فغير واضح على أيهما تريد التطبيق؟

السلام عليكم ورحمة الله لا يمكن تنفيذ هذه الأوامر في الكود على ورقة محمية... لحل المسألة يمكن إضافة أمر "إلغاء الحماية" قبل هذه الأوامر ثم بأمر آخر بعدها لـ "إعادة الحماية" بالكلمة السرية نفسها... * أمر "إلغاء الحماية" هو : ActiveSheet.UnProtect Password:="YourPass" * وأمر "إعادة الحماية" هو : ActiveSheet.Protect Password:="YourPass" بن علية

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

تفضل الكود لهذه العملية هو Private Sub cmd_Open_All_Click() Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC Application.FollowHyperlink rst!Site rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub جعفر 579.1.test90.mdb.zip

السلام عليكم أختي ، الظاهر ان الكود فيه مشكلة ، وتم اكتشافها وتعديلها هنا: جعفر

كان في خطأ في الكود ، والحمدلله استطعت معرفته وتغييره حاليا الكود يعطيك فقط اذا في ايام متتالية اكثر من 8 ايام مثلا (انت تحدد هذا اليوم ، وحتى ممكن نضعه في النموذج الذي به التواريخ من-الى). الكود اصبح: Option Compare Database Function Check_Abs(EN) On Error GoTo err_Check_Abs If EN = 0 Then aaaa = 1 End If 'EN = Employee Name WAS 'EN = Employee Code NOW Dim rst As DAO.Recordset fD = [Forms]![frm_get_attendance_data]![Date_From] eD = [Forms]![frm_get_attendance_data]![Date_To] 'myCriteria = "[Emp_Name]='" & EN & "'" myCriteria = "[Emp_Code]=" & EN myCriteria = myCriteria & " And [Leave_Type]='غياب'" myCriteria = myCriteria & " And [day_date] Between " & DateFormat(fD) & " And " & DateFormat(eD) 'Set rst = CurrentDb.OpenRecordset("Select * From tbl_Attendance_in Where [Emp_Name]='" & EN & "' And [Leave_Type]='غياب' And [day_date] Between '" & DateFormat(fD) & "' And '" & DateFormat(eD) & "'") Set rst = CurrentDb.OpenRecordset("Select * From tbl_Attendance_in Where " & myCriteria & " Order by [day_date]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Seq = 1 Prev_Date = rst![day_date] For i = 1 To RC If rst![day_date] = DateAdd("d", 1, Prev_Date) Then Seq = Seq + 1 'do we have a Next Day 'Next Day iNext_Day = DateAdd("d", 1, rst![day_date]) 'Move to Next Records 'and compare days rst.MoveNext If rst![day_date] <> iNext_Day And Seq >= 8 Then Check_Abs = Correct_Names(Seq) Exit For End If rst.MovePrevious Else Seq = 1 End If Prev_Date = rst![day_date] Next_ii: rst.MoveNext Next i ' If Seq >= 8 Then ' Check_Abs = Seq & " ايام متتالية" ' Else ' Check_Abs = RC & " ايام غير متتالية" ' End If Exit_Check_Abs: rst.Close: Set rst = Nothing Exit Function err_Check_Abs: If Err.Number = 3021 Then If Seq >= 8 Then Check_Abs = Correct_Names(Seq) Else Check_Abs = "" End If Resume Exit_Check_Abs Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function Function Correct_Names(N) Select Case N Case 2 Correct_Names = " يومان متتاليان" Case 3 To 10 Correct_Names = N & " ايام متتالية" Case Else Correct_Names = N & " يوم متتالي" End Select End Function جعفر 588.حصر الغياب.mdb.zip

أخى فى الله الأستاذ // أبو الحسن بالمرفقات الملف ( بالضغط على السهم تفتح القائمة المنسدلة لـ ComboBox1 ) اختر منها كود الموظف مرتبات تم التعديل_2.rar

فورم لواجهة شيت كنترول حديثة الفيديو رقم 36 https://up.top4top.net/downloadf-1109s18541-rar.html واجه حديثة لشيت كنترول الدرس 35.rar

الأخ الكريم محمد هادي عتش السلام عليكم جرب المعادلة التالية ضعها فى الخلية AI8 واسحبها نزولا مع العلم انها معادلة صفيف أى اضغط على ctrl+shift+enter =IF(OR(C8:AG8="";SUMPRODUCT(--(E8<50)+(I8<50)+(M8<50)+(Q8<50)+(U8<50)+(Y8<50)+(AC8<50))>1); "راسب "&SUMPRODUCT(--(E8<50)+(I8<50)+(M8<50)+(Q8<50)+(U8<50)+(Y8<50)+(AC8<50))&" مادة";"ناجح") Abo_Abary_من الصف الأول - السادس.rar

1. اعمل استعلام ، وادخل فيه اي حقلين من اي جدول ، احدهما فيه بيانات ، والاخر مافيه بيانات ، اذا استعمل '*' Like في الحقل الذي ليس فيه بيانات ، سترى انه لا تحصل على سجلات اصلا ، مع ان الحقل الآخر فيه بيانات ، هذه كانت مشكلتك ، لأنه لما تستعمل المعيار Peinture ، سترى ان الحقل Heure مثلا ليس به بيانات ، واذا استعملت المعيار '*' Like عليه ، فلن تحصل على اي نتيجة. لذا ، كان لازم نتخلص من معايير '*' Like للحقول التي لا توجد بها معايير ، لذا فقمت بحذفها ، وهذا لا يؤثر على نتائج الاستعلام. 2. ونتيجة الى حذف '*' Like للحقول التي ليست بها معايير ، اصبح لدينا الكثير من " & "And" & " الزائدة ، والتي تمنع من عمل SQL الاستعلام ، فاضطررت الى حذفها ، 3. بقية And الاولى ، والتي كان يجب حذفها كذلك ، فاسهل سطر لحذفها كان هذا جعفر

تفضل اجعل هذا الكود على زر (طبعا بعد ان تغير اسماء الحقول): dim rst as dao.recordset set rst=me.recordsetclone Mobile_Cost = [قيمة الهاتف] Fisrt_Date_of_Payment = [تاريخ او قسط] for i=1 to [عدد الاقساط] rst.addnew rst![رقم القسط] = i rst![قيمة القسط] = Mobile_Cost / [عدد الاقساط] rst![تاريخ الاستحقاق] = dateadd("d" , i-1 , Fisrt_Date_of_Payment) rst.update next i rst.close : set rst = nothing جعفر

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

أخي الكريم مشعل لو اطلعت على التوجيهات ستجد فيه طريقة تغيير اسم الظهور لديك .. قم بالإطلاع على الرابط التالي لمعرفة البدايات في التعامل مع محرر الأكواد .. وهو موضوع مهم جداً الرابط من هنا للمزيد .. قم بالضغط على Alt+ F11 من لوحة المفاتيح ستجد محرر الأكواد نصب عينيك اتبع التعليمات كما في الصورة

نماذج اغلفة لعمل كراسات اجابة لامتحانات نصف العام اعدادى استمارات الامتحانات.rar

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

السلام عليكم ورحمة الله وبركاته هذا برنامج لأخي يوسف عطا معمول على الأكسس( مصمم لي ....((شايف حبايبي كثار))من معلم صديق لي إسمه ابو محمد / عماد عوض exam.rar