Moosak

وعليكم السلام 🙂 سبقتني إليها أخي أحمد 😄 وهذه مشاركتي .. 🙂 Database1 (3).rar

عمي قاسم .. أحياناً نستغرب من وجود بعض الأوامر المتاحة في ال VBA حتى تدور الحاجة إليها 🙂 مثلي تماما .. كنت مستغرب من الحاجة لأمر فتح النموذج في وضع التصميم ؟!! حتى علمت أن هناك أكواد تسهل عملية إضافة عناصر للنموذج وتسميتها فتسهل لك أيما تسهيل .. أما بالنسبة لعمل المفاتيح الأساسية لجدول معين حسب ما أتصور يفيد عندما تريد عمل تعديلات على جداول ملف قاعدة البيانات الخلفية BE عن بعد للعميل مثلاً دون الحاجة لنقله عندك .. فبأوامر الNBA سيتم التغيير بسهولة 🙂

هنا تجد الكود الذي يقوم بذلك : 🙂

جرب وأخبرنا إن نجحت عندك ؟ 🙂 وأنصحك أيضا بفحص الملف ببرنامج المهندس جعفر 👍🏼

أخي صابر .. ربما يكون ملف ال be معطوب لديك وتحتاج لإصلاحه أو استبداله تماماً .. هل جربت فتحه لديك في جهازك قبل توزيع البرنامج ؟ هذا أحد روابط محاولة إصلاح الأخطاء لمهندس القدير جعفر :

وعليك السلام ورحمة الله وبركاته أخي @محب العقيدة 🙂 مجهودات رائعة منك لتسهيل الانتقال لقواعد بيانات ال SQL .. لك الأجر بإذن الله 🙂 ولازلنا نتابع بقية السلسلة 😉

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

أهلا بك @Mina_youssef9 في المنتدى 🙂 لتحقيق أقصى استفادة يرجى الإطلاع على : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف. ************************************************************************** بالنسبة لسؤالك وحسب علمي .. يمكنك فتح ملف الأكسس في الموبايل عن طريق برامج الريموت (التحكم من بعد) مثل التيم فيور team viewer .. بحيث يكون جهاز اللابتوب شغال على طول وتفتح التيم فيور في الجهازين فكأنما تفتح شاشة اللابتوب في شاشة الموبايل .. وبهذا يمكنك فتح ما تشاء من اللابتوب ومن ضمنها برنامج الأكسس .. طبعا كل هذا شريطة اتصال اللابتوب بالانترنت ..

قبل لا نخرج عن الموضوع الرئيسي .. 🙂 الفكرة هي التصويت على الأفكار المتميزة بمختلف مواضيعها ثم تسليط الضوء عليها وتكريم أصحابها .. المشاريع الجماعية فكرة أخرى سننظر فيها لاحقاً .. 😄

لدي فكرة لتطوير هذا المقترح : 1- دعنا في هذا الموضوع نجمع المواضيع التي يتم ترشيحها للتصويت .. ومن ثم في موضوع جديد يتم عمل التصويت عليها 🙂 2- يتم تجميع المواضيع المتميزة خلال سنة 2022 إلى الآن مثلا .. (هل الفترة مناسبة ؟) 3 - يتم إعادة التصويت مرة أخرى في منتصف كل عام . 4- المواضيع المتميزة يتم وضعها في موضوع خاص بها يتم تثبيته لمدة محددة تكريما لأصحابها 🙂 5- يمكن اقتراح هدية معينة للفائزين 🧐 هل من أفكار إضافية ؟

وعليكم السلام ورحمة الله وبركاته 🙂 فكرة رائعة ومحمسة .. أخي طاهر .. أقترح أن تضع أنت المواضيع .. ويرشح عليها الإخوة 🙂

وعليكم السلام أخي @moho58 🙂 بالبحث ستجد الكثير من المواضيع التي تتكلم عن جدول الحصص المدرسي .. أنظر هنا مثلا : وهذا رابط البحث : https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=جدول+حصص+مدرسية+Access&sa=Search

أنا يظهر لدي الملف فارغ .. 🙂 أوفيس 365 ويندوز 10 .. وأعتقد أن المشكلة ليس لها علاقة بالأوفيس ولا الويندوز .. لعلها مشكلة ترتيب الكود فقط ..

جرب هذا الكود أخي محمد 🙂 Public Sub PrintPicture(ByVal strFilePath As String) Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "mspaint.exe", "/p " & Chr(34) & strFilePath & Chr(34), "", "print", 1 End Sub

العفو حبيبنا سيمو 😁 لك ذاكرة طويلة المدى ما شاء الله .. ولمزيد توضيح .. يقال للشخص: أنت مُتَدَوْدِه .. بالمعنى الذي ذكرته .. وتقول عندما تدعو له : الله يبعد عنك لمْدودَهْ 😄 أبعده الله عنا وعنكم يا غاويين 😁🌹 هل تؤدي نفس الغرض أخي أبو أحمد ؟ .. وهل تتجاهل فروقات التنسيق بين الذي معنا والتنسيق الأمريكي ؟

اللهم آمين وإياكم 🙂🤲🌷

عديتها في الجدول فوجدتها 6 غرف .. مطابقة للرقم في التقرير

انتبهت لها وعدلت على المشاركة السابقة .. راجعها .. بالنسبة لعدد الغرف لاحظ Count وليس Sum

جرب هذا للغرف المغادرة : =DCount("[Id]";"[tbl_bookings]";"[IsEnd] =true And [bToDate] = #" & Format([bFromDate];'mm/dd/yyyy') & "# ") problem_count (1).accdb

وعليكم السلام ورحمة الله وبركاته أخي سيمو 🙂 لإجمالي الغرف أكتب : =Count([riFullName]) ولكن ما هو المعيار لمعرفة الغرف المغادرة ؟

الجواب : ..... نعم 🙂 1- أضفه في جدول الجمع TeachersCourses 2- جرب .. 🙂

تعمل جيدا عندي .. باركك الله أخي محمد 🙂

وعليكم السلام ورحمة الله وبركاته 🙂 من خصائص النموذج إجعل شكلي أو مشروط = لا 🙂

أعتقد أن الموضوع متعلق بتمكين المحتوى و الماكرو .. أغلق الرسالة والنموذج الرئيسي LOGO .. وسترى شريط أصفر أمامك .. إضغط على زر [تمكين المحتوى] .. ثم أعد تشغيل البرنامج من جديد .. 🙂

لو وضحت الصورة .. يمكن بعدها تفكيك رقم العقد لأجزاء رقمية يمكن التعامل معها بسهولة 🙂