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

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

السلام عليكم دائما نزودكم بالجديد والنادر معلومتنا اليوم ......... اترك لكم ملف العمل وفيديو للمشاهدة والتطبيق تجربة الجمع من عدة صفحات اكسيل.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 تم بحمد الله

كل صفحة من اكسل 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

بارك الله فيك أستاذ سليم كود ممتاز جعله الله في ميزان حسناتك وبعد اذن حضرتك طبعا -ولإثراء الموضوع هذا حل أخر Masry.xlsm

جرب هذا الماكرو Sub FIL_combo() Dim sh As Worksheet Dim obj As Object Set obj = _ CreateObject("System.Collections.Arraylist") For Each sh In Worksheets If sh.Name <> "Main" Then With sh.Range("b2") obj.Add .Value & " " _ & .Offset(, 1).Value End With End If Next Sheets("Main").ComboBox1.List = _ Application.Transpose(obj.toarray) obj.Clear: Set obj = Nothing End Sub Rem===============>> Salim Private Sub ComboBox1_DropButtonClick() FIL_combo End Sub الملف مرفق Masry_SALIM.xlsm

السلام عليكم تم حل المشكل بإضافة أمر آخر للكود بحيث إذا تم حجز رقم وظيفي غير موجود في القائمة تظهر رسالة تبين ذلك... مع تعديل في خصائص "التحقق من الصحة" للقائمة المنسدلة للأرقام الوظيفية... بن علية حاجي Test Search.xlsm

