بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 04 نوف, 2024 in all areas
-
المطلوب منك هتعلن عن متغير عام على مستوى النموذج Private SortAscending As Boolean هتحتاج الى هذا الصب Private Sub SortRecords(ByVal FieldName As String) Dim OrderDirection As String If SortAscending Then OrderDirection = " ASC" Else OrderDirection = " DESC" End If Me.OrderBy = FieldName & OrderDirection Me.OrderByOn = True SortAscending = Not SortAscending End Sub وفى كل تسميه هتيجي عن حدث عند الضغط وتستدعي الصب مثل SortRecords "Nr" لاحظ انى هنا احتجت اى اسم الحقل (كما هو فى الجدول) لهذا الصب مرفق الملف بعد التعديل db1.rar5 points
-
ما شاء الله أستاذ @عمر ضاحى ،، سابق بأفكاره .. اسمح لي بمشاركة فكرتي البسيطة معك .. بالنسبة لي اعلنت عن 3 متغيرات في النموذج ( للرقم والإسم والوظيفة ) Dim sortAscending As Boolean Dim sortByNameAscending As Boolean Dim sortByJobTitleAscending As Boolean وفي حدث عند النقر لكل مربع نص اعتمدت على مصدر سجلات النموذج من الجدول كما يلي :- Private Sub الأسم_Click() If sortByNameAscending Then Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Name_T DESC;" sortByNameAscending = False Else Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Name_T ASC;" sortByNameAscending = True End If Me.Requery End Sub Private Sub الوظيفة_Click() If sortByJobTitleAscending Then Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.School_Work DESC;" sortByJobTitleAscending = False Else Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.School_Work ASC;" sortByJobTitleAscending = True End If Me.Requery End Sub Private Sub رقم_Click() If sortAscending Then Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Nr DESC;" sortAscending = False Else Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Nr ASC;" sortAscending = True End If Me.Requery End Sub db1.mdb4 points
-
هذا ليس له دخل بالكود ال معاك هذا شئ تاني مختلف الحمد لله يا هلا يا هلا باخي فادي يا عم انت هنا المبدع فى افكارك ما شاء الله عيك2 points
-
أخي @ehabaf2 أظن اننا بحاجة لإفراغ اليوزرفورم من جميع الأكواد السابقة وإعادة إظافة أكواد جديدة لتتناسب مع طلبك 1) تعديل أعمدة تعبئة عناصر الكومبوبوكس 2) تعديل كود الترحيل للحصول على تسلسل عمود C (رقم الموظف) بداية من رقم 1 للقيمة الفريدة مع تسلسلها عند تكرار نفس المسلسل ونفس التاريخ 3) تعديل كود تحديث البيانات بحيث يتم تعديل الصف بشرط تطابق المسلسل والتاريخ ورقم الموظف (TEXTBOX1-TEXTBOX2-TEXTBOX3) 4) نفس الفكرة على كود الحدف تفاديا لحدف أي بيانات لا تتطابق مع القيم المختارة بالعناصر خاصة انها مكررة (TEXTBOX1-TEXTBOX2-TEXTBOX3) وضمان إعادة التسلسل للشكل المطلوب كان بامكاني الإكتفاء بنشر كود الترحيل فقط بعد إظافة التسلسل المطلوب لاكنك ستواجه مشاكل عند محاولة الحدف أو التعديل وسنظطر الى إعادة فتح موضوع جديد 😂 لاكن ولا يهمك بالنسبة لتعبئة عناصر الكومبوبوكس تم تعديلها على حسب طلبك كما في الصورة اسفله كود الترحيل بعد إظافة تسلسل عمود C بالشروط المدكورة Private Sub CommandButton1_Click() 'ترحيـل البيانات Dim i As Integer, lastRow As Long, choose As Integer Dim x As Integer, arr() As String, TexArr As String For i = 1 To 3 If Me.Controls("TextBox" & i).Value = "" Then TexArr = Me.Controls("cnt" & i).Caption ReDim Preserve arr(x) arr(x) = TexArr x = x + 1 End If Next i If x > 0 Then MsgBox "يرجى التحقق من " & Chr(10) & Join(arr, " - "), vbInformation Exit Sub End If choose = MsgBox("ترحيـل البيانات؟", vbYesNo, "تأكيـــد") If choose <> vbYes Then Exit Sub Application.ScreenUpdating = False lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1 For i = 1 To 62 If i <> 3 Then On Error Resume Next n = Me.Controls("TextBox" & i).Value On Error GoTo 0 With ws.Cells(lastRow, i) If IsDate(n) Then .Value = CDate(n) Else .Value = n End If End With End If Next i Call UpdateNum(ws) For i = 1 To 62: Me.Controls("TextBox" & i).Value = "": Next i For i = 1 To 3: Me.Controls("ComboBox" & i).Value = "": Next i UserForm_Initialize Application.ScreenUpdating = True End Sub الدالة التالية لتسلسل عمود رقم الموظف سنقوم بإستدعائها سواءا عند الترحيل أو الحدف وكدالك التعديل لضمان الحفاظ على التسلسل الصحيح عند كل إجراء Function UpdateNum(ws As Worksheet) As Boolean On Error GoTo ErrorHandler Dim lastRow As Long, OnRng As Range Dim n() As Variant, ar() As Variant Dim src As Long, tmp As String Dim Dict As Object Set Dict = CreateObject("Scripting.Dictionary") lastRow = ws.Columns("A:B").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row Set OnRng = ws.Range("A5:B" & lastRow) ar = OnRng.Value2 ReDim n(1 To UBound(ar, 1), 1 To 1) For i = 1 To UBound(ar, 1) If ar(i, 1) <> "" And ar(i, 2) <> "" Then tmp = ar(i, 1) & "|" & ar(i, 2) If Not Dict.Exists(tmp) Then src = 1 Dict.Add tmp, src Else src = Dict(tmp) + 1 Dict(tmp) = src End If n(i, 1) = src Else n(i, 1) = "" End If Next i ws.Range("C5").Resize(UBound(n, 1), 1).Value = n UpdateNum = True Exit Function ErrorHandler: UpdateNum = False End Function الملف المرفق يتضمن تعديل جميع الاكواد المدكورة سابقا ترحيل مع كمبوبوكس البحث بحقلين V2.xlsm2 points
-
السلام علبكم 🙂 بسبب اختلاف تنسيقات ملفات الاكسل (او CSV) ، وخصوصا تلك التي من مواقع وزارة التعليم في المملكة العربية السعودية ، كنا نضطر ان نتعامل بالكود مع كل تنسيق بطريقة تختلف عن الملف الآخر ، مما يجعل الحل لا يتناسب مع التنسيقات الملفات الاخرى ، وهذا الكود ليس بالسهل تعديله. ولكن ، تقريبا جميع مستخدمي الاكسس يعرفون التعامل مع الاستعلام ، لهذا السبب دعونا نتعامل مع بيانات الاكسل في استعلام ، استعلام مسقط 🙂 هذه واجهة النموذج الذي يتم كل شيء عن طريقه: 1. لتصفح الملفات ، واختيار ملف الاكسل (xls, xlsx, xlsm, csv) ، وسيظهر اسم الملف الذي تم اختيارة في الحقل رقم 2 ، 3. ستظهر قائمة بأسماء الاوراق (Sheets) الموجودة في الملف ، ويجب اختيار الورقة المطلوبة ، 4. هذا نموذج جدولي ، و ستظهر بيانات ورقة الاكسل هنا ، ويمكننا التعامل مع فرز وتصفية البيانات هنا ، وبعدة طرق ، 5. سيظهر استعلام مناداة ورقة الاكسل هنا (بدون فرز وتصفية) ، على شكل SQL ، وبأسماء حقول الورقة ، والتي يمكن نسخها لأي قاعدة بيانات خارجية ، 6. سيظهر استعلام مناداة ورقة الاكسل هنا (بدون فرز وتصفية) ، على شكل SQL ، وبدون أسماء حقول الورقة ، والتي يمكن نسخها لأي قاعدة بيانات خارجية ، 7. يجب النقر هنا حتى نرى نتائج الفرز والتصفية كجزء من الاستعلام في الحقول 8 و 9 ، 8. سيظهر استعلام مناداة ورقة الاكسل هنا (بالفرز والتصفية) ، على شكل SQL ، وبأسماء حقول الورقة ، والتي يمكن نسخها لأي قاعدة بيانات خارجية ، 9. سيظهر استعلام مناداة ورقة الاكسل هنا (بالفرز والتصفية) ، على شكل SQL ، وبأسماء حقول الورقة ، والتي يمكن نسخها لأي قاعدة بيانات خارجية ، 10. يمكنك عمل استعلام جاهز (للورقة بدون فرز وتصفية) او جدول ، سواء في قاعدة البيانات هذه ، او اختيار قاعدة بيانات خارجية (يجب ان تكون مغلقة حتى تستطيع تصدير استعلام او جدول لها) ، وسيكون اسم الاستعلام نفس اسم الورقة ، مثلا اسم الورقة ABC ، فيصبح اسم الاستعلام: qry_ABC ، او يكون جدول بإسم tbl_ABC حسب اختيارك من الرقم 11 ، او حتى الحاق بيانات الاستعلام الى جدول موجود سابقا (طبعا يجب مراعاة ان يكون الجدول بنفس حقول الورقة) ، 12. لنسخ الاستعلام الى ذاكرة الكمبيوتر ، بحيث يمكنك استعمال لصق ctrl+v لكائن الاستعلام (انظ الفيديو التوضيحي) ، 13. عادة لا نغير اي شيء هنا. طريقة العمل: . نرى من اعلاه: 1. انه تم عمل استعلام ياسم qry_Sheet1 في قاعدة البيانات الخارجة Testing.accdb ، 2. كذلك نسخنا استعلام التصفة الى ذاكرة الكمبيوتر (تابع في الفيديو التالي) . ممكن خلط عمل الفرز و التصفية بعدة طرق ، منها كما في الفيديو اعلاه ، و الصور التاليه . . لنفتح قاعدة البيانات الخارجية ونرى ما فيها ، هنا نحن نتعامل مع استعلام اكسس عادي ، فيمكننا حذف الحقول التي لا نريدها ، او نخفي اخرى ، او .... . عند فتح قاعدة البيانات الخارجية ، وحصلت على رسالة الخطأ هذه ، فهذا معناه ان برنامج "استعلام مسقط" لايزال مفتوح ، وملف الاكسل مفتوح به ، لذا يجب اغلاق برنامج "استعلام مسقط" قبل استعمال ملف الاكسل : . البرنامج يتعامل مع ملف واحد فقط ، ويعمل له استعلام ، واذا اردنا ان نتعامل مع اكثر من ورقة اكسل ، فيمكننا عمل مجموعة من استعلامات ، ثم نعمل امر لتنفيذها واحدة تلو الاخرى ، وبما انه عندنا استعلام ، فيمكننا تحويله الى جميع انواع الاستعلامات ، سواء استعلام الحاق ، او استعلام اضافة ، او استعلام لعمل جدول. هناك عدة ميزات في استعمال هذه الطريقة عن ربط الاكسل كجدول : 1. اسرع بكثير ، 2. عند استيراد كائنات قاعدة البيانات الى قاعدة اخرى ، فالاكسس يتوقف كثيرا عند الجداول الاكسل المرتبطة ، بينما لا يأخذ اي وقت لهذا الاستعلام 3. اختار الحقول اللي تريدها فقط ، جعفر Muscat_Query.zip1 point
-
اولاً اشكرك ابو مروان على ردك ثانياً انا محتاج خانة وحده فقط ادخل فيها التاريخ ويكون 1446/05/01 بدون وضع (هـ) بالاخير انت شرحت خلية فارغة، أدخل التاريخ بالتنسيق 1446/05/01. في خلية أخرى، استخدم الصيغة التالية =TEXT(A1, "yyyy/mm/dd") & "هـ" هل من الممكن تكون خليه وحده ادخال فيها التاريخ 1446/05/011 point
-
فعلا هذا المطلوب استاذنا أبومروان ولكن حدث تقصير مني في المطلوب كمثال الصورة التي بها طابعة بها تعيين ماكرو ( مربوطة بماكرو ) يحدث تعارض مع الماكرو والارتباط التشعبي1 point
-
بارك الله فيكم جميعا وأكثر الله من أمثالكم وزادكم من علمه كده تمام ظهر النموذج تحت التجربة1 point
-
أخي العزيز غسان @ghassan1959 🙂 .. قم أنت بإرسال ملفك وفيه الجدول والاستعلام المطلوب ترقيمه بحيث يكون فيه كم من البيانات 🙂1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
وعليكم السلام ورحمة الله وبركاته ,, وهذه مشاركة مع ومعلمي الحبيب @ابوخليل أيضاً . إذا أردت الحصول على ترقيم تسلسلي منتظم بغض النظر عن الفلاتر أو عوامل التصفية داخل الاستعلام سيتوجب عليك استخدام اسلوب الاستعلام المتداخل أو الفرعي ( استعلام داخل استعلام ) وهنا الحاجة لإرسالك ملف . هذا من وجهة نظري والله أعلم1 point
-
على اعتبار اسم الجدول tbl1 وهذا الجدول يحتوي على ترقيم تلقائي اسمه id ادرج ضمن الاستعلام الحقل id والصق في حقل جديد في الاستعلام هذا السطر : urAoutoNm: DCount("ID";"tbl1";"ID <=" & [ID])1 point
-
كمحاولة لما فهمته ,, انشئ استعلام جديد دون تحديد جداول ، وفي SQL ألصق الكود التالي :- SELECT [المتغيرات الشهرية].[رقم العامل], [المتغيرات الشهرية].[عدد الايام الفعلية], [المتغيرات الشهرية ساب].[عدد الايام الفعلية] AS عدد_الأيام_الفعلية_ساب, [المتغيرات الشهرية].الاضافي, [المتغيرات الشهرية ساب].الاضافي AS الاضافي_ساب, [المتغيرات الشهرية].[أيام الراحات للمهندس], [المتغيرات الشهرية ساب].[أيام الراحات للمهندس] AS أيام_الراحات_للمهندس_ساب, [المتغيرات الشهرية].[راحات الورادي المستح], [المتغيرات الشهرية ساب].[راحات الورادي المستح] AS راحات_الورادي_المستح_ساب, [المتغيرات الشهرية].[وردية 12 ساعه], [المتغيرات الشهرية ساب].[وردية 12 ساعه] AS وردية_12_ساعة_ساب, [المتغيرات الشهرية].[وردية 12 ساعة متعاقب], [المتغيرات الشهرية ساب].[وردية 12 ساعة متعاقب] AS وردية_12_ساعة_متعاقب_ساب, [المتغيرات الشهرية].الوجبات, [المتغيرات الشهرية ساب].الوجبات AS الوجبات_ساب, [المتغيرات الشهرية].[اجازات سنوية مدفوعة], [المتغيرات الشهرية ساب].[اجازات سنوية مدفوعة] AS اجازات_سنوية_مدفوعة_ساب, [المتغيرات الشهرية].[عدد ايام الغياب], [المتغيرات الشهرية ساب].[عدد ايام الغياب] AS عدد_أيام_الغياب_ساب FROM [المتغيرات الشهرية] INNER JOIN [المتغيرات الشهرية ساب] ON [المتغيرات الشهرية].[رقم العامل] = [المتغيرات الشهرية ساب].[رقم العامل] WHERE ((([المتغيرات الشهرية].[عدد الايام الفعلية])<>[المتغيرات الشهرية ساب].[عدد الايام الفعلية])) OR ((([المتغيرات الشهرية].الاضافي)<>[المتغيرات الشهرية ساب].[الاضافي])) OR ((([المتغيرات الشهرية].[أيام الراحات للمهندس])<>[المتغيرات الشهرية ساب].[أيام الراحات للمهندس])) OR ((([المتغيرات الشهرية].[راحات الورادي المستح])<>[المتغيرات الشهرية ساب].[راحات الورادي المستح])) OR ((([المتغيرات الشهرية].[وردية 12 ساعه])<>[المتغيرات الشهرية ساب].[وردية 12 ساعه])) OR ((([المتغيرات الشهرية].[وردية 12 ساعة متعاقب])<>[المتغيرات الشهرية ساب].[وردية 12 ساعة متعاقب])) OR ((([المتغيرات الشهرية].الوجبات)<>[المتغيرات الشهرية ساب].[الوجبات])) OR ((([المتغيرات الشهرية].[اجازات سنوية مدفوعة])<>[المتغيرات الشهرية ساب].[اجازات سنوية مدفوعة])) OR ((([المتغيرات الشهرية].[عدد ايام الغياب])<>[المتغيرات الشهرية ساب].[عدد ايام الغياب]));1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
السلام عليكم / استاذي الفاضل عمر ضاحي المحترم - كل كلمات الشكر لاتناسب الجهد الذي بذله جنابك الكريم - ولكن بسب ظرف طارئ توقفت عن متابعة الموضوع - ادعو من الله ان يجعل ذلك في ميزان حسناتك - وجزاك الله خير1 point
-
هذه الجملة نفت الموضوع وأعطت له جواب قطعي1 point
-
1 point
-
1 point
-
السلام عليكم توجد اكثر من طريقة لاستيراد ملفات الاكسل الى الاكسس احدى هذه الطرق هذا الملف لاحد الاخوة بالموقع اول شيء تختار مسار الملف ثاني شيء تختار اسم ورقة العمل من القائمة المنسدلة تحت مسار الملف ثالث شيء تضغط على البيانات من ملف اكسل اتمنى ان يكون المطلوب Ju_ Import Frome Excel File.rar1 point
-
حديث لرسول الله -صلى الله عليه وسلم-، يقول: عن أبي هريرة -رضي الله عنه- أن رسول الله -صلى الله عليه وسلم- قال: إذا مات ابن آدم انقطع عمله إلا من ثلاث: صدقة جارية، أو علم ينتفع به، أو ولد صالح يدعو له، رواه مسلم راحل عنا امس العلامه القدير الاستاذ عماد الدين الحسامى وترك لنا علم ينتفع به حبيب اذكركم ببعض ما ترك لنا من اعمال وعلم ينتفع به أسال الله تعالى ان تكون جميع اعماله فى ميزان حسناته ممكن حضرتك تدخل على مكتبه الاستاذ عماد ونشوف اعماله من صفحته الشخصيه بالمنتدى الحسامى.zip الحسامى 2.zip شرح الفورم.zip نظام الحسامي للمخازن.zip واجهه كنترول للاستاذ الحسامي.zip شجرة الحسابات-عماد الحسامي.zip1 point
-
بسم الله المرحلة 2 من يومية و ميزان مراجعه و المعدلة لملف الاستاذ / عبدالله باقشير _ kh_sumproduce المرحله 1 لينك http://www.officena.net/ib/index.php?showtopic=50198 تم عمل فيها الخطوات التالية :- تم زيادة عدد تكويد الحسابات بدليل الحسابات و التعديل على الكود ليشمل 1500 حساب استاذ تم اضافة فورم بحث لسهولة ادخال القيود بالاضافة الى القائمة المنسدلة بكود لـ أ/ عبدالله باقشير و قام باضافته على الملف أ / يوسف السيد بالمرحلة 2 تم تنفيذ الاتى:- تم اضافة شيت استدعاء قيد بين تاريخين من اليومية و ذلك للطباعه و معرفة توازن القيد المطلوب فى المرحلة 2 هو اضافة ملف كود دليل حسابات 4 مستويات بالشيت و الفورم للاستاذ / عبدالله باقشير الى ملف يومية و ميزان مراجعه المعدلة _kh_sumproduce ( مرفق الملفين ) ليكون هناك ملف واحد فيه يتم اضافة حساب جديد بكود دليل الحسابات 4 مستويات و ربطه بكود البحث لادخال اسم الحساب بقيد اليومية (محاولاتى فشلت ) و لطفا لعدم معرفتى الجيدة بالاكواد _ مع تقديرى و احترامى دليل حسابات _يومية و ميزان kh_sumproduc.rar1 point
-
تحياتى للجميع و اعضاء منتدانا و اهداء خاص و تحية خاصة لصاحب الفضل و العلامة الاستاذ / عبدالله باقشير _ ادام الله عليه وافر الصحة مرفق برنامج يومية و ميزان مراجعة مع الشرح و قد تم دمج دليل حسابات 4 مستويات من اعمال استاذ / عبدالله باقشير مع يومية و ميزان مراجعة فى ملف واحد تم ادخال التعديلات على الملف بعد الدمج ليعطى ترصيد لميزان مراجعة مرن مع طريقة بحث سريعة مهما كبر حجم دليل الحسابات مميزات البرنامج تكويد دليل الحسابات 4 مستويات بفورم _ _ دليل حسابات اربعة مستويات_KH البحث و اضافة الحسابات بفورم بحث و اضافة استدعاء قيد و طباعته كشف حساب بين تاريخين الفضل الاول و الاخير يرجع لمنتدانا و روائع الاستاذ / عبدالله باقشير التى لا تنتهى لمتابعة الاصدار السابق _هدية2_يومية و ميزان_بدليل حسابات_kh_SumProduc_معدلG_2014 و لا تنسونا من صالح الدعاء يومية و ميزان مراجعة_حسابات_معدل_KH_G_ابو ادهم.rar1 point
-
كل عام و انتم بخير_ جعل الله هذه الايام_ايام رحمة و مغفرة و يفتح لنا الله ابواب الجنة امام دعائنا المستجاب_باذن الله هديتى بمناسبة العام الجديد2015_الاصدار الثانى_تجريبى من برنامج حسابات اوفيسنا دبل كليك و اهداء خاص لمعلمى الاستاذ / عبدالله باقشير و الاساتذة الافاضل تنويه الفضل الاول و الاخير بعد توفيق الله سبحانه و تعالى يرجع الى منتدانا و الاساتذة الافاضل باسرة المنتدى مرفق البرنامج مع الشرح الاصدار الاول يمكن متابعته من هنا هديتى3 _شرح _برنامج_يومية و ميزان مراجعة_حسابات_معدل_KH_G_ابو ادهم لاتنسونا من صالح الدعاء تجريبى_برنامج حسابات_اوفيسنا دبل كليك 2015_G_adham.rar1 point
-
تحديث للمرفق: تم إضافة إمكانية التعديل على الأكواد Items Coding System V2.rar1 point
-
كل عام وانتم بخير "اللهم انى اسألك علما نافعا و رزقا طيبا و عملا متقبلا " تحياتى لاعضاء المنتدى الكرام و تحية خاصة الى الاستاذ / عبدالله باقشير _ الذى تشرف بوضع بصمته الرائعة بالبرنامج و تحياتى للاعضاء الذين استفدت من علمهم مرفق برنامج تكويد دليل حسابات_اصناف_يتم توظيقه كما يشاء المستخدم الجديد فيه هو يمتاز بالبساطة و سهولة التعامل معه_مرفق به شرح للبرنامج يتم تكويد الحسابات بطريق افقية و هو ما يسهل متابعة امتداد قائمة دليل الحسابات ارقام الحسابات تضاف تلقائيا يتم البحث داخل البرنامج بحساسية الاحرف صدقة جارية على روح امى الغالية_لا تنسونا من الدعاء تكويد_دليل حسابات_Gadham_3_مستويات.rar1 point