تحديث حقل في جدول سجل بعد سجل

[mourad2012]

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

كيف حالكم عساكم بخير وبصحة جيدة

احتاج الى تحديث الحقل (chkdays) 

في الجدول (NumbersTbl)

 

سجل بعد سجل

 

اي واحد نعم والثاني لا بضغطة زر واحدة

 

شكرا لكم جميعا

مرفق قاعدة تجريبية لتوضيح المطلوب

 

TestDB.accdb

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

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

تصفير جميع السجلات ( وضع صفر لحقل chkdays )

       DoCmd.SetWarnings False
       DoCmd.RunSQL "UPDATE tblNumbers SET tblNumbers.chkdays = 0;"
       DoCmd.SetWarnings True

ثم نحدد الارقام الفردية لوضع قيمة -1 لها

mySQL = "Select * From tblNumbers WHERE [MyNumber] MOD 2 = 1"

تنفيذ الامر

            For i = 1 To rst.RecordCount
                rst.Edit
                rst![chkdays] = -1
                rst.Update
                rst.MoveNext
            Next

الكود كامل

       DoCmd.SetWarnings False
       DoCmd.RunSQL "UPDATE tblNumbers SET tblNumbers.chkdays = 0;"
       DoCmd.SetWarnings True
       
       Dim mySQL As String
       Dim rst As Recordset
       Dim i As Double
              
        mySQL = "Select * From tblNumbers WHERE [MyNumber] MOD 2 = 1"
        
        Set rst = CurrentDb.OpenRecordset(mySQL)
        rst.MoveLast: rst.MoveFirst
        

            For i = 1 To rst.RecordCount
                rst.Edit
                rst![chkdays] = -1
                rst.Update
                rst.MoveNext
            Next

TestDB.rar

تحياتي

تم تعديل أكتوبر 2, 2020 بواسطه محمد أبوعبدالله

[kha9009lid]

بعد اذن اخي محمد كود مختصر

ممكن عن طريق كود استعلام على اساس الرقم الفردي يبقى صفر والرقم الزوجي اي ما يقبل القسمة على 2 يحدث ابى 1

DoCmd.RunSQL "UPDATE tblNumbers SET tblNumbers.chkdays = 1 " & vbCrLf & _
"WHERE (((IIf([mynumber] Mod 2=0,""Even"",""Odd""))=""Even""));"

للتصفير

DoCmd.RunSQL "UPDATE tblNumbers SET tblNumbers.chkdays = 0;"

 

 

TestDB.accdb

تم تعديل أكتوبر 2, 2020 بواسطه kha9009lid
ملف خاطى

[mourad2012]

اشكركم على حسن تعاملكم وسرعة ردكم

جزاكم الله خيرا ونفع بكم وجعل خالص عملكم في ميزان حسناتكم

احسنتم 

تمت الاجابة