عمر ضاحى

لا

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

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

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

نسيط اضيف واذا كان متوفر لديك النسبه وكما فى المثال السابق وهى 11% وقيمة ال النسبه 22 وتريد ان تعرف القيمة الاصليه للمبلغ وال مفترض يكون (200) بهذه الطريقة تضرب القيمة المبلغ (22) فى 100 وتقسمها على النسبه ال هى 11 هتطلعلك النتيجه 200

ممكن توضح اكثر (لان سؤالك مبهم جدا) لان لو انت تريد ان تظهر علامة "%" فى الجدول فقط ضع هذا التنسيق واذا كنت تريد ان تستخرج قيمة نتيجة النسبه من المبلغ 200 مثلا على فرضا ان النسبه هى 11% يجب ان يكون الناتج 22 ويمكن تطبيقها هكذا فى حقل محسوب (لا يفضل ان تجعل فى الجداول حقول محسوبه لانها تثقل من اداء القاعده مستقبلا وتكون ثقيله فى العمل)(يمكن تطبيقها مثلا فى النماذج او الاستعلامات افضل) [مبلغ العقد]*[اطلاق نسبة من العقد] طبعا هى هكذا علشان احنا وضعنا تنسيق الحقل انه قيمة مئاوية (%) اما اذا كان تنيق الحقل رقمي عادي هيكون هكذا [مبلغ العقد]*[اطلاق نسبة من العقد]/100 اما لاستخراج قيمة النسبه ال 22 من ال 200 هتكون هكذا (مبلغ النسبه ال هو 22 مضروب فى 100 مقسوم على اصل المبلغ ال هو 200 هيطلعلى النسبه وهى 11 اتمنا ان اكون قد اصبت [مبلغ النسبة]*100/[مبلغ العقد]

اذا كان استفسارك انتها برجاء اختيار افضل اجابه

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

هل هذا ما تريد ؟ =IIf([DAu22]<=Date();"تما العودة من الاجازة";"مازال قيد الاجازة") 174971286_11.accdb

سوف اكتب لك ما اعرفه (اعتقده) اولا يجب ان تكون النماذج نماذج غير منضمه حتى يمكن للمستخدمين استلام البيانات من الجدول واعادة غلقها مره اخرى حتى تكون جاهزه للمستخدم الاخر ثانيا تقوم بتقسيم قاعدة البيانات (اماميه وخلفيه) تضع القاعده على جهاز سيرفر (وسيط) لا يغلق ابدا حتى يتمكن جميع المستخدمين من الاتصال به تعمل ربط للجداول مع القاعده الاماميه (اما يدويى او بالاكواد وهتلاقى مواضيع كثيره تتحدث عن هذا) وبكده تكون عملت ما تريد ^_^ ويمكن لجميع اساتذتى الكرام تصحيح ما اخطأت فيه او نسيت تقبل تحياتى ومرورى اخوك عمر

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

الف الف شكر لحضرتك ..ربنا يبارك فيك ويكرمك

السلام عليكم اساتذتى الكرام ..بعد اذن حضرتكم ..كنت محتاج مساعدتكم فى حل مشكله ان اجعل جميع الارقام عربية والحمد لله عرفت اخلى الارقام كلها بالعربى ..بعدما كانت تظهر معى الارقام السالبه بين قوسين بالعربي (وهذا هو المطلوب) والارقام الموجبه تظهر لى بالانجليزي ..وبعد عدة محولات كثيييير فاشله ..وصلت للتنسق ده #,###.##;(#,###.##) لكن ظهر معي مشكله اخرى ..انه بيضع لى فى اول الارقام الصحيحه ( . ) ..اما الارقام العشريه لا يوجد بها مشكله مرفق ملف TEST.xlsx المطلوب : تنسيق اظهر به الارقام بالشكل العربي ..وان تكون الارقام السالبه بين قوسين ويكون شكل الارقام صحيح ..تعديل اخر (تحديث لما قمت به من تجارب)..جربت اضع 0 فى اول التنسيق 0#,###.##;(0#,###.##) النتيجه

فى موضوع لاستاذى الفاضل عمرو اشرف فى قمة الروعه واكثر استقرار ممكن تراجعه هيفيدك جدا جدا

السلام عليكم اساتذتى الكرام حفظكم الله ورعاكم ...بعد اذن حضرتكم ..وكما هو موضح من العنوان مع ملف اريد ان اقوم بالتنسيق الشرطي لتحديد التكرار بشرط ان يتشابه فى التاريخ يعنى لو فرضا هناك احد اسمه احمد متسجل فى العمود D وهناك تاريخ للتسجيل فى العمود E اذا تكرر الاسم فى العمود D وايضا فى العمود E يحددهم لى لكن اذا تكرر الاسم واختلف التاريخ لا يحددهم لى ..كيف يمكن عمل هذا التنسيق..مرفق ملف التنسيق الشرطي للتكرار بشرط.xlsx

مهتم جدا لهذا الجانب ومتابع فى صمت ^_^

يا سلام اما صحيح الحل سهل اهو هههههههههههههههههههههه الف الف شكر

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير بعد اذن اساتذتى الكرام بارك الله فيكم محتاج مساعدتكم معي فى كيف اجعل المكتبتين كما هو موضح فى الصورة التاليه ظاهر معي هذا الخطأ Name conflict with existing module,project,or object library

بعتذر لم اقرأ سؤالك كويس فهمت ما تريد وهذه فكره للحل لحين رد الاساتذه الكرام انت ممكن تعمل نموذج اخر به نموذج فرعي اخر ويعرض فى النموذج الفرعي كل الاصناف وتعمل نص بحث فى النموذج الرئيسي وتعمل مايكر ينسخ لك قيمه (رقم الصنف) ويضعه فى الحقل المخصص له فى النموذج الرئيسي وبدالة Dlookup يكتب لك اسم الصنف وتستكمل باقى العمليه

ممكن حضرتك توضح اكثر ايه المطلوب ؟ لانى مش فاهم يعنى انت عاوز لما تعمل ايه يحصل ايه ؟

معك حق لكن وقتها حبيت افصل الجدولين عن بعض (مش عارف ليه ^_^ ) لكن فكرتك جميله هحاول اطبقها فى التجارب (التدريبات) القادمه

هذا ما قصدته (مرفق ملف) فيه ما قمت بعمله لان واضح ان فى مشكله فى استخدام قاعدة iif مع Between داخل الاستعلام ممكن تتحل بحل اخر عن طريق مديول (مجربتهاش لاني ضعيف فيها صراحتا) لكن جربت جميع الاشكال والطريق ال ممكن اتوقعها (من وجهة نظرى الشخصيه الضعيفه) لكن فشلت فى حلها غير بهذه الطريقه Pro-Acc-S7.rar

خلاص ولله الحمد حليتها بحل اخر خارج الصندوق بتاعي قمت بعمل حقلين اخرين فى فورم الارصده قيمتهم بتساوي تحويل التواريخ الى شهر وسنه للحقلين الاصليين للتواريخ الاستعلام وعملت حدث بعد التحديث If Me.OP1 = 2 Then Me.Con1 = Format([txtdate1], "mm-yyyy") Me.Con2 = Format([txtdate2], "mm-yyyy") Else Me.Con1 = Format(#1/1/1900#, "mm-yyyy") Me.Con2 = Format(#12/31/2500#, "mm-yyyy") End If وعملت له نداء فى كل شئ يخص التاريخ فى الفورم وفى الاستعلام وضعت هذا المعيار >=[Forms]![frmReportBalance]![Con1] And <=[Forms]![frmReportBalance]![Con2] واشتغل تمام ^_^ ايضا بعد هذا يتم اخفاء المربع النص الجديد لان ليس له فائده ان يكون ظاهر ^_^

الموضع باختصار عاوز اقول للاستعلام Q_SumErad و Q_SumMsrofat لو Forms]![frmReportBalance]![OP1]=2 ضع المعيار Between [Forms]![frmReportBalance]![txtdate1] And [Forms]![frmReportBalance]![txtdate2] اما لو كانت القيمه غير كده يشتغل بدون معيار اى ([TblErad]![EradDate]) بس كده ^_^

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