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

تفضل .... Dim dbs As Database, tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Left(tdf.Name, 4) <> "msys" _ And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If If tdf.Attributes = 1073741825 Then tdf.Attributes = 0 Next tdf Set dbs = Nothing Call ViewTablePage

هل جربت هذا الكود .... Private Sub ViewTablePage() DoCmd.SelectObject acTable, , True SendKeys "{F5}" End Sub Private Sub VisibleTable_Click() Dim db As Database Dim tdf As TableDef Set db = CurrentDb For Each tdf In db.TableDefs If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 Next db.Close Set tdf = Nothing Set db = Nothing Call ViewTablePage End Sub

أقدم لحضراتكم النسخة التجريبية (أ) من برنامج مرتبات أبي الحسن (اصدار 11) وهذا هو رابط تحميلها ============================== http://bit.ly/2XdT4BD ============================== وهذه بعض الروابط المهمة المتعلقة ببرنامج المرتبات:- ----------------------------- * تعريف ببرنامج مرتبات أبي الحسن. http://bit.ly/2Ke7kqI ------------------------------------------------------- * الفرق بين النسخة التجريبية والنسخة الكاملة من برنامج مرتبات أبي الحسن. http://bit.ly/2EJjGmO ------------------------------------------------------- * الجديد فى اصدار رقم 11 والفرق بينه وبين الاصدارات السابقة من البرنامج. http://bit.ly/2Xg8Ps3 ------------------------------------------------------- * دروس فيديو شرح للبرنامج (على YouTube) http://bit.ly/2KdgX8Z ################################## ****** نماذج للكشوف التى ينتجها البرنامج ********* 1- كشوف المرتب كبيرة الحجم. http://bit.ly/2XiYDPw ------------------------------------------------------- 2- كشوف المرتب متوسطة الحجم A3 http://bit.ly/30UFVjj ------------------------------------------------------- 3- كشوف المستقطعات المختلفة. http://bit.ly/2ELUDzH ------------------------------------------------------- 4- كشف تأمين ومعاشات. http://bit.ly/2JMSmIz ------------------------------------------------------- 5- صافي مرتبات البنوك المختلفة. http://bit.ly/2Ww5Jmx ------------------------------------------------------- 6- مفردات مرتب واخر صرفية. http://bit.ly/2EVrtyn ------------------------------------------------------- 7- مفردات مرتب الأعمال الامتحانات. http://bit.ly/2YVE38b ------------------------------------------------------- 8- كشوف مكافأة الامتحانات. http://bit.ly/2Z3h2jT

كل صفحة من اكسل 2010 تحتوي على: 1,048,576 صف (اكثر من مليون صف ) 16,384 عامود (اكثر من 16000 عامود) اي 1048576 × 16384=17,179,869,184 خلية (اكثر من 17 مليار خلية ) اكثر بثلاث مرات عدد سكان الارض هل تستطيع أن تملأها بيانات للتأكيد هذا الماكرو Option Explicit Sub Cells_numbe() Dim x, y, z x = ActiveSheet.Rows.Count y = ActiveSheet.Columns.Count z = x * y Cells(1, 1) = "Rows Count" Cells(1, 2) = "Columns Count" Cells(1, 3) = "Cells Count" Cells(2, 1) = x Cells(2, 2) = y Cells(2, 3) = z End Sub

السلام عليكم ورحمة الله تعالى وبركاته بناء على طلب احد الأخوة الكرام سوف اقوم بشرح تفصيلى للتحكم بوقت فتح واغلاق قاعدة البيانات وتخطى التلاعب من قبل المستخدمين بوقت او تاريخ قاعدة البيانات اولا اقدم كل الشكر للاستاذ الفاضل والاخ الحبيب الاستاذ @محمد ايمن لانه ساعدنى بهذا الموضوع قبل فترة ولكن الاكواد كانت بنموذج وقد ادخلت واضفت بعد التعديلات ليضفى مرونة اكثر ووجعلته من خلال موديول ملاحظة هامة اذا اردنا استخدام التوقيت اما بوضع نموذج الــ frmTime كنموذج فرعى او فتحه كنموذج مخفى عند القتح او باستدعاء الكود عن طريق وضع هذا السطر فى حدث الوقت مع جهل القيمة 1000 وذلك فى نموذج يظل مفتوح دائما call OutTime طبعا لابد من كتابى الـ ip داخل الجدول tblSecurityIP بنفس الطريقة المكتوب بها بدون اى اضافات يتم استدعاء التاريخ مباشرة او الوقت من خلال الاسطر التالية التاريخ LanDate ----------- الوقت LanTime ----------- العام الحالى من التاريخ LanYear ----------- الشهر الحالى من التاريخ LanMonth ----------- اليوم الحالى من التاريخ LanDay ----------- اسم الشهر بالعربي LanArMonth ----------- اسم اليوم بالعربي LanArDay ----------- رقم الشهر الحالى LanNuDyMonth كما هو موضح بالنموذج Main وهذا هو المرفق App_By_Time.mdb

