تحديث بيانات حقل لعدد معين من السجلات

[الأمير هشام]

الزملاء الكرام  السلام عليكم 

مرفق ملف يحتوى على بيانات فى جدول المطلوب تحديث البيانات فى حقل   Status إلى  YES و ذلك لأول  أربعة سجلات فقط في اختبار الإحصاء  (وليس كل سجلات اختبار الإحصاء ) مع وافر الشكر و التقدير لما تبذلونة من وقت وجهد فى هذا المنتدى المتميز

DATA_BASE.accdb

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

مرحبا اخي الكريم

جرب المرفق واعلمني بالنتيجة

DATA_BASE.accdb

تحياتي

[الأمير هشام]

الزميل الكريم  محمد السلام عليكم 

ما قصدته برقم 4 على سبيل المثال وليس بالتحديد بمعنى أن المستخدم سوف يدخل عدد الطلاب مثلاً 4 أو 7 أو 9  ثم من خلال زر أسمة (تعديل حالة) يتم تعديل حاله Status  للطالب بداية من أول سجل للطالب الأول حتى الطالب رقم   4 أو 7 أو 9 على حسب إدخال المستخدم لعدد الطلاب

مع وافر الشكر و التقدير  لمساهمات سيادتكم المتميزة

[رمهان]

مشاركة مع الاستاذ محمد

تفضل : اختار الكورس ثم اختار عدد السجلات ثم انقر "ابدأ"

بالتوفيق

DATA_BASE.accdb

[الأمير هشام]

الأستاذ الفاضل رمهان السلام عليكم 

مشكور على مجهودك المتميز و الذى أستفدت منه كثيرا لكن الطريقة التى أستخدمتها يعيبها انها لا تتوقف عند آخر سجل و يمكن مع الإستمرار فى الضغط على زر ابدأ يتم تسجيل سجلات جديده 

فلا يتوقف الإجراء عند الإنتهاء من جميع السجلات الموجوده هل يمكن تطوير المثال ليتوقف عند اخر سجل  بالمقرر الذى تم اختياره  

تقبل تقديرى و احترامى

 

[رمهان]

اوك .. تقدر تضيف كود الارجاع لاول سجل في اخر الكود علشان لو ضغط مره ثانيه يكون المؤشر واقف عند الاول ويعيد نفس السجلات

Docmd.gotorecoed ,,acfirst

[الأمير هشام]

الأستاذ الفاضل رمهان السلام عليكم 

مشكور على إهتمام حضرتك و على ما تفضلت به من افكار  و قد قمت بتنفيذ ما تفضلت به سيادتكم و الكود الأن يعمل بشكل ممتاز 

و لى فكره بجانب ما تفضلت به سيادتكم و هوعمل كود حذف بإستخدام أس كيو إل لحذف السجلات الزائده كالتالى 

Dim i, tabs
DoCmd.SetWarnings 0

If (Val([Text20]) > Val([Text25])) Then
[Text20] = Val([Text25])
End If
   For i = 1 To Text20
        If Me.Status = "منسحب" Then
         i = i - 1
        End If
    Me.Room = Me.[Combobox12]
    DoCmd.GoToRecord , , acNext
   Next
   tabs = "DELETE Main_data.Student_name  FROM Main_data WHERE (((Main_data.Student_name) Is Null));"
DoCmd.RunSQL tabs

موفور الشكر لسيادتكم 

 

[رمهان]

@الأمير هشام

لم افهم المطلوب

[الأمير هشام]

الزميل الفاضل رمهان السلام عليكم

قصدت أن أضيف فكرة جديدة لما تفضلت به سيادتكم  لمشكلة إضافة سجلات جديدة بعد تعديل كافة السجلات  فى الجدول من خلال عمل إستعلام لح>ف السجلات الزيادة

دمت بود