اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by رمهان,

الردود الموصى بها

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

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

DATA_BASE.accdb

رابط هذا التعليق
شارك

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

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

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

DATA_BASE.accdb

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

بالتوفيق

DATA_BASE.accdb

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

رابط هذا التعليق
شارك

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

Docmd.gotorecoed ,,acfirst

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

دمت بود

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information