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

شوف هذا عمل مربعين نصيين واحد من الاخر الى وفي مصدر الاستعلام في نفس السطر الشرط بين تاريخين كتبت شرط العمر بين الرقمين 2-tesst (1).rar

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

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

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

السلام عليكم سأشرح كيف اني أشير الى مكان وجود الجداول (سواء المضمنة او المرتبطة)، والذي سيكون مجلد الصور سيكون معه في نفس المجلد ، يعني مجلد الصور دائما يجب ان يكون في نفس مجلد قاعدة البيانات التي تحتوي على الجداول (بغض النظر ، سواء أكانت قاعدة البيانات واحدة او مقسمة). نضع هذا الكود في وحدة نمطية: Public Function GetDBPath() As String Dim strFullPath, Table_Name As String Dim rst As DAO.Recordset 'check for a linked table Set rst = CurrentDb.OpenRecordset("SELECT Name FROM msysObjects WHERE Type=6 AND Left([Name],2) Not In ('~t','ms')") If rst.EOF Then 'Table doesn't exist Exit Function Else 'linked Table exists Table_Name = rst(0) End If rst.Close Set rst = Nothing 'now get the path strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs(Table_Name).Connect, 11) GetDBPath = Left(strFullPath, InStrRev(strFullPath, "\")) End Function Public Function BE_or_FE() ' to use: ' BE_or_FE ' 'if BE exits, use its path, 'otherwise use the Application path 'get the BE Path BE_or_FE = GetDBPath If Len(BE_or_FE & "") = 0 Then BE_or_FE = Application.CurrentProject.Path End If End Function Function Images_Location() 'If we want the Backend Folder Images_Location = BE_or_FE & "\archive" 'or we can assign any location we want 'Images_Location = "c:\Temp" & "\archive" End Function وعندما اريد ان اعرف مسار الجداول (بغض النظر في كون الجداول مضمنه او مرتبطة) ، فاناديه هكذا: msgbox BE_or_FE وعندما اريد ان اعرف مسار مجلد الصور ، فاناديه هكذا: msgbox Images_Location وعندما اريد ان اشير الى الصورة التي اشرت اليها انت ، فاناديه هكذا: Images_Location & "\" & txt1 & ".jpg" جعفر

نعم أستاذ رمهان هكذا سوف يصبح أمر التوقع صغير

هذا كود سيقوم باخبارك هل الربط تمام ام لا If CurrentDb.OpenRecordset("SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects AS MSysObjects_1 RIGHT JOIN [" & DLookup("DBPathANDName", "BackDBs", "found=true") & ";pwd=" & DLookup("mypass", "BackDBs", "found=true") & "].MSysObjects ON MSysObjects_1.ForeignName = MSysObjects.Name WHERE (((MSysObjects.Name) Not Like '*msys*') AND ((MSysObjects_1.ForeignName) Is Null) AND ((MSysObjects.Type)=1))").RecordCount <> 0 Then MsgBox ("الربط غير سليم") الصقه في اي حدث يناسبك . مثلا عند التحميل للنموذج الرئيسي. والانتباه الى وجود البيانات التالية بالجدول BackDBs 1. وجود مسار للقاعدة الخلفية ووضع علاة صح ان المسار صحيح 2. هناك كلمة مرور للقاعدة الخلفية والتي مسارها اعلاه وبعدين ننتقل خطوة خطوة لماتريد بافكار جديده تحياتي

حياكم الله استاذ صالح هذا تعديل بسيط مقترح على مثال الاستاذ ابو خليل Private Sub Form_Timer() DoCmd.GoToRecord , , acGoTo, Int((Me.RecordsetClone.RecordCount - 1 + 1) * Rnd + 1) End Sub حيث اصبح التنقل عشوائي بين 1 وعدد سجلات النموذج تحياتي

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

السلام العلیکم عندى اکثر من 2000 صفحات ولیس تسسلا (XFC10)عن طریق VLOOKUP اخترت اخر رصید فی کل صفحات فی خانة اريد جمع کل خانات (XFC10) في کل صفحات إلى خانة (B2) في صفحة مجموعة في کل صفحات إلى خانة (ب٢) في صفحة مجموعة آسف لغتي العربية سيئة أنا لا أتحدث العربية شكرا للمساعدة

تم حذف المرفق بناء على طلب صاحب الموضوع جعفر

