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

السلام عليكم ورحمة الله وبركاتة موضوعنا اليوم اردت ان تكون صيغتة صيغة عامة تخدم الكثير من موضوعات جداول البيانات وهو ادراج مجموع كل صفحة وايضا المجموع الكلي وكنت قد قدمت هذا الموضوع منذ سنوات وقد اعادت هذة الذكري الي ذهني احدي المشاركات منذ ايام قليلة فبحثت عن الموضوع ولكني لم اجده ثم بحثت في المنتديات الاجنبية لعلي اجد كود لهذا الموضوع فلم اجد الا كود واحد فقط يغطى هذا الموضوع وهو للمبرمج Ole P. Erlandsen منذ عام 1999 وهو كود وحيد لا يوجود غيره في اي منتدي عربي او اجنبي حاولت تطويعة ( من باب الاستسهال بدلا من كتابة كود جديد ) ولكن صعب عليا تطويعه فتركت الموضوع ثم امس ومضت لي فكرة بناء كود جديد فتوكلت علي الله وكانت هذه النتيجة الكود له 3 مدخلات يجب ضبطها وهي اول 3 سطور في الكود '========================================= First_Cel = "A1" ' عنوان اول خلية في جدول البيانات Count_Row_In_Page = 10 ' عدد الصفوف في كل صفحة Col_Total = "E" ' عمود المجموع '========================================= انظر المرفقات الكود Option Base 1 Sub Subtotals_For_Each_Page() ' '======================================================================= First_Cel = "A1" ' عنوان اول خلية في جدول البيانات Count_Row_In_Page = 10 ' عدد الصفوف في كل صفحة Col_Total = "E" ' عمود المجموع '========================================= Ttitle_1 = "اجمالـــي صفحـــة" Ttitle_2 = "اجمالـــي الصفحـــات :" '======================================================================= ScreenOff Dim Sh_Total_Page As Worksheet Dim Rng As Range Dim Arr() Dim Arr_Page() '======================================================================= ActiveSheet.ResetAllPageBreaks Maximum_Row = ActiveSheet.HPageBreaks(1).Location.Row - 3 If Count_Row_In_Page < 1 Or Count_Row_In_Page > Maximum_Row Then MsgBox "عدد الصفوف لكل صفحة من 1 الي " & Maximum_Row: Exit Sub '======================================================================= Set Sh_Total_Page = Sheets("مجموع_الصفحات") First_Col = Range(First_Cel).Column Count_Col = Cells(Range(First_Cel).Row, Columns.Count).End(xlToLeft).Column End_Row = Cells(Rows.Count, First_Col).End(xlUp).Row Set Rng = Range(First_Cel).Offset(1) Set Rng = Range(Rng, Cells(End_Row, Count_Col)) Arr = Rng '======================================================================= With Sh_Total_Page .Cells.Delete Shift:=xlUp Range(Range(First_Cel), Cells(Range(First_Cel).Column, Count_Col)).EntireColumn.Copy .Range("A1").Insert Shift:=xlToRight .Rows(Range(First_Cel).Offset(1).Row & ":" & Rows.Count).ClearContents End With '======================================================================= Page_Counter = 1 Grand_Total = 0 Col_Total = Columns(Col_Total).Column For x = LBound(Arr) To UBound(Arr) Step Count_Row_In_Page ReDim Arr_Page(Count_Row_In_Page + 1, Count_Col) Row_Offset = x Total_Page = 0 For Row = 1 To Count_Row_In_Page Col_Counter = 0 Total_Page = Total_Page + Arr(Row_Offset, Col_Total) For Col = 1 To Count_Col Col_Counter = Col_Counter + 1 Arr_Page(Row, Col_Counter) = Arr(Row_Offset, Col_Counter) Next Row_Offset = Row_Offset + 1 On Error Resume Next Next Grand_Total = Grand_Total + Total_Page '======================================================================= Arr_Page(Count_Row_In_Page + 1, 1) = Ttitle_1 & Page_Counter & " : " Arr_Page(Count_Row_In_Page + 1, Col_Counter) = Total_Page Page_Counter = Page_Counter + 1 '======================================================================= With Sh_Total_Page End_Row = .Cells(Rows.Count, "A").End(xlUp).Row + 1 Set Rng = .Cells(End_Row, "A") Set Rng = Rng.Resize(Count_Row_In_Page + 1, Col_Total) Rng = Arr_Page End_Row = .Cells(Rows.Count, "A").End(xlUp).Row + 1 Range(.Cells(End_Row - 1, 1), .Cells(End_Row - 1, Count_Col)).Font.Bold = True Range(.Cells(End_Row - 1, 1), .Cells(End_Row - 1, Count_Col)).Font.ColorIndex = 5 End With Erase Arr_Page Next With Sh_Total_Page End_Row = .Cells(Rows.Count, "A").End(xlUp).Row + 1 .Cells(End_Row, "A") = Ttitle_2 .Cells(End_Row, Col_Total) = Grand_Total Range(.Cells(End_Row - 1, 1), .Cells(End_Row, Count_Col)).Font.Bold = True Range(.Cells(End_Row - 1, 1), .Cells(End_Row, Count_Col)).Font.ColorIndex = 5 Range(.Cells(End_Row, 1), .Cells(End_Row, Count_Col)).Font.ColorIndex = 3 .Select End With '======================================================================= Every_Row = Count_Row_In_Page + 1 With ActiveSheet .ResetAllPageBreaks TotalPageBreaks = ActiveSheet.HPageBreaks.Count Lastrow = .Cells(Rows.Count, "A").End(xlUp).Row For Row_Index = Every_Row + 2 To Lastrow Step Every_Row If Row_Index = Lastrow Then .HPageBreaks.Add Before:=.Cells(Row_Index + 1, 1) Else .HPageBreaks.Add Before:=.Cells(Row_Index, 1) End If Next End With TotalPageBreaks = ActiveSheet.HPageBreaks.Count ActiveSheet.HPageBreaks(TotalPageBreaks).Delete '======================================================================= End_Row = Cells(Rows.Count, "A").End(xlUp).Row Set Rng = Range(Range(First_Cel), Cells(End_Row, "A")) Rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete With Sh_Total_Page.PageSetup .PrintTitleRows = "$1:$1" End With End_Row = Cells(Rows.Count, "A").End(xlUp).Row + 1 Rows(End_Row & ":" & Rows.Count).Delete Shift:=xlUp On Error GoTo 0 '======================================================================= ScreenOn ' End Sub المرفقات ادراج مجموع كل صفحة & المجموع الكلي.rar

