رمهان

العفو ! وياليت لو ضبطت معاك تعود وتخبرنا لكي نعتمدها كحل ! او تذكر لنا كيف انحلت معك ! تحياتي

قم بانزال نسخة الاوفيس العربي او الداعم للعربي !

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

تفضلي ومشاركة مع الأستاذ عبدالرحمن Private Sub case_AfterUpdate() Me.date = IIf(Me.case.ListIndex = 0, VBA.date, "") End Sub كما أؤكد على ملاحظة الأخ عبدالرحمن بعدم تسمية الاعمدة او العناصر بأسماء دوال او أسماء محجوزة ! مثل date و case بالتوفيق

عزيزي جربت الامر لدي وتمام وبدون مشكلة ! لدي ويندوز 8 واكسس 2010 . بالتوفيق

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

ممكن تشرحين اكثر عن النظام ومهامه. وماهو الغرض النهائي والتقارير والمخرجات

مشاركة مع اخي اسير الشروق بنظرة اسهل ! اختر اللون ثم اضغط على الامر change ملاحظة : التعديلات فقط على نموذج a تحياتي تغيير لون النموذج كما يريد المستخدم.rar

اعزائي من الأفضل دائما ان لا يحتوي الجدول على حقل ليخزن به قيمة ناتج لعملية حسابية او معادلة . بل انه يعتبر غالبا مخالف لانظمة قواعد البيانات . فالعمود التكلفة الفرعية هو عملية حسابية يجب استبعاده وقد كان هذا مستبعد في ملف الأخ السائل وفي اول مشاركة ! الحقيقة حاولت الحل على نفس الملف الأساسي للقرب لذهن السائل والأكثر سببا هو للاخ العزيز اسير الشروق لتاكدي من استفادته منه !! بالتوفيق Database11.rar

عزيزي هل انت من عمل الملف ؟ هذا هو اسم مربع البحث لديك !! بالتوفيق

موجود ! والزين غالي ! تحياتي

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

اخي ابراهيم ان ماطرحت يحتاج لخلفية علمية في علم قواعد البيانات والموضوع يحتاج لوقت كبير للشرح . ولكن هل تعلم ومن خلال الصورة : - ان اسم الحقل بالخط العريض له معنى - الخط المتقطع له معنى - الخط الغير متقطع له معنى - النهاية الطرفية للخط (متقطع -متواصل ) له معنى - الدائرة الصغيرة في النهاية لها معنى ولكن ساجيبك حسب سؤالك وهو ما معنى pf : هو مفتاح أساسي مكون من عمودين . وهو في نفس الوقت كل عمود هو مفتاح اجنبي لمفتاح أساسي بجدول اخر ! بالتوفيق

اخي مستر ستيف اليك هذا السطر من الكود وامسح جميع الاكواد الاخرى Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "tbl1", "[B]=1 and [A]= form![A]") = 1 Then Cancel = B: MsgBox ("مكرر"): Undo End Sub تحياتي

ضع أولا تنسيق مربع نص البحث الى تاريخ افضل ومن نافذة الخصائص كما ان تسمية الحقول او العناصر بأسماء محفوظة غير سليم مثل date واليك الكود التالي لزر الامر Private Sub أمر29_Click() Me.Filter = "[date]=#" & بحث_بالتاريخ & "#" Me.FilterOn = True End Sub بالتوفيق

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

ممكن كذلك وعند حدث عند التغيير لعلامة الجدولة me.refresh او docmd.requery بالتوفيق

اوك جرب عند ظهور الرسالة اضغط موافق ثم اعمل تراجع ctrl+z

اخي جمال أرى انه لاداعي لوضع الحقول m1,m2 ... الخ والتي تأخذ قيم التقييم ! فيكتفى بان بوضع مصدر مربع التحرير والسرد عمودين وعبارة عن التقييم والقيم وكما تفضل به الأخ أبو خليل ! ولا نخفي الاعمدة لكي تظهر القيمة بجانب التقييم ! كما ان وضعهم بجدول مستقل افضل ! وبعد كذا تستطيع استخراج القيم وفي أي مكان من البرنامج وحسب نص التقييم ! بالتوفيق

اخي مستر ستيف وقبل ان تذهب جرب ضع علامة صح في اول سجل ! وعند ظهور الرسالة اضغط سكيب esc مرتين ! ماذا تلاحظ : قبل الصح وهنا تكررت البيانات ! ساترك لك محاولة الحل ! والا عد وسنعود ! عزيزي اباخليل : هل تعلم انه يوجد بما تفضلت به في :DLookup("B", "tbl1", "B=form!B")) تحفة كما تسميها ! وهي ليست جديدة بالنسبة لي ولكن نبهتني لشي مهم بل تحفة وهي بمثابة معلومة جديدة لي . هي كالتالي : انه في وضع كلمة form او بدونها فقط اسم العنصر على النموذج داخل الدوال التجميعية وفي جزء الشرط لم يعد هناك الحاجة للتنسيق الصريح للنص بوضع العلامة ' وللتواريخ بوضع # . فان الاكسس يميز ذلك ضمنيا . تحياتي للجميع

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

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

مشاركة مع الأستاذ عبدالرحمن ضع الحدثين التاليين : Private Sub Form_Current() Me.save.Enabled = Nz(Me.التاريخ, 0) >= Date End Sub Private Sub التاريخ_AfterUpdate() Me.save.Enabled = Nz(Me.التاريخ, 0) >= Date End Sub بالتوفيق

ضع الكود التالي للنموذج الفرعي وفي حدث في الحالي كما هو ظاهر : Private Sub Form_Current() Me.xselect.Enabled = Not Me.xselect End Sub بالتوفيق

تفضل ولعله المطلوب !! AA.rar