biskra

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

جرب الكود التالي في حقل التقدير بعد التحديث Dim strX As String strX = Me.اسم الحقل التقدير If strX <> "" Then Me.Filter = "اسم الحق في الاستعلام الموجود به التقدير = '" & strX & "'" Me.FilterOn = True Else Me.Filter = "" Me.FilterOn = False End If

الكود وضع في مشاركة أخرى عن طريق الخطأ Private Sub احسب_Click() Me.OrderByOn = True OrderBy = "التاريخ ASC" DoCmd.Requery On Error Resume Next Dim i As Integer Dim co As Integer co = DCount("*", "[qhodoor1]") DoCmd.GoToRecord , , acFirst For i = Val(num) To co + Val(num) - 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''صباحي If [الوردية] = "صباحي" Then If [الانصراف] > [الحضور] Then [عددالساعات] = [الانصراف] - [الحضور] [اجمالي] = [عددالساعات] End If End If ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''وردية سهر If [الوردية] = "سهر" Then [عددالساعات] = [الانصراف] - [الحضور] + 1 End If If [الوردية] = "سهر" And [عددالساعات] >= "12:00:00" Then [اجمالي] = "12:00:00" End If If [الوردية] = "سهر" And [عددالساعات] <= "12:0:00" Then [اجمالي] = [عددالساعات] - [خصم] End If If [خصم] = Null Then [خصم] = "0.0" End If DoCmd.GoToRecord , , acNext Next i DoCmd.Requery Exit Sub DoCmd.Requery End Sub

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

أظن أنه ينقص إجراء بعد تحقق الشرط لكي تحفظ القيمة، لأن حدث BeforeUpdate ينطبق فقط على عناصر التحكم في النموذج.

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

من خلال البحث مختص يطرح نفس السؤال، يمكن أن تجد من خلال المناقشة السبب و ربما الحل. https://www.vbforums.com/showthread.php?767987-Error-message-if-duplicate-part-number-from-barcode-reader

يفهم من ذلك أن البرنامج مجاني للإستعمال، فقط أي غير قابل للتعديل طالما أن السور كود محمي.

حسب ما قرأت أن الجهاز مثله مثل لوحة المفاتيح، بعد تنصيب الجهاز فإنه ينصب الأحرف الخاصة به، و عند استعماله فهو ينقل البيانات مباشرة الى الحقل المخصص له، جرب فتح ملف أكسس في حقل ما عوض ادخال الاسم مثلا شغل الجهاز و سوف ينقل مباشرة الباركود و الله أعلم. في هذا الموقع يمكن أن تجد ما يفيدك https://www.idautomation.com/barcode-integration/access/

جرب إضافة عمال آخرين لتتأكد من صحة النتيجة،

محاولة أخرى مجموع كلي للساعات2.mdb

تفضل بعد التعديل القباضة.accdb

يمكن في بعض الأحيان كسر حماية بكلمة سر vba بسهولة، يكفي فتح قاعدة البيانات بمحرر HEX Editor و القيام بتعديلات بسيطة تسقط الحماية.

تفضل بالمحاولة المتواضعة، و أكيد هناك حلول أحسن، خاصة فيما يخص الراتب التي تحتاج الى تنسيق للتخلق من النقطتين، مجموع كلي للساعات2.rar

حسب رأيي أفضل سؤال يكون كيف نحمي البيانات و ليس حماية البرنامج، البيانات اصبحت مصدر ثروة و فقدانها أو التعديل عليها بالتحايل يسبب خسائر و ربما إفلاس، أما البرنامج دوره عبارة عن وسيط مهما تفننت في حمايته دون حماية البيانات فلا معنى له.

جرب ما توصلت اليه فقط دقق ان كانت النتيجتين مجموع الساعات، و الراتب صحيحتين، لأني لاحظت اختلاف في النتيجة مع ما اقترحه الأخ ABOLO2 مجموع كلي للساعات.rar

نسخة من التقرير فقط الذي تريد التعديل عليه

عليك بوضع نسخة من الملف للتعديل عليه

محاولة بسيطة للمطلوب لآن المعلومات الموجودة بالجدول غير متانسقة فالإسم تجده متكرر لكن رقم التعريف الوطني غير مطابق، للوصول للمطلوب بالصبط يجب أن تكون البيانات متاسقة للبحث عن السجلات المطVisitors_3.mdbررة أكثر من مرة على الأقل بتطابق حقلين مثلا الاسم و المعرف الوطني

نزل الملف المرفق من طرف الأستاذ جعفر و طبق عليه التعديلات، و لا تنسى تعديل الدوال حسب ما اقترحه الأستاذ، و لن تخلط الأمور فالحل المقترح من طرفه احترافي و يوفر لك الثبات و الدقه في تنفيذ المطلوب،

غير معيار التصفية إلى الكود التالي Like '"*"' Or '"^"' Or >="0"

محاولة بواسطة دالة لتنفيذ الإستعلامات بواسطة زر على النموذج، MZtab2(1).accdb

على الرابط مناقشة لنفس المشكلة تقريبا و فيه في آخر الموضوع يمكن يسهم في حل المشكلة Move to next record until EOF

عندي اشتغلت عادي سوف اراجع الملف و اخبرك للتأكد MZtab2(1).accdb