اخى الكريم ياسر خليل أبو البراء السلام عليكم لكم تعلمنا منك الكثير وشكرا لمرورك العطر بالنسبة لسؤالك الجزئية تعنى اذاكانت If Cells(1, 13) > Cells(1, 15) Then عدد الشهادات اكبر من الصفر نفذ الكود التالى اما بالنسبة للمقارنة بأكبر عدد من الطلبة فلاحظ علامة (< ) أكبر وليست اصغر ....................... وكل عام وانتم بخير اخى الكريم كعبلاوى مشكور لكلاماتك الرقيقة وجزاك الله كل خير

عمل ولااروع يضاف الى قائمه الاعمال المتميزه الله يبارك للنابغه ساجده العزاوي والعبقري ياسر العربي وكل من شارك في اظهار هذا العمل في المنتدى استخراج الشهادات بطريقه سهله وبمعايير مختلفه شهادات الناجحين فقط وشهادات الراسبين فقط او شهادات للاولاد فقط او شهادات للبناتفق شهادات بمعيارين يعني بالفصل والاولاد حاجه روعه وبالشرح Sub الناجحــون() ' هذا الكود للنابغه ساجده العزاوي ' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه 'تم في 27 يونيو 2016 'كطلب المحترم ابو أحمد محمدي ''الفكرة هنا اشرحها باختصار ''ناخذ متغير ونضيف له بعد مليء البيانات 1 '' '' فاذا المتغير زوجي نضع البيانات في الشهادة العلوية بالورقة '' واذا فردي نضع البيانات في الشهادة السفلية بالورقة '' وعند امتلاء الشهادتين نطبع الورقة '' ويتكرر اللوب.... اما اذا كانت فردية بالنهاية '' نجيك هل خلية ام 19 فارغة معناها فقط الشهادة العلوية ممتلئة '' وبهذا نعرف انها فردية فنطبعها LR = Sheet1.Range("C7").End(xlDown).Row ' ايجاد اخر صف موجود به بيانات c = 2 'فائدتها اذا كانت زوجي يضع البيانات في الشهادة العلوية 'واذا فردي يضع البيانات في الشهادة السفلية بالورقة For i = 7 To LR ' متغير لوب من صف 7 الي يحوي البيانات الى اخر صف به بيانات Application.ScreenUpdating = False 'لتسريع الكود وعدم رؤية مايحدث في الشيت وبذلك يتم اخفاء الرجفة If c Mod 2 = 0 Then 'نقسم السي على 2 اذا الباقي صفر اذن سي رقمها زوجي ... 'اذا كان زوجي نضع البيانات في الشهادة العلوية If Sheet1.Cells(i, 101) Like "*" & "ناج" & "*" Then 'If Sheet1.Cells(i, 101) = "ناجــــح" Or Sheet1.Cells(i, 101) = "ناجحــــة" Then 'رقم عمود المعيار وكلمه المعيار الذي نبحث عنها ' Sheets(2).Cells(3, 13) = Sheets(1).Cells(i, 2) 'متغير نضع رقم الجلوس في الخلية ام 3 وعند وضعه 'ستظهر البيانات في الخلايا التي وضعنا فيها المعادله Sheets(2).Cells(12, 3) = Sheets(1).Cells(i, 101) Sheets(2).Cells(12, 6) = Sheets(1).Cells(i, 102) 'نضع محتوى الخلايا سواء فيها ناجح ناجحة 'او لها له دور ثاني ومنقول لصف في الخلايا اعلاه ' ' c = c + 1 'نزيد العداد حتى يصبح فردي ' وفي اللوب الثاني يذهب الى الشهادة التحت لان العليا ملأناها ' ' End If GoTo 1 'يذهب الى 1 لاخذ رقم جلوس اخر Else 'اذا كان رقم السي فردي ' If .Cells(i, 101) Like "*" & "ناجــــح" & "*" Then If Sheet1.Cells(i, 101) = "ناجــــح" Or Sheets(1).Cells(i, 101) = "ناجحــــة" Then '''رقم عمود المعيار وكلمة المعيار Sheets(2).Cells(19, 13) = Sheets(1).Cells(i, 2) Sheets(2).Cells(28, 3) = Sheets(1).Cells(i, 101) Sheets(2).Cells(28, 6) = Sheets(1).Cells(i, 102) c = c + 1 Sheets(2).Range("a1:p31").PrintOut 'وضعنا الطبع هنا في الاف الثانية وليس الاف الاولى للزوجي 'لان تأكدنا تم مليء الشهادتين بالبيانات ' ' Sheets(2).Cells(3, 13) = "" Sheets(2).Cells(19, 13) = "" 'بعد الطبع يجب تفريغ الخليتين ام3 و ام 19 ' التي تحوي ارقام الجلوس ' ' End If End If 1: Next i If Sheets(2).Cells(19, 13) = "" And Sheets(2).Cells(3, 13) <> "" Then Sheets(2).Range("a1:p15").PrintOut End If 'هذه الاف وضعناها في حالة شهادة فردية ' ففي حالة ام 19 فارغة معناها شهادة فردية فقط 'الشهادة العلوية فيها بينات ونعطيه امر بطبعها Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub '''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''' شهادات محدده ''''''''''''''''''''''' ''''''''''''''''''' Sub طباعه_محدده_للأولاد() ' ' هذا الكود للنابغه ساجده العزاوي ' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه 'تم في 27 يونيو 2016 'كطلب المحترم ابو أحمد محمدي ''الفكرة هنا اشرحها باختصار ''ناخذ متغير ونضيف له بعد مليء البيانات 1 '' '' فاذا المتغير زوجي نضع البيانات في الشهادة العلوية بالورقة '' واذا فردي نضع البيانات في الشهادة السفلية بالورقة '' وعند امتلاء الشهادتين نطبع الورقة '' ويتكرر اللوب.... اما اذا كانت فردية بالنهاية '' نجيك هل خلية ام 19 فارغة معناها فقط الشهادة العلوية ممتلئة '' وبهذا نعرف انها فردية فنطبعها LR = Sheets(1).Range("C7").End(xlDown).Row ' ايجاد اخر صف موجود به بيانات c = 2 'فائدتها اذا كانت زوجي يضع البيانات في الشهادة العلوية 'واذا فردي يضع البيانات في الشهادة السفلية بالورقة For i = Sheets(2).Cells(7, 18).Value To Sheets(2).Cells(7, 19).Value 'من الخلية التي تحوي رو الطبع الى الخلية الثانية التي تحوي الى ار 7 و اس 7 Application.ScreenUpdating = False 'لتسريع الكود وعدم رؤية مايحدث في الشيت وبذلك يتم اخفاء الرجفة If c Mod 2 = 0 Then 'نقسم السي على 2 اذا الباقي صفر اذن سي رقمها زوجي ... 'اذا كان زوجي نضع البيانات في الشهادة العلوية ' If Sheets(1).Cells(i, 128) = "ذكر" Then 'رقم عمود المعيار وكلمه المعيار الذي نبحث عنها ' Sheets(2).Cells(3, 13) = Sheets(1).Cells(i, 2) 'متغير نضع رقم الجلوس في الخلية ام 3 وعند وضعه 'ستظهر البيانات في الخلايا التي وضعنا فيها المعادله Sheets(2).Cells(12, 3) = Sheets(1).Cells(i, 101) Sheets(2).Cells(12, 6) = Sheets(1).Cells(i, 102) 'نضع محتوى الخلايا سواء فيها ناجح ناجحة 'او لها له دور ثاني ومنقول لصف في الخلايا اعلاه ' ' c = c + 1 'نزيد العداد حتى يصبح فردي ' وفي اللوب الثاني يذهب الى الشهادة التحت لان العليا ملأناها ' ' End If GoTo 1 'يذهب الى 1 لاخذ رقم جلوس اخر Else 'اذا كان رقم السي فردي If Sheets(1).Cells(i, 128) = "ذكر" Then 'رقم عمود المعيار وكلمه المعيار الذي نبحث عنها Sheets(2).Cells(19, 13) = Sheets(1).Cells(i, 2) Sheets(2).Cells(28, 3) = Sheets(1).Cells(i, 101) Sheets(2).Cells(28, 6) = Sheets(1).Cells(i, 102) c = c + 1 Sheets(2).Range("a1:p31").PrintOut 'وضعنا الطبع هنا في الاف الثانية وليس الاف الاولى للزوجي 'لان تأكدنا تم مليء الشهادتين بالبيانات ' ' Sheets(2).Cells(3, 13) = "" Sheets(2).Cells(19, 13) = "" 'بعد الطبع يجب تفريغ الخليتين ام3 و ام 19 ' التي تحوي ارقام الجلوس ' ' End If End If 1: Next i If Sheets(2).Cells(19, 13) = "" And Sheets(2).Cells(3, 13) <> "" Then Sheets(2).Range("a1:p15").PrintOut End If 'هذه الاف وضعناها في حالة شهادة فردية ' ففي حالة ام 19 فارغة معناها شهادة فردية فقط 'الشهادة العلوية فيها بينات ونعطيه امر بطبعها Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub '''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''' النابغه من اهلنا بالعراق حفظ الله العراق واذل كل من دمره شهادات من النابغه ساجده 1.rar

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Or Target = "" Then Exit Sub If Target < 10 Or Target > 20 Then MsgBox "يجب ادخال قيمة بين 10 و 20" Target = "" Target.Select End If End Sub تضع الكود في حدث ورقة العمل .. في العمود B يجب ادخال قيمة بين 10 و 20

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

