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

السلام عليكم فقط ملاحظة عن الامر CurrentDb.Execute: 1. هناك حالات لا يمكن للاكسس استخدامه ، 2. ميزة الامر انه يقوم بالعمل بدون رسائل تحذيرية ، ولكن اذا لم يستطع اكسس ان ينفذ الامر ، فلن تعرف السبب ، فهو لا يعطي رسالة الخطأ ، لذا ، يمكنك استعمال: docmd.runsql ("Delete * From Tbl_reg") جعفر

نعم يجوز أقصد ممكن .... استخدم هذا الكود .... بارك الله فيك CurrentDb.Execute ("Delete * From Tbl_reg") ' Tbl_reg اسم الجدول المراد حذف بياناتة

اتفضل Public Function RqmQawmi(National_no As String) If (Mid([National_no], 8, 2) = 1) Then RqmQawmi = "القاهرة" ElseIf (Mid([National_no], 8, 2) = 2) Then RqmQawmi = "الإسكندرية" ElseIf (Mid([National_no], 8, 2) = 3) Then RqmQawmi = "بورسعيد" ElseIf (Mid([National_no], 8, 2) = 4) Then RqmQawmi = "السويس" ElseIf (Mid([National_no], 8, 2) = 11) Then RqmQawmi = "دمياط" ElseIf (Mid([National_no], 8, 2) = 12) Then RqmQawmi = "الدقهلية" ElseIf (Mid([National_no], 8, 2) = 13) Then RqmQawmi = "الشرقية" ElseIf (Mid([National_no], 8, 2) = 14) Then RqmQawmi = "القليوبية" ElseIf (Mid([National_no], 8, 2) = 15) Then RqmQawmi = "كفر الشيخ" ElseIf (Mid([National_no], 8, 2) = 16) Then RqmQawmi = "الغربية" ElseIf (Mid([National_no], 8, 2) = 17) Then RqmQawmi = "المنوفية" ElseIf (Mid([National_no], 8, 2) = 18) Then RqmQawmi = "البحيرة" ElseIf (Mid([National_no], 8, 2) = 19) Then RqmQawmi = "الإسماعيلية" ElseIf (Mid([National_no], 8, 2) = 21) Then RqmQawmi = "الجيزة" ElseIf (Mid([National_no], 8, 2) = 22) Then RqmQawmi = "بني سويف" ElseIf (Mid([National_no], 8, 2) = 23) Then RqmQawmi = "الفيوم" ElseIf (Mid([National_no], 8, 2) = 24) Then RqmQawmi = "المنيا" ElseIf (Mid([National_no], 8, 2) = 25) Then RqmQawmi = "أسيوط" ElseIf (Mid([National_no], 8, 2) = 26) Then RqmQawmi = "سوهاج" ElseIf (Mid([National_no], 8, 2) = 27) Then RqmQawmi = "قنا" ElseIf (Mid([National_no], 8, 2) = 28) Then RqmQawmi = "أسوان" ElseIf (Mid([National_no], 8, 2) = 29) Then RqmQawmi = "الأقصر" ElseIf (Mid([National_no], 8, 2) = 31) Then RqmQawmi = "البحر الأحمر" ElseIf (Mid([National_no], 8, 2) = 32) Then RqmQawmi = "الوادي الجديد" ElseIf (Mid([National_no], 8, 2) = 33) Then RqmQawmi = "مطروح" ElseIf (Mid([National_no], 8, 2) = 34) Then RqmQawmi = "شمال سيناء" ElseIf (Mid([National_no], 8, 2) = 35) Then RqmQawmi = "خارج الجمهورية" ElseIf (Mid([National_no], 8, 2) = 31) Then RqmQawmi = "الأحمر" Else RqmQawmi = "جنوب سيناء" End If End Function محافظة الميلاد.rar

الكود يعمل لدي ماهي مشكلتك بالضبط

اخي @نادر نادر1 انظر للمرفق هل هذا ما تريد Ka_date.mdb علما أن الروابط في الموقع المذكور تعمل بشكل جيد والشرح فيه أكثر من رائع

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

السلام عليكم معلومة في اكسل كيف نبدل الصفوف الى اعمدة في جدول اكسل وبالعكس اذا الموضوع يهمك لطفا شاهد الفيديو التالي ومرفق ملف العمل تبديل الموضع.xlsx

