kanory

وعليكم السلام تقضل ربما هذا طلبك KMA Fixed Assets10-07-2018.rar

أذن كون حقل في جدول المستخدمين لزر خيار واجعله مرتبطا بنموذج دخول المستخدمين .... وعند وضع علامة عليه لن يظهر لك نموذج الدخول مرة أخرى ..... وضع هذا الكود في نموذج الدخول في حدث عند الفتح .... If DLookup("[ka]", "Tb1") = True Then DoCmd.Close DoCmd.OpenForm "frm1" End If ' tbl1 اسم جدول بيانات المستخدمين ' ka هو حقل زر الاختيار ' frm1 هو النموذج الرئيسي المراد فتحه

وعليكم السلام ورحمة الله وبركاته تقصد تسجيل تلقائي .....

سؤالك غير واضح لكن انظر .... "سنة" ("yyyy") "شهر" ("m") "يوم" ("d") "ساعة" ("h") "دقيقة" ("n")

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

أخي @عبد اللطيف سلوم جرب هذا لعله يفيد عند حدث التحميل .... If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD"

أخي @لاتبخل تفضل ملفك ... بارك الله فيك https://drive.google.com/file/d/1Tj9Xv2VhRxax7laJh5IYn1NQmThqe5gc/view?usp=sharing

تأكد من الرابط حتى لا يبخلوا عليك بالرد

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

أخي @Anasalsalam ادخل على النموذج Delete And Edit Users في وضع التصميم ثم فعل حدث عند النقر على الازرة الثلاث ( close و delete و Edite ) وتنتهي المشكلة ....

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

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

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

تفضل هل هذا طلبك أخي @raafatfakhry Total.accdb

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

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

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

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

2016

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

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

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