جرب هذا الملف الذي يمكنك البناء عليه show_only_my_sheet.rar

=IF(B5="";"";IF(AND((COUNTIFS(C5:AX5;"غائب")=0);(COUNTIFS(C5:AX5;"دون المستوى")=0));"ناجح";"راسب")) انظر الى المعادلة (هذا العمل للمحترم الاستاذ محمد ابو البراء ) لو لاحظنا في هذه الدالة سنجد ان االدالة ليس فيها الا نطاق واحد متكرر مرتان وهو c5:ax5 هذا النطاق هو نطاق اول طالب فيه تقديراته من اول مادة الى اخر مادة فبالتالي اذا اردنا استخدامها نستطيع وبسهولة وكل ما علينا الا تغيير هذا النطاق ليتناسب مع عدد موادنا دالة بطريقة جديدة لمعرفة حالة الطالب _راسب او ناجح. =IF(B5="";"";IF(COUNTIF(C5:AX5;"غائب")+COUNTIF(C5:AX5;"دون المستوى")=0;"ناجح";"راسب")) للاستاذ المحترم جمال عبد السميع دالة بطريقة جديدة لمعرفة حالة الطالب _راسب او ناجح. ====================================================== ====================================================== شرط النجاح للطالب ان يكون حاصل علة 30% من درجه امتحان اخر العام ان يكون الطالب حاصل على نصف او اكبر من نصف درجة المجموع لنفس الماده لايكون غائب في امتحان اخر العام لنفس الماده abo_abary_Book1.ra =IF(OR(H13<$H$10;H13="غ";I13<$I$10);"راسبة";"ناجحة")