مشاركة بسيطة دوال استخراج بيانات الرقم القومى.mdb

تمام بارك الله فيكم

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

وعليكم السلام اخوي حربي اعصابك اعصابك ، تعطينا ساعة ونص ، ومستعجل علينا ، بينما اكيد كان الموضوع عندك ايام وايام وما كنت مستعجل عليه الاستعلام هو اساس كل شيء في موضوعك ، فالجمع يتم من هنا . والنتيجة . ورجاء ، لما تخلص الاشياء الثانية من التقرير ويصبح بصورته النهائية ، رجاء ارفقه لنا ، حتى يستفيد منه الجميع جعفر 941.DBCollg1.mdb.zip

الحمد لله رب العالمين

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

جرب برنامجك أو ارسل نسخة كاملة من البرنامج لتفقد الخطأ .... إن أردت ذلك

البرنامج شغال .... اي كود لا يعمل وضح ....

اخي @نادر نادر1 المعذرة المطلوب غير مفهوم ... فهم السؤال نصف الاجابة

السلام عليكم ورحمة الله وبركاته اللي يعتقد بأننا نستخدم الاكسس في الحسابات فقط ، فاليلقي نظرة على برنامج القافية هذا برنامج عملته في 2007 ، لإختيار الكلمات من بين حوالي 618 الف كلمة ، لأعمل قافية لأبيات الشعر الواجهة: 1. اكتب الحرف/الحروف التي تريد ان تكون عليها القافية (اي ان تنتهي الكلمة بهذا الحرف/الحروف) ، 2. اكتب الحرف/الحروف التي تبدأ الكلمة بهذا ، 8. كلمات البحث في #1 و #2 تظهر هنا ، 3. عند كتابة الحروف في #1 او #2 ، فالبحث يكون عن طريق هذا الزر ، (وتستطيع الكتابة في #1 او #2 ، و رقم 4) ، 4. اكتب الكلمة التي تريدها ، وستظهر لك الكلمات المرادفه لها ، 5. للبحث للرقم 4 ، 9. كلمات البحث في #4 تظهر هنا ، 6. لحذف جميع كلمات البحث ، بالاضافة الى انه يمكن النقر مرتين على #1 او #2 او #4 لحذف الكلمة/الحرف/الحروف من الحقل ، 7. نريد ان نختار من الكلمات الموجودة في #8 ، فننقر على #7 لحفظها مؤقتا في نموذج جديد . البحث في الكلمات التي تنتهي بالحروف ليل . وعند النقر على الزر A فتنتقل الكلمة الى النموذج هذا . البحث في الكلمات التي تبدأ بالحروف خل . البحث عن الكلمات المرادفة لكلمة شجاع . البحث عن الكلمات المرادفة لكلمة شجاع ، والتي تنتهي بالحرف ت . وعند الانتهاء من اختيار الكلمات ، وعند النقر على زر Copy to Notepad ، سيتم حفظها في ملف باسم Poem.txt في نفس مجلد البرنامج ، . المربع الاحمر: الكلمات في النموذج اعلاه يتم البحث عنها في الحقل #2 ، وإظهار نتائج الحقل #1 ، ومعاني الكلمات موجودة في الحقل #3 ، المربع الازرق: الكلمة في #4 هي عكس الكلمة في الحقل #2 ، والحقل #5 فيه معنى هذه الكلمة . بدأت بأخذ كلمات القرآن الكريم ، ثم بكسر الحماية من ملف الكلمات/القاموس في برنامج Ms Word واخذ كلماته ، فأصبح عندي حوالي 48 الف كلمة ، ولكن لم تكن الكلمات كاملة ، فأنزلت من الانترنت جميع القواميس العربية ومعانيها ، وادخلتها جميعا في البرنامج ، فوصل عدد الكلمات الى حوالي 618 الف كلمة ، عملت عدة كودات (والتي تركتها في البرنامج للذي يريد ان يستفيد منها) لتصفية الكلمات و اكواد اخرى للتعامل مع MS Word ، حيث ارسل الكلمة للوورد ، ثم آخذ المعاني منها ، وكذلك لمعرفة مقلوب الكلمة ، اذا كان لها معنى ، وإلا فلم اكتب الكلمة. ارجوا ان تستفيدوا من البرنامج ، مثل ما انا استفدت منه يوما ما ونظرا لكبر حجم البرنامج ، فهو موجود في الرابط التالي: جعفر

