kanory

تفضل الملف غير محمي اساسا أخي الكريم analyse.accdb

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

لم افهم ايش الى ما ضبط .... الالحاق شغال عندي ما في مشاكل

هل هذا طلبك ..... KMA Fixed Assets10-07-2018 (1).rar

اسماء الحقلين ماهي عشان السرعة .... والحقل من UP01 ماهي ؟

جاري التنفيذ أمهلني .........

الان لا وانما وضعته لتعرف الطريقه .... لأن الكود المكتوب تحت الزر يقوم بنفس عمل الاستعلام ولكن عن طريق vb

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

يسلم غاليك أخي الفاضل ..... كل ما تم عمله هو انشاء استعلام الحاق مبني على Between [forms]![mm2]![j1] And [forms]![mm2]![j2] راجع الاستعلام الموجود في القاعدة المرسلة لك باسم 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

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