بارك الله فيك اخي ياسر .....الحمد لله وصلت المطلوب

بارك الله فيك أخي الحبيب عبد السلام وكل عام وأنت بخير بعد إذنك جرب التعديل في الكود بهذا الشكل ليناسب طلبك Private Sub Worksheet_Change(ByVal Target As Range) Dim LC As Long Dim Row As Long If Target.Address = "$D$2" Then Row = Application.Match([D1], Columns(5), 0) LC = IIf(Cells(Row, Columns.Count).End(xlToLeft).Column + 1 < 9, 9, Cells(Row, Columns.Count).End(xlToLeft).Column + 1) If LC > 21 Then MsgBox "No More Months", 64: Exit Sub Cells(Row, LC) = Target Target.Activate End If End Sub

تم تعديل المعادلات .. وفيما يخص الفورم .. لم اقم باي تعديل عليه والمشكلة موجودة مسبقا .. تنظيم المعاملات 3.rar

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

بارك الله فيك يا أخي الكريم

اقساط حضانة .rar

لك جزيل الشكر أخي عبد السلام. لكن أنا أريد أن أعملها بكود vba

جرب هذا الملف .. مع ملاحظة ان الموجود في المرفق هو فكرة الحل .. بمعنى .. قم بتعديل النطاقات داخل الملف عند اضافة بيانات جديدة تنظيم المعاملات 2.rar