السلام عليكم أستاذ رمهان حياك الله نعم ملاحظاتك صحيحة و في محلها. أخي أبو ابراهيم تفضل: لقد قمت بإجراء التعديلات التالية على ملف الأستاذ ابو خليل: 1- أضفت جدول جديد "جدول الفائزين" كل شخص يخرج في القرعة يضاف إلى هذا الجدول. 2- عند خروج أي شخص في القرعة فإن البرنامج سوف يكتب في حقل "خارج القرعة" للجدول "القرعة" 1. 3- أضفت استعلام "استعلام1" و جعلته مصدر السجلات للنموذج "القرعة" و وضعت به شرط أن يكون حقل "خارج القرعة" خاليا. يعني أن الحقول المكتوب بها 1 لا تدخل في القرعة. القرعة.rar

الاخ ابو العلاء لك جزيل الشكر تابع الفيديو التالى مسابقة عامة سؤال وجواب الدرس41 https://up.top4top.net/downloadf-1109a2gb91-rar.html مسابقة سؤال وجواب.rar

فكرة بسيطة ورااااااائعه

هل يمكن تغير الكود الموجود في هذه المشاركة ليكون في تذييل المجموعة بدلا من في ا لتفصيل في حدث عند الطباعة حل كان من انتلج الاخ العزيز حارث الله يذكره بالخير ضع في حدث عند الصفحة الكود التالي Me.ScaleMode = 1 Me.ForeColor = 0 Me.DrawWidth = 3 وفي التفصيل في حدث عند الطباعة ضع الكود التالي وستحل مشكلتك انشاء الله Dim ctl As Control Dim MaxHeight As Long MaxHeight = 0 For Each ctl In Me If TypeOf ctl Is TextBox And ctl.Section = 0 Then If ctl.Height > MaxHeight Then MaxHeight = ctl.Height End If Next For Each ctl In Me If TypeOf ctl Is TextBox And ctl.Section = 0 Then Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight) End If Next Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight) Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight)

أستاذ : رمهاان محلل نظم خبير Business Process مستشار اعمال ونظم ال ERPs و قاهر الاكسيس . بارك الله فيك وفي المنتدي و القائمين على هذا العمل العظيم . تحياتي لكل من قدم المساعدة . احبكم في الله

::: الكومبو هو استعلام غير مرتبط للبحث فقط وليس للاضافة ... اما تكست بوكس فهو مرتبط بالجدول ويمكنك الاضافة من خلاله ... تحياتي’

السلام عليكم انا لي وجهة نظر هنا بملف الاستاذ ابو خليل الموقر هنا ليس الاختيار عشوائيا بناء على خوارزمية معينه تحتمل التوقع قريبة للصفر وانما احتوى الملف على خوارزمية التنقل بين السجلات مما يجعل التوقع قريب لل 100 % وهذا ينفي العشوائي فالمسالة للوقت تدخل هنا فان اخترت في بداية الوقت ستحصل على السجلات الاولى وبالمقابل نهاية الوقت ستكون في السجلات الاخيره وتوضيح اكثر لو نقرت البداية ثم النهايه مرتين بنفس الوقت المستغرق بين البداية والنهايه ستحصل على نفس السجل تحياتي

بعد اذن الاخ ابو البراء انسخ هذا الكود الى موديل جديد Function Color_Num(rg As Range, source_rg As Range) my_color = source_rg.Interior.ColorIndex For i = 1 To rg.Count If rg.Cells(i).Interior.ColorIndex = my_color Then s = s + 1 Next Color_Num = s End Function ثم في الخلية CS8 اكتب هذه المعادلة و اسحب يساراً (و نزولاً اذا كنت تريد العمل على اكثر من صف) =IF($B8="","",Color_Num($D8:$CR8,CS$5)) اليك الملف مع المعادلة ديسمبر 2016 سليم.rar

وعليكم السلام إن شاء الله غداً إذا تيسر لي الأمر سأحاول العمل على موضوعك إلا إذا تدخل أحد الأخوة الكرام بالمنتدى تقبل تحياتي

السلام عليكم اطلع على الرابط التالي فيه ما تريد إن شاء الله من هنا

بالتاكيد هذا ما تريد ... شكرا اخى شفان

السلام علیکم ورحمة الله وبركاته كما قال استاذنا جعفر تكدر تعمل استعلام الترحيل هكذا شوف هذا الرابط وبعد تحديث الكومبوبوكس استعمل كود Dcount مع if

شوف الموضوع ده هيفيدك كتير

السلام عليكم ورحمة الله جرب الملف المرفق لعل فيه ما تريد... بطبيعة الحال المعادلات المستعملة في الملف يجب أن تتغير حسب الحالة... بن علية New Microsoft Excel Worksheet.zip

