أمير2008

dateend.rar

أعتقد أستاذنا جعفر أن المشكلة تكمن في كود التنقل بين السجلات Rs.MoveNext لأنه موجود داخل اللوب الذي يشترط أن يكون التاريخ للسجل أقل من التاريخ الحالي فاذا لم يتحقق الشرط فسوف يتم إنهاء اللوب ولن يحدث تنقل بين السجلات

طيب جرب ده Set rs = CurrentDb.OpenRecordset("tbTable", dbOpenDynaset) rs.MoveFirst For i = 0 To rs.Fields.Count - 1 If rs!dateend < Date Then rs.Edit rs!check = -1 rs.Update Else rs.Edit rs!check = 0 rs.Update End If rs.MoveNext Next rs.Close Set rs = Nothing

ممتاز وهذه اضافتي على الكود حيث يسجل لون الخط ولون الخلفية حسب اسم الكائن بالنموذج 01.rar

أليس مصدر بيانات التقرير هو هذا الاستعلام ؟

أعتقد البرنامج يحتاج لإعادة بناء لكن شوف هذه المحاولة فاذا كانت هي ما تريد فاستكمال باقي الكود سهل za-EmployyeUP 3.rar

ههههههه فعلا تحتاج تحديث دالة Now مع كل موظف تختاره جرب المرفق 3منع تكرار التسجيل.rar

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

أ/ محمد الصالح و أ/ صالح حمادي بارك الله فيكم. هناك أكثر من طريقة : طريقة 1 : مربع نص بالتقرير مصدر التحكم = [Pages] طريقة 2 : مربع نص بالتقرير مصدر التحكم = [Page] طريقة 3 : بدون مربع نص بالتقرير ويكون باستخدام كود يتعامل مع النموذج كنموذج ومع التقرير كتقرير وقد تعلمت هنا أحد الأكواد للأساتذه بحيث يمكن تعديله ليقوم بمعرفة عدد الصفحات بدلالة الصفحة الأخيرة بمعنى : أمر فتح التقرير أمر الذهاب للصفحة الأخيرة أمر معرفة رقم الصفحة الأخيرة أمر اغلاق التقرير وأكيد الطريقة هذه ستنجح إن شاء الله

للطباعة مباشرة استخدم نفس الكود الذي استخدمته أنت في طباعة التقرير الأول والثاني DoCmd.OpenReport "report3", acNormal

نعم فهمت أنت تريد طريقة لحساب عدد صفحات التقرير بدون استخدام مربع نص مصدر التحكم =[Pages] سأجرب طريقة أخرى وأوافيك إن شاء الله

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

اذا كنت تقصد اظهار عدد الصفحات داخل التقرير: فاستخدم معالج انشاء التقرير وسوف يظهر تلقائيا رقم الصفحة واجمالي الصفحات واذا كنت تقصد اظهار عدد الصفحات داخل نموذج : Private Sub Command0_Click() strReportName = "table1" DoCmd.OpenReport strReportName, acViewPreview, , , acHidden MsgBox (Reports(strReportName).Pages) DoCmd.Close acReport, strReportName, acSaveNo End Sub

يمنع التسجيل في نفس اليوم 2منع تكرار التسجيل.rar

أنا بقترح تكون جداول البيانات الثابتة : جدول بيانات الموظف وراتبه الأساسي - جدول تسجل فيه الأشهر والعام - جدول نوع المتغيرات (سجن-اعتقال-اختفاء قسري....ههههه الحاجات الحلوة دي) وجداول حركة: جدول المتغيرات: تسجل فيه الموظف ونوع المتغير وتاريخ المتغير وتعمل نماذج لتسجيل بيانات الجداول السابقة + نموذج لحساب الراتب وهذا النموذج يسجل في جدول : الراتب حيث تسجل فيه الاستحقاقات والاستقطاعات والمتغيرات طبقاً لمعادلات فمثلا : يوم الاجارة = خصم ؟؟؟ % من الراتب الاساسي ؟ وهكذا باقي المتغيرات وكل استقطاع هل نسبة من الراتب أم قيمة ؟ طبعا هذا تصور شخصي ولم يسبق أن صممت برنامج رواتب وعند التصميم يمكن أن نكتشف تعديل أفضل وأكيد هستفيد من موضوعك اذا ما شارك الاعضاء بابداعاتهم

تقصد لا يتم استبعاد العائلة بالكامل اذا كان بها واحد يعمل ؟ بناء على كلامك : اذا كان عدد الأفراد العاملين بالعائلة = 0 فلا تظهر العائلة اذا كان عدد الأفراد العاملين بالعائلة = 1 فتظهر العائلة متمثلة في هذا الشخص فقط مع استبعاد الباقين اذا كان عدد الأفراد العاملين بالعائلة =2 فتظهر العائلة متمثلة في هذين الشخصين فقط مع استبعاد الباقين وهكذا. هل تقصد هذا ؟

interface1.rar

اذا كنت تريد استبعاد العائلة بالكامل اذا وجد فيها أي شخص يعمل فجرب المرفق وعليك تحمل المسئولية 561.filter.rar

صحيح أستاذنا جعفر ، وأكيد الخطأ لعدم وجود القيمة NoViewContextMenu لذلك أضفت كود إنشائها في حالة عدم وجودها Database 561.rar

من وجهة نظري طريقة الريجستري للأستاذ جعفر تؤدي الغرض. وموضوع تعطيل الكليك يمين للماوس بمستكشف ويندوز يمكن التغلب عليه من خلال اغلاق المستكشف وإعادة فتحه دون عمل ريستارت للنظام. Database 560.rar

بالنسبة لجزئية الرجوع للمجلد الرئيسي : يجب عليك تخزين المسارات (حالي وسابق) إما في متغيرات أو في جدول أو في ملف خارجي : طريقة المتغيرات : ليكن مثلا عشرة متغيرات نصية فاذا كنت في المجلد الرئيسي فيتم تخزين المسار في متغير مسار 1 فإذا أصبحت في مجلد فرعي 1 يتم تخزين قيمة مسار المجلد الفرعي 1 في المتغير مسار 2 وإذا أصبحت في مجلد فرعي 2 يتم تخزين قيمة مسار المجلد الفرعي 2 في المتغير مسار 3 وهكذا طريقة الجدول : هي عمل جدول تخزن فيه المسارات الأخيرة التي زرتها بديلاًَ عن المتغيرات ومثلا عند تخزين المسار يكون الكود : curr_folder = Me.oleWebrowser.LocationURL وفي حالة الاستعادة يكون الكود : Me.oleWebrowser.Object.Navigate curr_folder

الفكرة العامة بالكود المفترض : DBEngine.CompactDatabase ExportedFile1, ExportedFile2, , , MyPass أنا حاولت أطبقها على ملفك وبالفعل عمل كلمة سر لكن السر في كيفية نسخ الجداول من القاعدة بعدما تم حمايتها هذا الأمر يحتاج للمزيد من التجارب لأنني عدلت أكودك بالملف بدون مراجعتها بمعنى آخر : إما صابت أو اثنين عور !! ههههههه backup 559.rar

Not Between

أنا مش فاهم جملتك : "واريد ان لا يتم الخصم إلا بعد اضافة فاتورة جديدة " أشعر أنها متعارضة مع المطلوب على العموم شوف التعديل ده db101.rar

UPDATE جدول2 SET جدول2.FullName = Replace(Replace(Replace(Replace([FullName],' ',' '),' ',' '),' ',' '),' ',' '); كود نافذ المفعول تم رفعه على الانترنت منذ قليل Database101.rar