السلام عليكم اقدم لكم برنامج خاص بالجمعيات الخيرية اكسس 2016 // 32 بت الرقم السري 12345 لطفا حمل البرنامج عبر الرابط المباشر التالي - ميديا فير http://www.mediafire.com/file/vall28053cbrobn/%D8%AC%D9%85%D8%B9%D9%8A%D8%A9_%D8%AE%D9%8A%D8%B1%D9%8A%D8%A91.accdb/file

احسن الله اليك وبوركت مثال رائع

أخي الفاضل @عبد اللطيف سلوم معلم ما شاء الله تبارك الله .... تسلم

سؤالك غير واضح اخوي وضاح ، رجاء توضح اكثر جعفر

شو هذه الوحدة النمطية؟ وشو الغرض منها؟ جعفر

متشكر جدا استاذ عبد اللطيف الف شكر

الاخ @raafatfakhry تفضل الحل بطريقة اخرى غير ما تفضل به معلمنا الاستاذ @kanory Total.accdb

كلك ذووق

مثال جامع بارك الله فيك

شكرا لك اخي الكريم هذا ما اريد

تنويه ممتاز اخي @jjafferr بارك الله فيك

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

جهد مشكور ربنا يوفقك ويكرمك

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

تنقيط علامات بالانجليزي fgh.xlsx

ما شاء الله عليك استاذنا جعفر إبداع جميل ربنا يعطيك الصحه والعافبه

وعليكم السلام ورحمة الله وبركاتة اذا نرجع للمربع الاول الحل بعمل جدول للأباء وجدول أخر مستقل للأبناء ::بالتوفيق::

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

على كده احاول كتابة الشعر من الان بسببك اخي @jjafferr 😁

الله يعطيك العافيه جهد مبارك وعمل مميز

السلام عليكم اخوي خلف شكرا على هذه الكلمات الجميلة ، وهذا من حُسن ظنك فيني ذكرتني ببرنامج قديم عملته من زمان ، فرفعته بالشرح جعفر

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

هل جربت التنسيق الشرطي

جرب هذا الملف Crazy_Sort.xlsm

تفضل المطلوب تم إضافة عمود معادة في العمود l لمعرفة إذا كانت الخلية في العمود A تنطبق عليها الشرطين أم لا وفي حالة تطابق أحد الشروط ينعي رفض وتم عمل التحقق من الصحة RR.rar

جرب هذا الماكرو Option Explicit Sub Give_Data() Dim first As Worksheet Dim sec As Worksheet Dim third As Worksheet Dim lr1%, lr2%, m%: m = 4 Set first = Sheets("ورقة1") Set sec = Sheets("ورقة11") Set third = Sheets("تجميع") third.Range("b3").CurrentRegion.Offset(1).ClearContents lr1 = Application.Max(first.Range("b:b")) + 3 lr2 = Application.Max(sec.Range("b:b")) + 3 third.Cells(m, 2).Resize(lr1 - 3, 9).Value = _ first.Range("b4").Resize(lr1 - 3, 9).Value m = m + lr1 - 3 third.Cells(m, 2).Resize(lr2 - 3, 9).Value = _ sec.Range("b4").Resize(lr2 - 3, 9).Value End Sub الملف مرفق استدعاء.xlsm

وعليكم السلام ورحمة الله وبركاتة لو تتذكر كنت اخبرتك ان هذه الطريقة ستدخلك في متاهات كثير عموماً تفضل On Error Resume Next Fr = Null Fr = DLookup("مسلسل", "people", "مسلسل =" & text) On Error GoTo 0 If (IsNull(Me![Fr])) Then Me![ok] = False ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم __father_66-906.mdb

السلام عليكم تم عمل المطلوب باستعمال الدالتين INDEX و MATCH في معادلات صفيف... إذا أردت الاستغناء عن معادلات الصفيف (التي تثقل عمل الملف في العادة) يمكن إضافة عمود مساعد (العمود C من شيت "المعاملات") فيه نقوم بعمل Concatenate لقيم العمودين A و B... في الملف المرفق تجد نسختين لملفك أحدهما بمعادلات صفيف والآخر بمعادلات بسيطة... بن علية حاجي Index and Match.rar

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

بعد اذن اخي عبد اللطيف ولتعم الفائدة ، هذه نسخة بصيغة 2003 جعفر مؤسسة البركة لبيع الخلويات.zip