jjafferr

وعليكم السلام اخي مراد :) الظاهر ان يومك خير وبركة ، ماشاء الله حصلت على جوابين لسؤالك :) ، فلا تنسانا في هذا اليوم المبارك في دعائك :) والكود على الحدث ، بعد تحديث خانة الاختيارات Day_Type: Private Sub Day_Type_AfterUpdate() If Me.Day_Type = 0 Then Me.Filter …

تفضل هذا الرابط لاختنا الدكتورة ام عهود /index.php/topic/170595-التقاط-صورة-الموظف-بالكميرا-او-بالماسح-الضوئي-و/?p=861875 جعفر

سلام عليك هذا الرقم يعتمد على إصدار اﻻكسس المنصب على كمبيوترك ، فاختار هذه المادة ولكن بالرقم الموجود على كمبيوترك ، ثم جرب البرنامج :) جعفر

الطريقة الصحيحة هي: Like "*" & Forms!FormName!ControlName & "*" جعفر

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

حياك الله :) التفاصيل موجودة في الاستعلام : A حاله ملغاه :) جعفر

لوسمحت تتأكد ان هذه المواد اللي عليها علامة صح ، موجودة في برنامجك ، ويفضل ان تكون بنفس الترتيب كذلك. جعفر

VBA > Menu > Tools > References انظر في القائمة اذا كانت كلمة Missing موجودة فيها فاخبرني الكلوة التي امامها ، وستجد في المنطقة السفلى من النافذة معلومات اخرى ، رجاء اخباري عنها كذلك :) جعفر

اذا كانت كلمة Missing موجودة ، فهذا معناه ان هناك احد العناصر المطلوبة غير موجودة على كمبيوترك :( رجاء قراءة اسم المادة الغير موجودة ، وسنحاول ان نسترجعه او ان نضيفه الى كمبيوترك. جعفر

حياك الله اخي مراد ، هذا من حُسن ظنك :pde: والمرفق خال من الكود المؤقت :) جعفر 163.SMonth._Rep.mdb.zip

اخي مراد ، السلام عليكم :) المشكلة كانت في اعدادات التاريخ في الوندوز ، فالمعروف ان اكسس يتبعها ، والكمبيوترات قد تختلف في اعداداتها ، كما هو الحال بين كمبيوتري وكمبيوترك :) ونحن كمبرمجين ، نحاول في معظم الاحيان ان نخبر برنامجنا بان يقتفي طريقة معينة في اخراج …

لقيت المشكلة :) باختصار ، النموذج يرسل تاريخ اليوم والشهر بعكس الطريقة اللى يشوفها الكود!! cmdrep1_Click > RepDate 2014/03/01 Function GetDate > DrepDate 2014/01/03 بس محتاج ارتاح شوي ، وبعدها اشتغل على البرنامج ان شاء الله :) جعفر

انا لا ادري من اين جئت بهذه الارقام!! ولكن لو شفت المثال والصورة اللي ارفقتهم انا ، بتلاحظ ان الارقام مجاميعها صحيحة :) شوف في اعلى النموذج الفرعي ، يمكن انت بالغلط اخذت علامة الدفع عن مجموعة تواريخ!! وإلا ، رجاء ارفق لي البرنامج اللي يعطيك النتائج اللي تتكلم …

تفضل :) جعفر 168.منظومه الكـــــفاله.accdb.zip

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

وعليكم السلام :) ارفق برنامجك لوسمحت حتى ننظر فيه :) جعفر

هلا بفتى بلادي :) ياريت ترفق لنا هذا البرنامج ، لأني متشوق لأتعلم من برمجته ، وارى ونتائجه :) جعفر

طيب ، هذا الكود بالشرح :) Public Function Calculate_Kest() Dim rst As DAO.Recordset 'نأخذ نسخة من السجلات الموجودة في التموذج الفرعي علشان نحسب منه Set rst = Me.frm_kest.Form.RecordsetClone 'ننتقل الى اول سجل rst.MoveFirst 'نجعل قيم خانات المجاميع صفر لكل خانة…

هلا اخوتي :) الكود الذي يقوم بالعمل هو: Public Function Calculate_Kest() Dim rst As DAO.Recordset Set rst = Me.frm_kest.Form.RecordsetClone rst.MoveFirst Me.tP1 = 0 'paid Me.tP2 = 0 'pending til this month Me.tP3 = 0 'remaining For i = 1 To rst.RecordCount 'pa…

همممم لا يوجد ي الكود MouseMove !! على العموم ، لوسمحت تشوف اذا في شي MISSING بيئة الفيجول : Menu < Tools > References