الاخوة الزملاء فورم للكنترول تحت الاعداد الصفجة الرئيسية الفورم فكرة الفورم الاختيار من المرحلة الصف المطلوب بالتعليم داخل OptionButton سيذهب الى الصفحة المطلوبة يوجد زر لاظهار فورم ثان يختار منه المادة فى انتظار تعليقاتكم للتعديل عليه قبل التكملة

اطلع على الرابط التالي لعله يفيدك من هنا

السلام عليكم لمنع إضافة سجلات استعمل الكود التالي: Me.AllowAdditions = False لمنع حذف سجلات استعمل الكود التالي: Me.AllowDeletions = False لمنع التعديل على السجلات استعمل الكود التالي: Me.AllowEdits = False أما بالنسبة لإستعمالها في صلاحيات المستخدمين يمكنك استعمال ثلاثة أرقام مثلا: 1: له كل الصلاحيات 2: يستطيع الإضافة فقط 3: المشاهدة فقط (يمنع من جميع الصلاحيات التعديل ,الإضافة و الحذف) نستعمل الكود التالي في حدث عند التحميل للنموذج : If VaUser=1 Then Me.AllowDeletions = True Me.AllowAdditions = True Me.AllowEdits = True ElseIf VaUser=2 Then Me.AllowDeletions = False Me.AllowAdditions = True Me.AllowEdits = False Else Me.AllowDeletions = False Me.AllowAdditions = False Me.AllowEdits = False End If

السلام عليكم ومشاركة مع اخي شفان ان احب استخدام استعلام الحاقي في مثل هذه الحالات ، فاعمل 3 استعلامات ، استعلام لكل مشرف (لأن كل مشرف عنده جدوله الخاص) ، وفي حدث بعد التحديث لمربع تحرير وسرد اختيار المشرف ، اعمل كود شبيه بهذا: 1. تأكد ان هذه البيانات غير موجودة في الجدول ، 2. استعمل استعلام الالحاق جعفر

ممكن ترفق نسخة مصغرة من قاعدة بياناتك لكي نعمل عليه تحياتي

السلام عليكم ورحمة الله انسخ الكود التالى والصقه فى موديول وخصص له زر Sub TransrerData() Dim ws As Worksheet, sh As Worksheet Dim LR As Long, LS As Long Dim R As Integer, S As Integer, p As Integer, Cod As Byte, Cod2 As Byte Dim Qty As Long, Qty2 As Long Set ws = Sheets("ÇÑÔíÝ") Set sh = Sheets("ÈíÇä ÊÌãíÚì") sh.Range("B10:K100").ClearContents Application.ScreenUpdating = False LR = ws.Range("E" & Rows.Count).End(xlUp).Row For R = 10 To LR Cod = WorksheetFunction.CountIf(Range(ws.Cells(10, "E"), _ ws.Cells(R, "E")), ws.Cells(R, "E")) If Cod = 1 Then sh.Cells(R, "B") = ws.Cells(R, "E") sh.Cells(R, "C") = ws.Cells(R, "F") sh.Cells(R, "D") = ws.Cells(R, "G") sh.Cells(R, "F") = ws.Cells(R, "I") Qty = WorksheetFunction.SumIf(Range(ws.Cells(10, "E"), ws.Cells(LR, "E")), _ sh.Cells(R, "B"), Range(ws.Cells(10, "H"), ws.Cells(LR, "H"))) sh.Cells(R, "E") = Qty End If Next LS = ws.Range("M" & Rows.Count).End(xlUp).Row p = 9 For S = 10 To LS Cod2 = WorksheetFunction.CountIf(Range(ws.Cells(10, "M"), _ ws.Cells(S, "M")), ws.Cells(S, "M")) If Cod2 = 1 Then p = p + 1 sh.Cells(p, "G") = ws.Cells(S, "M") sh.Cells(p, "H") = ws.Cells(S, "N") sh.Cells(p, "I") = ws.Cells(S, "O") sh.Cells(p, "K") = ws.Cells(S, "Q") Qty2 = WorksheetFunction.SumIf(Range(ws.Cells(10, "M"), ws.Cells(LS, "M")), _ sh.Cells(p, "G"), Range(ws.Cells(10, "P"), ws.Cells(LS, "P"))) sh.Cells(p, "J") = Qty2 End If Next Application.ScreenUpdating = True End Sub

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

استخدم هذا الكود لعل بها المطلوب وغير MYTABLE باسم جدول المشرفين DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.OpenTable "MYTABLE", acViewNormal, acAdd DoCmd.RunCommand acCmdPaste

