omarahmed1424 قام بنشر سبتمبر 3, 2017 قام بنشر سبتمبر 3, 2017 السلام عليكم ورحمة الله وبركاته وبعد إخواني أعضاء المنتدى الكرام كل عام وأنتم بخير ... أحاول أن أنفذ إجراء التعديل على جميع سجلات نموذج مفرد في برنامجي حيث تم إضافة خانة لحساب القيمة المضافة بنسبة 5 % من كامل الرسوم الدراسية ويتم الحساب تلقائيا بمعادلة موضوعة على حدث عند تغيير الرسوم أو الباص أو العام السابق أو الخصم ولكن يلزم لذلك إجراء أي تغيير في هذه المعطيات ولو بإعادة كتابتها واستخدام زر التعديل ثم الحفظ في النموذج فهل هناك طريق لحساب ضريبة القيمة المضافة لكل سجل تلقائيا دون للجوء لهذه الدائرة الطويلة
Amr Ashraf قام بنشر سبتمبر 3, 2017 قام بنشر سبتمبر 3, 2017 11 ساعات مضت, omarahmed1424 said: السلام عليكم ورحمة الله وبركاته وبعد فهل هناك طريق لحساب ضريبة القيمة المضافة لكل سجل تلقائيا دون للجوء لهذه الدائرة الطويلة وعليكم السلام ورحمة الله وبركاته ممكن تعملها فى حدث On Timer مثلا يعملها تلقائى بعد عدد محدد من الثوانى يعنى مثلا لو بتضيف السجل فى 5 دقايق اظبط التوقيت على 5 دقائق لحد ما تكمل البيانات وبعدها تلقائى المعادلة تشتغل .... او اعمل الكود فى زر امر تستدعيه وقت ما تحتاجه بالتوفيق
kanory قام بنشر سبتمبر 3, 2017 قام بنشر سبتمبر 3, 2017 أخي الكريم يمكن استخدام قاعدة For , Next للمعادلة المطلوبة لجميع السجلات 1
omarahmed1424 قام بنشر سبتمبر 4, 2017 الكاتب قام بنشر سبتمبر 4, 2017 21 ساعات مضت, kanory said: أخي الكريم يمكن استخدام قاعدة For , Next للمعادلة المطلوبة لجميع السجلات ممكن مثال على الكود للتطبيق على البرنامج لدي وجزاكم الله خيرا
kanory قام بنشر سبتمبر 4, 2017 قام بنشر سبتمبر 4, 2017 Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.countRec hafez = salary * 0.2 kest = 20 total = [salary] + [hafez] - [kest] DoCmd.GoToRecord , , acNext Next 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.