جرب هذا الماكرو (تم تغيير اسماء الصفحات لحسن عمل الكود بالنسبة لنسخه (حتى لا تظهر احرف غريبة) Sub Salim_Macro() Rem Created On 31/5/2019 By Salim Hasbaya Application.ScreenUpdating = False Dim New_ro% Dim t%: t = Sheets(Sheets.Count).Index Dim target_sh As Worksheet Dim M_sh As Worksheet Set M_sh = Sheets("main") Dim last_ro% laste_ro = Sheets(t).Cells(Rows.Count, 1).End(3).Row Select Case laste_ro Case 11 Set target_sh = Sheets.Add(after:=Sheets(t)) ActiveSheet.Name = "MY_sh" & t - 1 M_sh.Range("a1:c1").Copy ActiveSheet.Range("a1") End Select Set target_sh = Sheets(Sheets.Count) New_ro = target_sh.Cells(Rows.Count, 1).End(3).Row + 1 M_sh.Range("a2:c2").Copy _ target_sh.Cells(New_ro, 1) M_sh.Select Application.ScreenUpdating = True End Sub 33_salim.xlsm

السلام عليكم ارجو تجربة المرفق وقد تم مراعاة معظم المشاكل لكن عليكي بان يكون القسم المدرج تحته البيانات مطابقا للعمل للتوضيح يجب ان يكون العمل مادة القرآن الكريم وليس القران تحت قسم مادة القرآن الكريم وقد تم عمل الملف بطريقة يسهل تعاملك معه بالرغم من انه استغرق 3 ايام لفكرة صغيرة وهي كيفية التعرف علي الاقسام والصف الاخير في كل قسم اخيرا بنفس طريقة عملك لهذا الملف صممي الملف الذي سيتم عليه عملك الفعلي والصقي نسحة فارغة من البيانات وليس من الاقسام في شيت Source فهو الشيت الذي يعتمد عليه لعمل نسخة لكل مدرسة ارجو انني قد فهمت المطلوب ونفذ بالطريقة الصحيحة ولو فيه اي استفسار انا منتظر للرد عليه تحياتي حافظة الدوام أوفيسنا.rar

زيادة في اثراء الموضوع هذا استعلام تحديث لما تريد ...... EngArb.accdb

ممكن استعلام تحديث أخي صالح ايضا ....

ممكن عن طريق استعلام الحاق ....

شكرا اخي صالح ....... الحمدلله رب العالمين ....

Expand And Collapse( الطى والتوسيع ) ExpandCollapse( الطى والتوسيع).mdb

السلام عليكم دائما نزودكم بالجديد والنادر معلومتنا اليوم ......... اترك لكم ملف العمل وفيديو للمشاهدة والتطبيق تجربة الجمع من عدة صفحات اكسيل.xlsx

فائدة دالة Nz للتعويض عن القيمة الفارغة محمد القاضي

شكرا للاساتذة @محمد سلامة و @صالح حمادي علي الإفادة الكريمة وهي أن الأنسب والأفضل هو ترك أو إبقاء القواعد الخلفية علي حالتها الطبيعية بصيغة accdb ولكن والحال كذلك فعلي أقل تقدير انه يجب حمايتها فما هو أنسب وأفضل طريقة حمايتها

وفقك الله وكثر الله خيرك ممتاز وسليم وفعلا اخفاها نهائياً ممكن كود الاظهار

النسخة التجريبية المنشورة لايوجد لها اسم مستخدم او كلمة مرور ويمكن الدخول مباشرة

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

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

استاذ سليم انت رااااااااائع شكرا جزيلا لك ولكل الاساتذة و المتابعين

أحسنت استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك وزادك الله من فضله

تفضل @الشربيني123 ضع الكود التالي حقل نص94 =Nz([مدة_الاجازة3];0)+Nz([مدة_الاجازة2];0)+Nz([مدة_الاجازة1];0) مرفق الملف: 0.accdb

أحسنت استاذنا الكريم عمل رائع بارك الله فيك

وعليكم السلام اخى الكريم فقد تم عرض هذه المشاركة ومناقشتها من قبل على هذا الرابط https://www.officena.net/ib/topic/54296-حساب-مرتب-عنوان-معدل/ حساب الراتب الحالى للموظفين.xlsx

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

يسأل الكثير والكثير عن مدى قدرة تطبيق قاعدة البيانات Microsoft Access Database لتحمل البيانات وكم من الأحاديث والشائعات التي تدور حول الإجابة الواضحة لهذا السؤال. دعونا نتحدث بشيء من التفصيل عن Microsoft Access ونأخذ جولة عن Microsoft ACCESS Database Application MS ACCESS بالتحديد هو عبارة عن صورة مصغرة لتطبيقات ونظم إدارة قواعد البيانات العلائقية أو RDBMS ولكن ما يميز MS ACCESS يزود مستخدميه بنوع من السهولة واليسر أثناء الإستخدام فضلاً عن نظائره المشار إليها سابقاً مثل Microsoft SQL Server أو My SQL Server أو ORACLE أو Sybase ...الخ. ودعوني بلجهتي المصرية أقول عن الأكسيس مقارنة بما سبق ذكره أنه عبارة عن( سندوتش قاعدة بيانات ) ... يعني شيء كدة في السريع !! ولكن هذا لا يمنع وجود قوة كامنة في MS ACCESS والتي سنبرزها بعد قليل ... ولكن هنا دعونا نتجه إلى شيء غاية في الأهمية: س: ما الدافع الذي يدفعك إلى استخدام MS ACCESS ؟؟؟؟ ج: بكل بساطة لأنه كنتيجة للتحليل البيئي للعميل وتحليل النظم الخاص بعمله أو منشأته قد يتبين لنا عدم وجوب استخدام قاعدة بيانات ضخمة مثل SQL Server أو ORACLE .... الخ ، ولذلك - طبقاً للفحص والتحليل - إن قاعدة بيانات MS ACCESS ملائمةجداً. س: بصفتك مبرمج ماذا تعرف عن MS ACCESS من حيث المميزات والعيوب؟؟؟ ج: قواعد البيانات ACCESS من عيوبها بطئ في نقل البيانات على الشبكة سعتها صغيرة ولا تتحمل الكثير من البيانات ولكن لا أعرف بالتحديد كم تسع وليس لدي أيضاً علم بالحد الأقصى من الكائنات التي تتحملها طبعا باضحك عليكم انا عارف والاجابة تفصيلا مواصفات قاعدة البيانات -----لمحة عامة عن قاعدة البيانات: قاعدة بيانات Microsoft ACCESS ذات اللاحقة أو الاسم الممتد ( mdb أو accdb ) هي عبارة عن تجميعة أو مجموعة من البيانات والكائنات الخاصة بإحتواء وإدخال وإخراج البيانات وإجراء العمليات المختلفة عليها. سعتها التخزينية لا تتعدى الـ ( 2 جيجا بايت ، 2 GB) ، والمساحة السالف ذكرها تتضمن البيانات بالاضافة إلى المساحة التخزينية التي تشغلها كائنات قاعدة البيانات مثل الجداول والإستعلامات والوحدات النمطية والإجراءات المخزنة. لا تتحمل قاعدة البيانات أن تحوي بداخلها الكائنات السابق ذكرها في النقطة السابقة بأكثر من 32,768 كائن. تقول Microsoft بأن تطبيق MS ACCESS يستطيع أن يتحمل تلاقي وتزامن 255 مستخدم في نفس الوقت ، ولكنها تقول أن هذا العدد سيقل بكثيرأثناء الـ Design-Time -----لمحة عامة حول الجداول: عدد الجداول التي تستطيع قاعدة البيانات تحملها هو نفس عددالكائنات بصفة عامة التي تستطيع قاعدة البيانات تحملها وهذا على أساس أن القاعدة لا تحوي داخلها إلا الجداول فقط وهو العدد السابق ( 32,768 ). وكما فعلنا مع الحد الأقصى للكائنات ، سنقوم بذلك مرة أخرى مع المساحة ، وهنا أقصد أن الجدول الواحد يستطيع احتواء 2 جيجا بايت تتضمن البيانات والحجم اللازم لمحتويات قاعدة البيانات وهذا باعتبار أن قاعدةالبيانات لا تحتوي إلا على هذا الجدول. لا يمكنك تسمية الجدول بسلسلة نصية طولها أكثر من 64 حرف. وكذلك بالنسبة للحقول تنطبق عليها ما انطبق على اسم الجدول. عدد الجداول المفتوحة حسب ما تلقينا من Microsoft هو 2048 ، ويُقصد بها عدد الجداول المفتوحة في نفس ذات اللحظة ، ولكن في الواقع يقل هذا الرقم كثيراً وهذا لأن تطبيق MS ACCESS يقوم بقتح الجداول داخلياً دون أن تظهر بشكل فيزيائي مادي أمامك. نرجع ثانية للمساحة أو السعة التخزينية القصوى وهي الـ ( 2 جيجا بايت ) ، وللتنويه لو أنت من مستخدمي MS ACCESS 2000 or 97 فلن تحظى إلا بـ ( 1 جيجا بايت فقط ) ، ولو حالفك الحظ وكنت تستخدم الإصدارات الأرقى منذلك فستكون من حلفاء الـ ( 2 جيجا بايت ). إليك هذه المعلومة: نعرف جميعا حقول المذكرات من النوع( مذكرة / Memo ) هل خطر ببالك كم تسع تلك الحقول ؟؟ ........ تسع تلك الحقول مقدار من الحروف بعدد ( 65,535 ) هذا إن كنت قد أدخلت البيانات من خلال واجهة التطبيق MS ACCESS User Interface ولكن إن قمت بالإدخال برمجياً فلك أن تتخيل أن هذا الحقل قد تحول إلى بئر عميق يسع من البيانات ما يساوي الـ ( 1 جيجا بايت ) ولكن لا تسألني عن السبب لأنها عملية فيزيائية تتعلق بمحرك MS ACCESS شخصياً ودعونا لا نتدخل في شئون الآخرين هههههه . بالنسبة للحقول من النوع ( OLE ) تسع ما يساوي الـ ( 1 جيجا بايت ) من البيانات. الجدول الواحد لا يستطيع أن يحوي بداخله أكثر من 32 فهرس / Index. عدد الحروف التي تستطيع أن تحويها الحقول باستثناء الـ ( Memo ،OLE ) حين تكون خاصية الـ ( Unicode Compression ) قيمتها تساوي Yes هي كالتالي: بالنسة للإصدار 2000-203 = 4000 حرف أما بالنسبة للإصدار XP فانها = 2000 حرف. -----لمحة عامة حول الإستعلامات: الحد الأقصى للعلاقات داخل الإستعلام الواحد هو ( 32 ) علاقة بما فيها من فهارس وهذا يعني أن لو الفهارس المدرجة بالجداول الواردة بالاستعلام = 5 فهارس ، فلن يحتوي هذا الإستعلام أكثر من 27 علاقة Enforced Relationship. عدد الجداول المدرجة بالإستعلام لا يزيد عن 32 جدول لكل استعلام. السجل الواحد لا يستطيع أن يحتوي على أكثر من 255 حقل. كل سجل داخل الاستعلام لايزيد عن ( 1 جيجا بايت ). عدد مستويات الإستعلامات المتدرجة Nested Queries لا تتعدى الـ 50 مستوى. جملة الاستعلام الخاصة بالإستعلام تستطيع حمل حوالي ( 64.000 حرف ) بداخلها. -----لمحات خاطفة عن التقارير والنماذج: مربع العنوان ( Label ) يستطيع حمل 2048 حرف. مربع النص ( TextBox ) يستطيع حمل 65,535 حرف. أقصى عرض للتقرير أو للنموذج = 22 إنش ، أو ، 55.87 سم. طول القسم الواحد = 22 إنش ، أو ، 55.87 سم. مجموع أطوال الأقسام Sections في وقت التصميم إضافة لرأس الكائن ( النموذج أو التقرير ) = 200 إنش ، أو ، 508 سم. عدد مستويات التقارير والنماذج المتدرجة كما يلي: في الإصدار 2003 و XP يصل إلى 7 مستويات ، أما الإصدار 2000 فما هم إلا 3 مستويات. يمكنك استخدام ( 10 ) حقول لعمل فرز وتجميع كحد أقصى ... Sorting and Grouping. يمكنك فقط استخدام عدد ( 1 ) Report/Page Header/Footer ، ولكن يمكنك استخدام ( 10 ) Group Header/Footer. التقرير الواحد لا يمكن أن يتضمن أكثر من ( 65,536 ) صفحة للطباعة. لا يمكنك إضافة أو رسم أدوات أكثر من 754 أداة على النموذج أو التقرير ، والأدوات معروفة للجميع مثل مربع العنوان وزر الأمر وما إلى ذلك ، ويتضمن الرقم السابق ذكره عدد الأقسام الموجودة بالنموذج أو التقرير. -----لمحات خاطفة عن الماكرو: عدد الإجراءات في الماكرو 999 عدد الأحرف في الشرط 255 عدد الأحرف في التعليق 255 عدد الأحرف في وسيطة الإجراء 255 تم بحمد الله

السلام عليكم تم عمل المطلوب في الملف المرفق بتعديل طفيف على كود أخي الكريم Ali Mohamed Ali... بن علية حاجي ترحيل pdf.xlsm

تفضل لك ما طلبت تنسيق شرطى بشرط.xlsx

ما شاء الله حلول رائعه وجزاكم الله خير الجزاء

انظر الى هذا التعديل لعله يفى بالغرض sumif.xls

عموما لقد وجدت حلاً توافقي للجمع بينهم أثناء بحثي عن حل (علشان تعرف أن أنا بتعلم الصيد في الأمور البسيطة اللي علي ادي) فإذا كان هذا التعبير في الكود Dim db As Database هو المسئول عن ضرورة إضافة هذه المكتبة (كما يظهر ذلك كنوع من الخطأ عند مراجعة الأكواد بالكمبل) فإن الحل البسيط هو إضافة كلمة DAO لهذا التعبير ليصبح هكذا ( Dim db As DAO Database ) وبهذا ينتهي الإشكال والله المستعان وأكرر شكري لك أخي محمد علي الاهتمام

لابد من ازالة هذه المكتبة اولا ملاحظة الرقم 16 هذا يدل على اصدر الاوفيس اى انه قد يكون مختلف عندك

بعد الحوار السابق فى قسم الاكسيس و الاقتراح المقدم من الاخ أبو جودي فى قسم الاقتراحات و بعد دراسة الموضوع تم تحميل اضافة لتطبيق المنتدى تتيح ما يلي ا- يمكن لصاحب السؤال او فريق الموقع اختيار افضل اجابة عن طريق علامة (صح) اعلي يمين الرد و بالتالي سيظهر فى صفحة المنتدى الرئيسيه انه قد تمت الاجابة على السؤال

وعليكم السلام .... انظر الاستعلام ... قد يكون هوطلبك EngArb.accdb

ان كان لديك بيانات اكبر اسحب المعادلات الى اسفل في معادلة الترتيب النطاق فيها الى غاية 500 صف ، زد في النطاق حسب بياناتك ترتيب+ترقيم.rar

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

السلام عليكم ورحمة الله هذا حل بمعادلات بالدالتين INDEX و MATCH وبمعية أعمدة مساعدة، أرجو أن تفي بالغرض المطلوب.. بن علية المصنف1.rar

السلام عليكم أخي الكريم يوجد برامج جاهزة لعمل الجداول الزمنية مثل البيمافيرا Primavera والـ إم إس بروجكت MS-Project ويوجد بمنتدي أوفيسنا هذا أقسام خاصة بكل منها إختر الصفحة الرئيسية لأوفيسنا واختر ماتشاء عموما الحل بالإكسل مرفق Project_Tareq.rar