أمير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

أنا بقترح تكون جداول البيانات الثابتة :

جدول بيانات الموظف وراتبه الأساسي - جدول تسجل فيه الأشهر والعام - جدول نوع المتغيرات (سجن-اعتقال-اختفاء قسري....ههههه الحاجات الحلوة دي)

وجداول حركة:

جدول المتغيرات:  تسجل فيه الموظف ونوع المتغير وتاريخ المتغير

وتعمل نماذج لتسجيل بيانات الجداول السابقة

+ نموذج لحساب الراتب وهذا النموذج يسجل في جدول :

الراتب حيث تسجل فيه الاستحقاقات والاستقطاعات والمتغيرات

طبقاً لمعادلات فمثلا :

يوم الاجارة = خصم ؟؟؟ % من الراتب الاساسي ؟ وهكذا باقي المتغيرات

وكل استقطاع هل نسبة من الراتب أم قيمة ؟

طبعا هذا تصور شخصي ولم يسبق أن صممت برنامج رواتب

وعند التصميم يمكن أن نكتشف تعديل أفضل

وأكيد هستفيد من موضوعك اذا ما شارك الاعضاء بابداعاتهم

59 دقائق مضت, ashraf zain eddin said:

واذا ما في حدا بالعائلة يعمل لازم يطلع بس واحد

تقصد لا يتم استبعاد العائلة بالكامل اذا كان بها واحد يعمل ؟

بناء على كلامك :

اذا كان عدد الأفراد العاملين بالعائلة = 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