عمر ضاحى

حبيبى انا تحت امرك وزي ما اساتذتى ساعدونى ولم يبخل احد فيهم على تقديم النصح والارشاد انا لن ابخل ولن يبخل عليك اى شخص هنا فى تقديم المساعده واسأل الله الكريم رب العرش العظيم ان يحفظهم من كل شر وان يبارك لنا فى اعمارهم اجميعن نعود لموضوعك اخى الحبيب اعتقد ده بسبب ان مصدر البيانات هو الجدول مباشرتا هذا اولا ثانيا النموذج الفرعي مربوط برقم العسكري (رقم الاليه) ورقم الاليه فى النموذج هذا "نقليات1" مربوط برقم الاليه فى النموذج "نقليات" اذا ما فائدة هذا الحقل ؟ يمكنك ان تجرب هذا كل ما عليك علشان تنقل من موظف لاخر لاضافة البيانات ان تغلق النموضج الخاص بالاجازات وتعود الى النموذج الرئيسي وتختار الموظف التالى وتعود الى النموذج مره اخرى ضباط جديد - OmarDahy .rar

بصراحه اعذرنى انا مش فاهم انا حملت الملف لكني لم افهم المطلوب هل تريد عند الاختيار من الصف ال على الشمال يتم ترحيلها الى الصف ال على اليمين ؟ ولا ايه بالظبط ؟ لو امكن ترفع صور بالمطلوب

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

اذا لم تحل مسألتك ممكن ترفع صوره توضح ايه الغلط فى ال قدمه الشباب لك ؟

جرب تضيف هذا الكود فى زر الحاق موظف strSQL = "INSERT INTO [جدول الحضور] ( [رقم الموظف], [اسم الموظف], [لقب الموظف], [العمل الفعلي], التوقيع, CHK, [الموسم الدراسي], [رقم الفوج], القسم ) " & vbCrLf & _ "SELECT Q1.[رقم الموظف], Q1.[اسم الموظف], Q1.[لقب الموظف], Q1.[العمل الفعلي], Q1.التوقيع, Q1.CHK, Q1.[الموسم الدراسي], Q1.[رقم الفوج], Q1.القسم " & vbCrLf & _ "FROM Q1 " & vbCrLf & _ "WHERE (((Q1.CHK)=Yes));" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True

ام ممكن تكتفى باضافة سطر DoCmd.Close بدون اى اضافه بعد كود فتح النموذج الاخر وانتهت القصه

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

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

اول شئ لازم يكون الجدول فارغ حتى لا يكون هناك اى اخطاء ثم اكمل

جرب واخبرني بالنتيجه

عموما اذا كان المعيار هو CONTRACT_FILE و SUP_DATE كل ما عليك انك هتقوم بتحديدهم معا وجعلهم مفتاح رئيسي وهنا اذا تكرر رقم العقد و تاريخ القسط لن يقبل الاضافه لكن اذا تكرر طرف ولم يتكرر طرف اخر سوف يقبل الاضافه

ما هو المعيار ال عليه اذا تحقق لا يكرر ؟ يعنى مثلا تاريخ القسط وايه تاني ؟

هل هذا ما تريد برنامج اعداد الخطط لمركز السلام(6).rar

حبيبنا الغالى ان ما تريده هو طلب برنامج كامل وهذا سيكون صعب على اى احد تلبيته لك هنا لكن يمكنك ان تبدأ فى تصميم البرنامج بحسب ما تريد واذا وقف شئ معك يمكنك فتح موضوع وستجد الكل هنا يعطيك الف حل وبالتوفيق

ممكن توضح ما تريده بصوره ؟ هل هذا ما تريده ؟ rprt.accdb

فى حدث بعد التحديث لحقل ادخال رقم الصنف ضيف هذا الكود If DLookup("[Stop]", "Itemtbl", "[ItemID]=" & txtItemID) = -1 Then MsgBox "هذا الصنف موقوف من البيع", vbCritical, "تنبيه" Me.Undo Exit Sub End If مرفق ملف اذا انتهت مسألتك اختر افضل اجابه ^_^ db2-.rar

يعنى هل قدرت تحل المشكله وتجد ما تبحث عنه ؟

وهذا فيديو لتوضيح فكرتي https://mega.nz/file/Tu4zGJ6Q#4wCwOc0tdk70TZEO0RSoGJSnAucRLvdz76si9vceZH0 طبعا ممكن تلاقى اشياء اكثر وافضل وربنا يوفقك

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

وانا عملت له اسكان على موقع VirusTotal https://www.virustotal.com/gui/file/01d2ce7322740001fe88405f8a586317ce43085645c06fecc5c5b24a588763aa/detection مفيش غير ال AVG وال Avast ال معاهم مشكله فى الملف انا شغال بكاسبر مش مسك فيه حاجه اعتقد ان الاعتراض على كود او شئ اخر موجود ورأي ال طبعا غير ملزم واترك الرأي النهائى لاهل الاختصاص ان الملف سليم ما فى شئ اكيد وان الاعتراض هيكون علشان مكتبه او حاجه هو شيفها فيرس مثل برتوكول اتصال او ما شابه والله اعلم

لا

استاذ مالك (هذه فكره ممكن تجربها) ممكن تنفذ ما تريد عن طريق الاتى اولا فى صفحة اللوج ان هتضيف فى حال ان كل بيانات الدخول صحيحه (وقبل تنفيذ غلق الشاشه) هذا الكود Dim UserName7 As TempVars TempVars![UserName7] = Me.user.Value احنا هنا قمنا بتخذين اسم المستخدم وتم حفظه فى الذاكره هنعمل تعديل على اى نموذج انت تريد ان تسجل من قام بالتعديل طبعا لازم نخزن اسم المستخدم ال هيقوم بالتعديل فى جدول علشان لما يرجع مره اخرى يتم التحقق منه هنضيف فى جدول النموذج حقل جديد ونسميه المستخدم1 مثلا (هذا الحقل سوف يقوم بتسجيل اسم المستخدم الذى قام بانشاء السجل انا هنا هاخذ من المرفق ال رفعته نموذج للشرح عليه ( اسمه " نقليات1" ) السؤال هنا ما هي الكائنات التى اريد عدم التعديل عليها غير بمستخدم ؟ لنفترض انه النموذج الفرعي داخل النموذج " نقليات1 " هنضيف حقل جديد لاضافة اسم المستخدم الذى يقوم بتسجيل السجل (انت بالفعل قمت باضافته) هنربط هذا الحقل بالجدول وطبعا هنروح على القيمة الافتراضيه ونجعلها =[TempVars]![UserName7].[Value] هنروح لباقى الحقول ونحددهم ونعمل تنسيق شرطي لوفهم ما قمت بعمله فى التنسيق الشرطي انى باقول له اذا كانت القيمه المستخدم لا تساوي قيمة المستخدم الحالى اذا قم بعدم تمكين الحقول اتمنى ان اكون قد اعطيتك ما تريد ومرفق الملف ملاحظه قمت بعمل تعديل على الاستعلام فى النموذج لان يوجد خطأ فى المعيار ضباط جديد - OmarDahy .rar

فى النموذج اذهب الى خصائص الحقل ومن تنسيق اختر عمله

ما شاء الله ربي يعطيك الف عافيه ويبارك فيك