الأخ الغالي محبوب ... إليك إصدار آخر من الملف ..عله ينال رضاك ..قمت ببعض الإضافات ليكون الملف شامل وكافي ووافي لكل السنوات ... جرب الملف التالي (ولو عجبك غير أفضل إجابة وحددها هنا ..ليسهل للباحث فيما بعد الوصول بسرعة للحل المطلوب) متنساش تدعي لي ..ومتنسناش بفردة كاوتش من معرض السيارات (أي مصلحة منك ..!!) Three Loops In Two Excel Files By YasserKhalil V2.rar

تحية وتقدير بدايةً أسعدنى مرورك قبل مشاركتك فأما الشكر لك فأنا أعجز عن تقدير تعبك ومجهودك لمساعدتى وفققك الله لكل ما يحبه ويرضاه تقبل شكرى وتقديرى أستاذنا العزيز \ ياسر :fff: :fff: :fff:

الأخ الحبيب محبوب تعبت والله ..بقالي ساعتين عشان أعمل الكود الملعبك ده بس الحمد لله بفضل الله تم المطلوب .. افتح ملف "الأقساط الشهرية 2015" ستجد الكود بداخله .. في ورقة الفهرس يوجد زر امر انقر عليه لتنفيذ الكود .. Sub YasserKhalil() Dim WBK As Workbook Dim SH As Worksheet, WS As Worksheet, Cell As Range Application.ScreenUpdating = False Application.DisplayAlerts = False Set WBK = Workbooks.Open(ThisWorkbook.Path & "\حسابات العملاء 1.xlsx") For Each SH In ThisWorkbook.Sheets If SH.Name <> "الفهرس" Then SH.Range("C6:F99,H6:I99").ClearContents For Each WS In WBK.Sheets If WS.Name <> "الفهرس الرئيسى" Then With WS If IsEmpty(.Range("A6")) Then GoTo 1 For Each Cell In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row) If Month(Cell.Value) = MonthNumber(SH.Name) Then SH.Range("H" & SH.Cells(99, 8).End(xlUp).Row + 1) = Cell.Value SH.Range("C" & SH.Cells(99, 3).End(xlUp).Row + 1) = .Range("C2").Value SH.Range("E" & SH.Cells(99, 5).End(xlUp).Row + 1) = Cell.Offset(, 2) SH.Range("F" & SH.Cells(99, 6).End(xlUp).Row + 1) = Cell.Offset(, 3) SH.Range("I" & SH.Cells(99, 9).End(xlUp).Row + 1) = .Range("M8").Value End If Next Cell 1 End With End If Next WS End If Next SH WBK.Close SaveChanges:=False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Function MonthNumber(MonthName As Variant) As Variant Select Case MonthName Case "": MonthNumber = "" Case "يناير": MonthNumber = 1 Case "فبراير": MonthNumber = 2 Case "مارس": MonthNumber = 3 Case "ابريل": MonthNumber = 4 Case "مايو": MonthNumber = 5 Case "يونيو": MonthNumber = 6 Case "يوليو": MonthNumber = 7 Case "اغسطس": MonthNumber = 8 Case "سبتمبر": MonthNumber = 9 Case "اكتوبر": MonthNumber = 10 Case "نوفمبر": MonthNumber = 11 Case "ديسمبر": MonthNumber = 12 End Select End Function تقبل تحياتي ولا تنسى أن تحدد المشاركة إذا أعجتك الإجابة كأفضل إجابة (ساعتين مني قصاد ثانيتين منك .. أظن كدا عدل والحمد لله) Three Loops In Two Excel Files By YasserKhalil.rar

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

كود اخر خلية مستعملة كود اخر خلية مستعملة.rar

هنا الجزء الثالث والاخير الدرس الثالث.rar

هنا الجزء الثاني الجزء الثاني.rar

العزيز يحياوي : والله احترت ... ليس بجعبتي حاليا اية مشاركة وبنفس الوقت لااريد الانقطاع عن المشاركة .. اخترت اليوم ملف دروس في تعامل الاكواد ضمن اكسل ( تطبيقات vba ) وهو ليس باهمية الدروس التي ارفقتها حضرتك ولكن ابسط نوعا ما وتلائم المبتدئين امثالي ارجو ان ينال الرضى ... منقول للامانة وفقك الله ياسر الحافظ " ابو الحارث " الجزء الأول.rar

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

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

أخي الكريم إليك الملف بعد التعديل ولكن غير العملة حسب رغبتك في المعادلة الموجودة في النموذج والتقرير تحيـــــاتي