قمت بالتعديل علي الفورم في مشاركة سابقة وهو يشتغل بشكل جيد .. ولكن للتعيدل علي الكود الحالي قم باضافة هذا السطر If Lr < 9 Then Lr = 9 في هذا الموضع

أخي الكريم أبو يوسف استخدم المعادلة بشكل عادي .. لنفترض أن الوقت الأول في الخلية A1 والوقت الثاني في الخلية B1 .. ضع المعادلة بشكل عادي في الخلية C1 بهذا الشكل =A1-B1 ثم قم بتنسيق الخلية كوقت Time

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

إظهار كل 15 شهادة التالية والسابقة abo_abary_12.rar Sub UP() If Cells(1, 13) <= Cells(1, 14) Then Cells(1, 13) = Cells(1, 13) + 14 End If End Sub Sub DOWN() If Cells(1, 13) - 14 < 0 Then GoTo 1 If Cells(1, 13) > Cells(1, 15) Then Cells(1, 13) = Cells(1, 13) - 14 End If 1 End Sub

السلام عليكم شكرا للاستاذ ياسر جزاه الله خيرا اليك اخي تكملة الاحصائية تحياتي احصائيةالمواد.rar

موضوع رائع جزيت خيرا اخي الكريم ابو صهيب وكل عام وانت بخير واخواني ابو البراء وابو يوسف كل عام اونتم بخير جميعا تقبل الله منا ومنكم صالح الاعمال تقبلو تحياتي

