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

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

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

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

هات مثال عملي للتطبيق عليه

🎈عيد سعيد🎈 هديــــة العيد : تحويل التاريخ يحتوى المرفق على بعض الاكواد المجمعة فى موديولات لا غنى عنها تحويل التاريخ.zip

فى هذا المرفق تعديل يزيد عن سابقه بانه يذطر اسماء الايام التى يتخص حضور المهندس عند كتابة تاريخ يوم لا ينبغى حضوره فيه بس خلاص تعبت تحديد ايام حضور المهندسين (3).accdb

هههههههه وهدية العيد قبل التسجيل للبيانات من النموذج الى الجدول 1- يتحقق من ايام المهندس بما يناسب يوم التاريخ المدخل لو تمام يتم التسجيل وتظهر رسالة تفيد بنجاح التسجيل 2-قبل التسجيل يتحقق من ان المهندس لم يتم تسجيله اصلا فى الجدول ينفس التاريخ تدلل يا دكتور @حلبي تحديد ايام حضور المهندسين (2).accdb

جعل الله ايامكم كلها اعياد و ملئت بالسعاده و البركات كل عام و انتم بخير

جعل الله ايامكم كلها اعياد و ملئت بالسعاده و البركات كل عام و انتم بخير

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

اخي جرفب المرفق غير فقط في الخلية B1 COPY-VBA.xlsm عذرا اخي وجيه فلقد كنت اعمل علي الملف ولمجرد رفعه شاهدت مشاركتك فارجو المعذرة

جرب هذا الملف لعله يفى بالغرض نسخة من COPY-VBA.xlsm

اتفضل جرب كده يا دكتور يارب اكون قدرت افهم تحديد ايام حضور المهندسين (1).accdb

تحية عطرة للأستاذ الجليل / وجيه شرف الذين تم تحميل الملف والعمل عليه جعله الله في ميزان حسناتك

كل عام وانتم بألف خير وسعادة

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

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

أخى الكريم تسهيلا على من سيقومون بالرد على إسنفساراتكم برجاء إرفاق مثال يتم العمل عليه .. وسأقوم بالرد نظريا كما تفضلت بسؤالك بدون مثال : قم بإنشاء حقل نصى فى الجدول الذى يستند إليه التقرير ولنسمه PrintOK أنشئ التقرير المراد طباعتة ولنسمه Report1 فى النموذج الذى سيتم طباعة التقرير من خلاله أنشئ زر أمر ولنسمه Command3 فى حدث عند النقر لزر الأمر السابق ضع هذا الكود If PrintOK.Value = "تم" Then MsgBox "تم طباعة التقرير من قبل" Else DoCmd.OpenReport "Report1", acViewPreview DoCmd.PrintOut , , , , , True DoCmd.Close acReport, "Report1" PrintOK.Value = "تم" End If Me.Recalc بالتوفيق

كل عام وأعضاء منتديات الموقع والأمة الإسلامية بخير

عيد سعيد على الجميع وكل عام وانتم بخير

كل عام وانتم بخير

كل عام وانتم بخير وعيد مبارك سعيد علينا جميعا

نموذج اخر يظهر عنوان IP تلقائي تقصد لما القاعدة تتنقل من حد الى اخر يستطيع تغيير الاى بي هو من هذا النموذج

عيدكم مبارك وكل عام وانتم بخير

جيران الهنا يا اهل الاكسل الكرام 🎈عيد سعيد🎈 🎈عيد سعيد🎈 🎉🎊🎁🎈أخوانكم وجيرانكم من قسم الأكسس يهنئكونكم بحلول عيد الفطر المبارك 🎉🎊🎁🎈 اعاده الله عليكم وعلى امتنا الاسلامية بكل الخير والصلاح والفلاح والرشاد 💐💐💐💐💐💐 كل عام وانت بخير 🥀☺😘😍🥀 💐💐💐💐💐💐 🎈عيد سعيد🎈 🎉🎊🎉🎊🎉🎊 🎁🥀🎁🥀🎁🥀 تقبل الله صيامكم وقيامكم

🎈عيد سعيد🎈 اتفضل MultiDelete.mdb

جرب هذا الكود Sub give_data() Application.ScreenUpdating = False Dim x As Byte x = Application.CountA(Sheets("SAISIE").Range("B1:B6")) If x < 6 Then MsgBox "Incomplete Data" & Chr(10) & _ "You have Only " & x & " Values": GoTo Exit_sub Sheets("SAISIE").Range("B1:B6").Copy Sheets("DATA").Range("A" & Rows.Count).End(3).Offset(1) _ .PasteSpecial Paste:=xlPasteAll, Transpose:=True Sheets("SAISIE").Range("B1:B6").ClearContents Exit_sub: Application.ScreenUpdating = True End Sub الملف مرفق COPY-VBA.xlsm

اتفضل يا استاذ @الشربيني123 555(3).accdb

يسأل الكثير والكثير عن مدى قدرة تطبيق قاعدة البيانات 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 تم بحمد الله