ابوخليل

صحيح النماذج لا يمكن فتحها وعلى كل حال اطلعت على الجداول واليك الملاحظات والنصائح 1- تسمية الجداول والحقول لو كتبتها بحروف انجليزية وجعلت العربية في التسمية التوضيحية حتى يسهل عليك قراءة وفهم الاكواد 2- عدم ترك فراغات بين الكلمات وان كان لابد يوضع بين الكلمات الشرطة السفلية نصيحة : لو جعلت المنصرف والارجاع في جدول واحد افضل تصور لعمل المستخدم على البرنامج : - شاشة واحدة رئيسية فقط يتم من خلالها الصرف والارجاع في النموذج الفرعي - الحقل الرئيس في البرنامج هو رقم هيكل السيارة ، فالسيارة هي الاصل - في الشاشة يمكن فتح سجل جديد لتسجيل سيارة جديدة - ايجاد منسدلتين واحدة للسيارات الموجودة والاخرى للمصروفة - عند اختيار سيارة موجودة لصرفها يقوم المستخدم بادخال هوية المستلم والنقر لفتح نموذج المستلمين لادخال بقية بياناته او اعتماده ان كان موجود - عند استرجاع سيارة يتم اختيارها من المنسدلة ليظهر في الفرعي بيانات الصرف وتحتها بيانات الارجاع آمل ان تستفيد من هذه الملاحظات فليس المهم ان تكمل البرنامج ولكن الاهم ان تكمله على الوجه الصحيح ، حتى يسهل عليك التطوير والتحسين مستقبلا -

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

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

وعليكم السلام هذا يغلق النموذج عندما تنقر زر الهروب Esc ويمكنك تغيير اسم النموذج "Form" لأي كائن داخل النموذج ، كما يمكنك تغيير الاجراء Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 27 Then DoCmd.Close End If End Sub

وعليكم السلام يمكن عمل هذه العلاقة ولكن الاهم من هذا ان تكرار الاسم في الجداول الاخرى يعتبر من الأخطاء في تصميم قواعد البيانات ، فيكفي وجوده في الجدول الرئيس ، والا ما فائدة الربط والعلاقات ؟ على كل حال تم تعديل المثال حسب طلبك وفيه كيف نتيح الربط لاكثر من حقل بين جدولين 2003_2.rar

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

تفضل استبدل الكود بهذه الجملة DoCmd.SetWarnings fals DoCmd.RunSQL "INSERT INTO tran ( tra ) " & vbCrLf & _ "SELECT [ngro] & "" "" & [nsanf] AS xpr1 " & vbCrLf & _ "FROM gro, sanf" DoCmd.SetWarnings True

نبارك لأخينا وحبيبنا صالح حمادي قدوم أول مولود له الزهرة (غفران ) بورك فى الموهوب و شكرت الواهب و رزقت برها .. اللهم انبتها نباتا حسنا الف الف مبروك

تم الفصل وبالنسبة لي فقد افرغت ما في جعبتي .. وفقك الله لكل خير ،،

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

عدد الحقول التي تشتمل على بيانات تفضل الحل في المرفق Test2.rar

لا اعلم ان كان يمكن تغيير لون اطار اكسس 2003 فمع فترة وجودي في هذه المنتديات لا اذكر حلولا لهذا المطلب الا بالتحايل وصنع اطار يقوم مقامه انظروا النموذج بالمثال المرفق إطار.rar

حتى الآن ما وصلت الفكرة لان الحقول في الاستعلام ستكون ثابته ومعلومة كما هي في الجدول اشرح لي الفكرة ولماذا تريد عد هذه الحقول ؟

جميل جدا جزاك الله خير

السؤال غير مفهوم حاول تشرح المطلوب اكثر

اذا كان الحقل رقمي فيمكن انك تعكس الشرط ، بحيث يكون : اكبر من صفر = لون ابيض وان لم يتحقق الشرط يكون احمر اما اذا كان الحقل نصي فيمكنك استخدام العبارة التالية : IsNull([fldName])=true غير [fldName] الى اسم الحقل عندك

استخدم استعلام التحديث db55.rar