هلا اخي عبدالله انا راح اختصر عليك المناقشات بهذا السطر: الاخ كاذي يريد ان يترك مستخدمينه يضيفو قائمة القيم بدون استخدام الجداول . هو عمل الطريقة التقليدية عن طريق ايقونة اضافة القيم والتي تظهر عند تحديد القائمة ولكن مش حتنفع لو اتحولت القاعدة الى accde الاستاذ ابو ابراهيم اتى بطريقة احترافية وبقيت طريقة اخرى منتظرينها بالتوفيق

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code الموجود على الرابط التالي: https://sourceforge.net/projects/zint/ ويتم حفظ الصورة هنا Data > QR_images وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) وهي النتيجة: وخلونا نشوف من يقدر يقرأ الصورة 🙂 ----------------------------------------------------------------------------- إضافة في يوم الثلاثاء 7 / 5 / 2019 : عملت مثال يعمل على 2003 🙂 ----------------------------------------------------------------------------- إضافة في يوم الجمعة 14 / 6 / 2019 : باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417 اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ : . والنتيجة: . و باركود 128 (ويمكن عمل اي نوع من انواع الباركود) . والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله 🙂 ) . وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك). وهذا الكود مضافا اليه عمل الباركود العادي : Private Sub Make_QR_Barcode() ' 'https://sourceforge.net/projects/zint/ ' If Len(Me.str_Text & "") = 0 Then Exit Sub Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding As String Dim Command_Line As String App_Name = Chr(34) & Application.CurrentProject.Path & "\Data\zint.exe" & Chr(34) Output_Text = Chr(34) & Me.str_Text & Chr(34) 'QR code Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'Barcode 128 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "Barcode.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 -d " & Me.ID 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'PDF 417 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "PDF_417.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide End Sub ----------------------------------------------------------------------------- إضافة في يوم الجمعة 22 / 6 / 2019 : تم عمل VCard QR ليخزن معلومات الشخص مباشرة في الموبايل 🙂 . وبإستخدام برامج الموبايل والتي تقرأ QR Code ، يمكنك حفظ معلومات VCard QR مباشرة في عناوين الموبايل 🙂 البرنامج zint الموجود في المرفق ، فيه امكانية عمل عدة انواع من QR والباركودات ، ولكن كل نوع من هذه الانواع له صيغة خاصة في عمله ، فمثلا كود VCArd QR هو: Function Add_Items() Dim VCard_Text As String 'clear field VCard_Text = "" VCard_Text = "BEGIN:VCARD" & vbCrLf VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf VCard_Text = VCard_Text & "END:VCARD" Add_Items = VCard_Text End Function والذي يختلف عن PDF417 والذي يختلف عن غيره. المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود 🙂 ----------------------------------------------------------------------------- إضافة في يوم السبت 2 / 11 / 2019 : هنا مثال لعمل بطاقة عمل ID.zip ، بأصغر حجم QR code (رجاء ابقاء حجمه ، فقد توصلت الى هذا الحجم والكود بعد محاولات ساعات طويلة) : . وهذا هو QR code . اما تفاصيل عمل البطاقات ، فهذا الرابط فيه تفاصيل كاملة: . جعفر ملاحظة: 1. المرفق في هذه المشاركة هو البرنامج الاخير ، وفيه جميع التعديلات التي في بقية المشاركات. 2. الـ api التي تنتظر إنتهاء الامر ، ثم تنتقل للسطر التالي في الكود اسمها ShellWait ، هذه لا تتعامل مع Unicode / utf-8 / ومنها الحروف العربية بطريقة صحيحة : http://access.mvps.org/access/api/api0004.htm بينما هذه تمام : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas zint QR 3.zip ID.zip Shell_n_Wait_2021-12-13.txt.zip

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أيها الأحبة منذ أن بدأت في تعلم الأكسس حيث كانت بداياتي في هذا المنتدى المبارك وكنت أتمنى طريقة شرح معينة حيث إن المبتدئ منا لا يحتاج للشيء النظري البحث إنما يحتاج لإنارة الطريق حتى يصل إلى المطلوب من خلال أمثلة مبسطة وذلك بحكم أن ليس كل مشارك في المنتدى متخصص في البرمجة ونحوها .. وكنت منذ أن بدأت أجمع الأمثلة ثم أقوم بفكها والنظر في الاكواد ونحوها وكان يشكل علي كثيرا معرفة اسم النموذج في الكود والسجل ونحوها وتمييزها عن بقية الكود فالكود أحيانا يكون به كلمات إنجليزية هي أساس في الكود فلا تتغير إنما الذي يتغير كلمات معينة كاسم النموذج أو السجل أو الاستعلام ونحوها ... وكم عانيت في ذلك وخاصة إذا كان المثال معقدا. ومن هذا أحببت أن نبدأ جميعًا في مشروع أظنه نافعا بإذن الله تعالى وما كان لي أن أطرحه دون إذن أساتذتي الفضلاء الذي لهم سبق فضل علي بعد فضل الله بارك الله في علمهم وعملهم ... وتكمن الفكرة في هذا الموضوع أن يتم تخصيص هذا الموضوع بموضع معين مثلا طرائق البحث في نموذج أكسس فكل منا يجتهد في طرح ما يعرفه من طرائق البحث في نماذج أكسس بشرط أن تشرح بشرح وافي بالمثال بحيث تكون مرجعا لمن أراد البحث في هذا الموضوع (طرق البحث في الأكسس) وعلى ذلك أستأذنكم في طرح مثال أُسرُّ من خلال برأيكم وملحوظاتكم حيث إني لم أقف في شبكة الإنترنت على من تولى مثل ذلك وأتمنى أن يكون لهذا المنتدى قصب السبق ... عنوان الموضوع طرائق البحث في الأكسس : الطريقة الأولى : البحث في النموذج بكتابة جز من الكلمة نفرض أن لدينا جدولا اسمه Book يهتم بأسماء الكتب ونرغب أن نبحث عن كتاب معين بمجرد كتابة جزء من اسمه فنعمل الآتي: 1)نصمم جدولا باسم Book بداخله أسماء كتب تحت سجل nameBook 2) نصمم نموذجا مبني على جدول Book بنماذج مستمرة وليكن اسم النموذج FormBook. 3) ندرج في أعلى النموذج (رأس النموذج ) مربع نص ونسميه فرضا Text1 وبالطبع التسمية من خلال الضغط على مربع التسمية بالزر الأيمن ثم خصائص ثم غير ذلك ثم في خانة الاسم نكتب الاسم المطلوب. 4) نقوم بعمل استعلام مبني على جدول Book وليكن اسمه Qry في الاستعلام نجد سجل NameBook نكتب في الحقل الفارغ الذي بجواره الكود التالي : nz([book].[namebook];"**") حيث إن Book اسم الجدول و NameBook اسم السجل الذي بداخل الجدول. 5) في الاستعلام في المعايير تحت حقل الذي تم عمله في الفقرة رقم (4) نضع الكود التالي Like "*" & [forms]![formbook]![text1] & "*" حيث FormBook هو اسم النموذج و Text1 اسم مربع النص الذي تم إدراجه في رأس النموذج. 6) نذهب إلى النموذج ونضع المؤشر على مربع النص text1 ثم الزر الأيمن ثم خصائص ثم حدث ثم بعد التحديث نضع الأمر التالي Me.Requery 7) نذهب إلى خصائص النموذج من خلال الضغط على أي مكان فارغ في النموذج ثم الزر الأيمن ثم خصائص ثم نختار بيانات ثم مصدر السجل ثم نختار منه اسم الاستعلام Qry بعد ذلك يكون النموذج جاهزا للبحث فيه عن أي كتاب ويمكن تكرار ذلك لأكثر من مربع نص بنفس الخطوات السابقة وبالمثال يتضح المقال. ((هذا نموذج إن كان مناسبا نستمر عليه ليكون مرجعا ثم ننتقل إلى موضوع آخر (ولا ولا ولا أستغني عن الرأي والمشووورة وهذا جهد المقل) ...) والله الموفق طرائق البحث.rar

كيفية عمل فورم من خلال الفرام وطريقة حفظ الملف جذء 1 الفيديو الصور كيفية عمل فورم من خلال الفرام وطريقة حفظ الملف.rar

بارك الله بيك اخي العزيز 🌹

من 2003 و XP وما علاهم من اصدارات 7 مستويات

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

جزاكم الله خير رائع استاذ عبداللطيف وجعله الله فى ميزان حسناتك

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

استخدم docmd.runsql للتعديل وشوف طبعا نفس جملة التعديل اعلاه اكتب من الموبايل

معلومات مفيدة وقيمة دزاكم الله خيرا

حياكم الله وبياكم أخي الحبيب أبا جودي المحترم...أسعد الله أوقاتكم بكل خير ورضاً وعافية. أسأل الله تعالى أن يجعلكم في أمنه وأمانه وأن يتقبل منا ومنكم الصيام والقيام وصالح الأعمال.

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

جزاكم الله خيراً على هذه الكلمات الطيبة التي تعبر عن أخلاقكم السامية وأصلكم الطيب ...

أؤمن أن العلاقات البشرية لا تُقاس بطولها أو قربها أو كثرة اللقاءات بل بعمقها وأثرها الطيب في دواخلنا هناك من لا تجمعنا الأوقات بهم إلا قليلاً ولا نراهم إلا من حينٍ إلى حين بل إن هناك من قد لا نجتمع معهم إلا فى المنتديات لكن نجد أرواحنا فيهم ومعهم ولهم من المكانة والمحبة والمودّة في نفوسنا ما يفوق غيرهم.

السلام عليكم...بارك الله فيك.

احسنت أستاذ عبد اللطيف بارك الله فيك

نعم لا بد من ان تحتفظ بكل نسخه وراى المتواضع على اكثر من مصدر حتى لا تفقدها لا قدر الله نعم ان طلب العميل تعديل على النسخة سوف تقوم بالتعديل على النسخة المفتوحة لديك وتسميتها مثلا الاصدار الثانى وهكذا وتحتفظ بها كذلك بحوار اخواتها لنفس العميل تضيع البيانات هنا سؤال مهم لا بد منه قبل الاجابة هل سلمت العميل قاعدة البيانات مقسمة الى قاعدتين 1- قاعدة بيانات خلفية للجداول 2- قاعدة بيانات امامية للنماذج وباقى الكائنات هنا فى هذه الحالة ان كان التعديل على القاعدة الامامية فقط دون اضافة او تعديل او حذف اى شئ من القاعدة الخلفية للجداول لن تضيع اى بيانات اما ان تم التعديل على القاعدة الخلفية للجداول او انك لم تسلم العميل قاعدة مقسمة قطعا سوف تضيع البيانات القديمة الا ان قمت بنسخها اولا

حرب هذا الكود يأخذ وقتاً بعض الشيء لان البيانات كثيرة حوالي 20 الف صف مع خلق صفحات جديدة اذا لم تكن موجودة مسبقاً Option Explicit Sub Get_More_sheets() Dim my_arr() Dim LrMM%, i%, x% Application.ScreenUpdating = False With Sheets("Sheet1") If .FilterMode Then .ShowAllData .Range("a1").AutoFilter End If End With Sheets("Sheet1").Range("a2", Range("a1").End(4)).Copy _ Sheets("Sheet1").Range("MM1") LrMM = Cells(Rows.Count, "MM").End(3).Row Sheets("Sheet1").Range("MM1:MM" & LrMM). _ RemoveDuplicates Columns:=1 LrMM = Cells(Rows.Count, "MM").End(3).Row ReDim my_arr(1 To LrMM) For i = 1 To LrMM my_arr(i) = Range("MM" & i) Next Sheets("Sheet1").Range("MM1:MM" & LrMM).Clear On Error Resume Next For i = 1 To LrMM x = Len(Sheets(my_arr(i)).Name) If x = 0 Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = my_arr(i) End If Next Sheets("sheet1").Activate On Error GoTo 0 For i = 1 To LrMM With Sheets("Sheet1").Range("a1").CurrentRegion .AutoFilter Field:=1, Criteria1:=my_arr(i) .SpecialCells(12).Copy _ Sheets(my_arr(i)).Range("A1") Sheets(my_arr(i)).Columns("A:B").AutoFit End With Next With Sheets("Sheet1") If .FilterMode Then .ShowAllData .Range("a1").AutoFilter End If End With MsgBox "That Is All" & Chr(10) & _ "Thank You ====> Salim" Application.ScreenUpdating = True End Sub الملف مرفق GET_sheets.xlsm

وعليكم السلام أستاذ محمود من فضلك وضح المطلوب بكل دقة فانك ذكرت في المشاركة ان كلا العمودين E

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

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

السلام عليكم هذه المرة ضع المسميات الوظيفية في أي مكان في الشيت (ما عدا، بطبيعة الحال، في خلايا العمود M أين نجمع الأرقام المختارة سابقا حتى لا تختلط البيانات -الأسماء والأرقام-، ولا أن تكون في العمود نفسه)... تم حذف التسمية Titres لعدم ضرورتها... بن علية حاجي Test Search.xlsm

السلام عليكم للرفع