السلام عليكم ورحمة الله تم التعديل على شيتات "الناجحون" و "الراسبون" بتصحيح بعض الأخطاء في المعادلات: 1- المعادلات في العمود C في الشيتات المعنية هي معادلات صفيف أي يجب تأكيدها بواسطة CTRL+SHIFT+ENTER 2- تم استبدال الصيغة "313" في معادلات العمود C من شيتات "الناجحون" بالعدد 313 (ليس نصا) 3- تم تصحيح أرقام الأعمدة في معادلات جلب علامات المواد... وكل التصحيحات تمت في الملف المرفق... لم أنظر إلى الشيتات الأخرى في الملف... بن علية تصحيحمعادلةترحيل.rar

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

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية ، كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل بشكل أفضل مع المنتدى بالنسبة لطلبك قمت بكتابة أسماء أوراق العمل في العمود الأول واستخدام الدالة INDIRECT للإشارة إلى النطاق أثناء استخدام الدالة COUNTIF أو COUNTIFS قم بدراسة الجدول الأول لتعرف كيفية تكملة الجداول الأخرى لأنها نفس الفكرة مع زيادة عدد الشروط فقط .. إليك الملف المرفق وكل عام وأنت بخير احصائية.rar

وعليكم السلام ورحمة الله وبركاته كل عام وانت بخير تفضل اخي الكريم،،، ملفك بعد التعديل ووافني بالنتيجة :: تحياتي Waz-JustTypeID.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اهديكم ما وعدتكم به الاصدار الثاني من برنامج خبور المحاسبي عملة رئيسية وعشر عملات فرعية مع حساب فروقات سعر عملة تلقائي ======================= في المرفق مثال عملي على مصداقية عمل البرنامج ولهذا اقدم اليكم الآن البرنامج من جديد مع بعض الاضافات الجديدة مع مثال عملي يتكون من اكثر من 10000 سجل لقاعدة البيانات حسابات كشف العملاء اكثر من 200 عميل ومورد حسابات الميزانية 24 حساب يمكنكم التجربة عمليا في الآتي: 1-استخراج اي قيد وقم بالتعديل عليه لاحظ سرعة القيام بالتعديل مع وجود اكثر من 10000 سجل استخرج القيد لترى ان تمت فيه التعديلات ام لا 2- قم بتغيير اسعار العملات في صفحة الاعدادات وانتقل الى كشف العملاء والموردين ثم ميزان المراجعة سترى ان الفروقات قد تمت تلقائيا 3-افتح قاعدة البيانات واعمل خلل في صحة الميزان ( لانه لايمكنك عمل ذلك من خلال التعديلات لان القيد لايترحل الا ان كان متوازنا) سترى ظهور الخلل في ميزان المراجعة ولن يدخل هذا الخلل في فروقات اسعار العملات وهناك الكثير من الملاحظات التي لن تروها الا بالتجربة العملية ولهذا قمت بعمل هذا المثال ( هي قيود غير حقيقه لانها مكرره ولكن من اجل من اراد ان يعمل بالبرنامج وهذا الذي اريده ان يثق في مصداقية هذا العمل ) هذا الذي كان في قلبي واردت ان اوصله اليكم وقد بذلت في هذا البرنامج كل ما استطيعه حسب ما اعطانا الله من علم وقدرة ولله الحمد ولا اريدكم ان تمروا عليه مرورا عابرا اريد ان اطور هذا البرنامج و لكن لله المراد فيما اراد جزاكم الله الف خير تحياتي للاخ محمد عسكر الذي يشرح صدري بردوده وليس لي انا فقط ولكن لكل من قدم مساهمه في هذا المنتدى جزاك الله الف يااخ محمد قد التمست هذه المره بعض الذي اخبرتنا عنه سابقا ارسل لي ايميل على khboor@gmail.com تحياتي للجميع اخوكم / خبور اخوكم/ خبور _____________________2_3.rar