ابوخليل

عليكم السلام انظر هنا .. موضوع تم طرحه قبل يومين قد يساعدك ولو بحثت داخل المنتدى لوجدت امثلة كثيرة احترافية

مكان الرسالة الصحيح هو في حدث زر الخروج وليس حدث اغلاق النموذج عدل الى الى هذا Private Sub أمر0_Click() If MsgBox("هل تريد الخروج", vbInformation + vbYesNo, "تنبيه") = vbNo Then DoCmd.CancelEvent Exit Sub Else DoCmd.Close End If End Sub

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

عمل استعلام مصدره جدول؟ او استعلام يقوم بإنشاء جدول؟

بكذا انت منحت من يقوم بالتصميم راحة تامة من معاناة اختيار التسميات ... مرة ومرتين ويعتاد على هذه التسميات

الجميل في هذا .. التوافق مع معالج اكسس لمستخدم النسخة الانجليزية .. لأن اكسس يعطي الازرار هذه التسمية Command1 و 2 ، 3 وهكذا انا لم ادقق كثيرا .. هل تسميات الحقول والاشياء الأخرى تتبع تسميات المعالج ايضا ؟

ما شاء الله تبارك الله سلمت الأنامل .. عمل جميل ورائع .. وطريقة علمية سلسة

ولمجموع النقود استخدم DSum

هذه محاولة مني استعلام وظيفته : عمل مقارنة بين جدول الاصناف والاستعلام الذي تمت تصفيته بين تاريخين 2.accdb

السلام عليكم ورحمة الله وبركاته بريمج صغير لتقييم اداء الموظفين تم الاقتباس والاستفادة من برنامج استاذنا القدير خليفة .. من هنا لمن اراد الزيادة حرصت على اختصار الكائنات قدر الامكان ليسهل ادراجه ضمن برنامجك اخي الحبيب البرنامج عبارة عن نموذجين وتقرير واحد فقط النموذج الاول : للاطلاع على بنود التقييم مع امكانية الاضافة او الحذف النموذج الثاني : لعملية التقييم والحفظ وعرض التقرير والطباعة مع بعض الضوابط منها مثلا منع تكرار التقييم في السنة الواحدة للموظف اتمنى ان تجدوا فيه الفائدة والمتعة EvaluationEmployees.rar

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

ما المشكلة ؟ حقل او عمود كما نسميه يبين نوع العملية .. 1 ، 2 ، 3 ، 4 : شراء ، بيع ، مرتجع شراء ، مرتجع بيع بالدالة او استعلام .. اذا جلبت مجموع العمود بشرط حقل نوع العملية = 4 يرجع لك مجموع مرتجع المبيعات كاملة ، واذا اضفت اليه شرط الصنف ارجع مجموع مرتجع المبيعات من ذلك الصنف

بارك الله فيك استاذنا هذا المبدأ او المصطلح عبارة عن (( تصور )) لتقريب العملية الحسابية وليس له وجود في السجلات فالمبيع مبيع / والمشتريات مشتريات / والمرتجع مرتجع صحيح مرتجع الشراء يمكن رصده في عمود المبيعات _ عند اعتماد الجدول الواحد_ ولكن بمصاحبة حقل يدل عليه وايضا ينطبق على مرتجع المبيع

710 + 8 = 718 70+32 = 102 718-102 = 616

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

الملاحظات الاملائية او اللغوية في هذا المنتدى لا تعني لي شيئا ولا تستحق التعقيب الا اذا تكرر استخدامها كثيرا .. اما لو حدثت من استاذك في اللغة والبيان فمؤكد انها سقطت سهوا . لذا وللفائدة العامة احببت ان ابين الفرق بين كلمة ( منظم ) وكلمة ( منضم ) عند استخدامها للتعبير عن نوع الحقل او النموذج منظم : من التنظيم والتنسيق وتنطق بضم الميم وفتح النون وتشديد الظاء مع الفتح منضم : من الانضمام والارتباط وتنطق بضم الميم وتسكين النون وفتح الضاد بدون تشديد والاخيرة هذه هي التي نعبر بها عن الحقول والنماذج ان كانت منضمة اي مرتبطة ام لا