اعتقد المسألة اتضحت الموظف اما ان يمنح اجازة يتمتع بها او ان العملية تعويض مالي عن اجازة اذا كان تعويض فهو يستحق ما يقابل الكسر من المال وان كان سيمنح اياما يتمتع بها ولنفرض لم يتبقى له من رصيده الا 32.5 فيمنح العدد الصحيح من استحقاقه والكسر سيبقى له لا شك في مستقبل ايامه طيب لنفرض موظف مستجد بدأ في 1/1/2017 هل في 1/6/2017 يمنح 50 يوما ويسمح النظام بذلك اذا كان نعم فلست بحاجة الى حساب ارصدته السابقة الا عند التصفية بمعنى ستمنحه الاجازة بناء على السنة الحالية واذا فرضنا ان الموظف تمتع باجازة في وسط السنة على فرضيتك بمقدار 30 يوما وفي نهاية السنة اراد اجازة اخرى بــ 30 يوما اخرى ، هنا لن يغطي رصيد السنة الحالية ، وفي هذه الحال يمكنك الرجوع الى ارصدة السنوات السابقة للاقتصاص منها المهم في جميع هذه العمليات هو رصد وتسجيل عدد ايام الاجازة الممنوحة وعلى كل حال هذه الامور يحددها النظام المعمول به ، والانظمة دائما يتم تحديثها حسب المستجدات نخلص الى المشكلة التي تواجهك فأرى ان سببها تصميم البرنامج وطريقتك في عرض وحساب الاجازات ، يجب ان تعيد النظر فيها فلست ملزما باظهار الحسابات على النحو الظاهر في الصورة صحيح ان الاجازات الاستثنائية ترصد بهذا المسمى ولكنها تشترك مع العادية بانها تحسم من الرصيد خلافا لبقية الاجازات ، لذا يجب ان يتم جمعهن لوحدهن في حقل واحد عند الاستعلام عن الرصيد فانت اقحمت جميع الاجازات في نموذج واحد وطبقت عليهن الكثير من الاكواد والعملية لا تحتاج لكل هذا فعرض التفاصيل يختلف عن عمليات الجمع ، فاأرى ان تحول النموذج الظاهر لعرض التفاصيل فقط اما الجمع فيمكن عمله في حقل واحد فقط تظهره في اي مكان شئت ملحوظة : سأفصل ما يخص موضوعك هنا في عنوان مستقل ان شاء الله

يقرأ خطوط الباركود عموما غالب البطاقات الشخصية تحمل هذه الخطوط

اخوي فؤاد كأن الذي اعد المثال غيرك ! يبدو انك لم تطلع عليه جدول البيانات الذي ارفقته انت فيه 48 اسم يوجد اكثر من 15 اسم مكرر وذكرت لك اني اعطيتك الفكرة وطريقة تنفيذها وإلا على العموم : تصميم الجداول بداية خطأ لا بد من رقم معرف في جدول البيانات غير قابل للتكرار ويقابله نفس الحقل في جدول الغياب ولكن مع قبول التكرار وتربط الحقلين بعلاقة واحد لمتعدد في الجدول وفي الاستعلام تطبق العلاقة كما في المثال المرفق . آمل ان اكون افدتك

تصدق استاذنا الكريم اني رديت عليك في يومها واعجب اين ذهب ؟ ، يمكن اني لم احفظ العمل وقتها على كل حال اذكر اني كتبت فيه ان المشكلة في النسبة الغير منضبطة سببها العدد 50 فلو قسمتها على 12 لظهر الناتج 4.166666 فهي اقرب الى 4.17 من 4.16 ومن هنا اتى نقص وزيادة اليوم اما الـــ 30 يوما فهي منضبطة بـــ 2.5 تماما لكل شهر فلا يحصل خلل فرأيي انكم بين خيارين اما ان تجبرو الكسر لحظ الموظف او العكس اما حسب الطريقة التي انت تريد تطبيقها فيمكنك تطبيقها مع الاخذ بالمعادلة فيمكنك حساب المدة على السنين عن كل سنة 50 يوما مثال : كريمو بدأ عقده في 1/1/2006 وانتهى في 30/4/2010 فتكون مدة عمله= تاريخ بداية العقد - نهاية تاريخ العقد = ثلاث سنوات و 4 اشهر الاستحقاق = 3 + ( 12/4 ) * 50 اي استحقاق ثلاث سنوات = 150 + استحقاق اربعة اشهر هنا ما هي المعادلة التي ستجريها لاستخراج استحقاق 4 اشهر من الـ 50 يوم ملحوظة : الموظف يستحق الاجازة المذكورة في آخر السنة وليس في اولها بمعنى انه قبل نهاية السنة بـ 50 يوما يحق له الاستمتاع بها مقابل عمله السابق فكيف تمنح له قبل ان يعمل ؟

يقصد الاستاذ محمد : احذف الجداول المرتبطة ثم اعد الربط

السلام عليكم هذه تظهر دائما عند النسخ واللصق اذا كان فيه حروف عربية بين الاكواد وهذه هي على الصورة الصحيحة Call MsgBox("مطلوب قم بتحديده واختياره (BData.mdb) ملف البيانات", vbCritical) واسم قاعدة البيانات الظاهرة تخصني وعليك بتعديلها الى قاعدة الجداول عندك

تفضل ولكن الاولى يكون الرابط بين الجدولين معرف رقمي منضبط مثل رقم الهوية او الرقم القومي وليس الاسماء المهم ان الفكرة امامك الآن 2التقدم 2015 النهائي.rar

بعد اذن اخوتي الكرام بما ان المرفق mdb فتفضل ما يناسبه هذه العبارة الصقها في التنسيق الشرطي للتطبيق على الارقام الزوجية [num] MOD 2 = 0 وهذه للارقام الفردية [num] MOD 2 = 1 وهذا المرفق تم التطبيق على خلية واحدة Prog20.rar