نجوم المشاركات

وعليكم السلام ورحمة الله وبركاته .. جرب في حدث بعد التحديث لمربع النص الغير منضم الفكرة التالية .. Private Sub AMOUNT_AfterUpdate() Dim vAmount As Double vAmount = Nz(Me.AMOUNT, 0) DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET JOR = Nz(US,0) * " & vAmount DoCmd.SetWarnings True DoCmd.Requery End Sub

المهم عندي انها تعمل عندك على الاقل على جهاز واحد المشاكل التي واجهتها ليس للبرنامج دخل فيها .. وها انت ذكرت الاسباب نعم كنت انتظر مثل هذه الملاحظات .. التي هي أساسية وفي صلب الموضوع والسبب بارك الله فيك هو المعيار ( Date ) الذي يحدد أو بمعنى أدق يهيئ السجل للتوقيع فالسجل تم اعداده بحيث يكون : اما يكون فارغا وإما يحتوي على توقيع حضور اليوم وفي المسألة التي عرضتها : تم توقيع الحضور ولكن بتاريخ الأمس هنا أكسس يتجاهل الانصراف الفارغ ويسجل حضور جديد .. لماذا ؟ لأن السجل فارغ بسبب المعيار ...................... سأعالج الأمر وآمل ان يكون التعديل سلسا يسيرا بحيث لا يؤثر على منظومة الضوابط داخل الكود

تمام حاضر اشكرك على التوجيه الجميل

استاذ @moho58 برفق اليك مرفق من أعمال استاذنا @ابو جودي انا شخصياً بستعمله . ملاءمة عناصر النموذج حسب حجم النموذج.rar

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