يمكنك جعل الخاصية من المحرر في حدث الفتح او التحميل للنموذج ضع الكود Me.DATE1.Locked = True ونعدل الكود السابق ليصبح Private Sub MAN_AfterUpdate() If Me.MAN = "HT2" Then Me.DATE1.Locked = False Else Me.DATE1.Locked = True End If End Sub او اعتمد كودك الذي ارفقته الخلل في كودك انك لم تضع علامتي التنصيص على النص HT2

عليكم السلام سأجيب واتوقع اني لم افهم عنك جيدا في محرر الوحدة النمطية العامة نكتب : Public Function my_function() ' اكتب اكوادك هنا End Function ويتم استدعاء الوظيفة هكذا Call my_function أو my_function او my_function() الاخيرة نستخدمها في الاستعلامات اذا كانت الوظيفة معيار بمعنى انها تأخذ قيمة محددة اما الأولى فنحن نشغل الوظيفة اذا كانت قيمتها متعدية اي انه يوجد متغيرات خارجية تتأثر قيمتها عند تشغيل الوظيفة

عليكم السلام اولا يجب الانتباه عندما تريد تسمية الحقول الاسم Date محجوز لدى اكسس فلا يصلح تسمي الحقل به اما طلبك فأرى تجنب الحدث قبل التحديث الا في حدود ضيقة ففي حالتك الا فضل ان يكون حقل التاريخ محمي اساسا ويتم اتاحته للتحرير عند تحقق الشرط Private Sub MAN_AfterUpdate() If Me.MAN = "HT2" Then Me.DATE1.Locked = False End If End Sub Field by field.rar

المثال يتعامل مع متصفح كروم مباشرة

كما تفضل به ابو جودي .. وأجاد كل محاولاتنا للارسال عبر الواتس هي اجتهادات للتعامل مع المتصفح ..وارسال الاوامر الخارجية .. بالضبط تماما وكأننا وضعنا شخص يعمل على لوحة المفاتيح هذه المتصفحات عرضة للتحديث بين فترة واخرى .. حسب علمي .. هناك اكثر من طريقة مضمونة لارسال المرفقات الى العملاء .. - البريد الاكتروني .. وهو المتبع لدى 98% من المؤسسات والجهات الحكومية والتجارية - بعد انتشار استخدام الواتساب __ الاشتراك التجاري في واتساب .. - من خلال تطبيق الجهه او موقعها .. يمكن للعميل تنزيل المرفقات وطباعتها ملحوظة : عندنا برامج تخدم المدارس مدفوعة .. هذه المدارس لم تقبل استبدال الرسائل النصية ( sms) برسائل الواتساب .. والسبب ان رسائل sms مضمونة الوصول ومعتمدة

بما ان الامثلة كثيرة في المنتدى وجميعها لم تعمل معك لذا الشرح النظري لن يفيد وبما ان المطلوب هو واتس ويب جربي هذا المثال .. في هذه المشاركة واعرضي لنا الاخطاء التي تظهر لك

صباح الخير ابا جودي ستكون الردود هنا شحيحة ، لأن التجربة ستكون لمن يملك أو يعمل على شبكة محلية

اعتقد حسب فهمي للسؤال ان المطلوب منع التعديل على مربع الاختيار وبما ان الهدف هو منع التعديل على مربع الاختيار فيمكن ان تتم حمايته من التعديل ويتم تفعيله آليا عند اختيار نوع المستخدم = admin اما اذا اردنا هذا المربع متاح لأي نوع من انواع المستخدمين حسب الحاجة .. وفي الوقت نفسه نريد حمايته عن التعديل للمستخدم admin فهذا الكود يفي بالغرض : Private Sub userID_BeforeUpdate(Cancel As Integer) If Me.userType = "Admin" Then MsgBox "لا يمكن التعديل" Undo DoCmd.CancelEvent Exit Sub End If End Sub على اعتبار userID هو مربع الاختيار وهذا مرفق للتجربة AA.mdb