mourad2012 قام بنشر أكتوبر 2, 2020 مشاركة قام بنشر أكتوبر 2, 2020 السلام عليكم ورحمة الله وبركاته كيف حالكم عساكم بخير وبصحة جيدة احتاج الى تحديث الحقل (chkdays) في الجدول (NumbersTbl) سجل بعد سجل اي واحد نعم والثاني لا بضغطة زر واحدة شكرا لكم جميعا مرفق قاعدة تجريبية لتوضيح المطلوب TestDB.accdb رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أكتوبر 2, 2020 مشاركة قام بنشر أكتوبر 2, 2020 (معدل) وعليكم السلام ورحمة الله وبركاته تصفير جميع السجلات ( وضع صفر لحقل 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 بواسطه محمد أبوعبدالله 2 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة kha9009lid قام بنشر أكتوبر 2, 2020 أفضل إجابة مشاركة قام بنشر أكتوبر 2, 2020 (معدل) بعد اذن اخي محمد كود مختصر ممكن عن طريق كود استعلام على اساس الرقم الفردي يبقى صفر والرقم الزوجي اي ما يقبل القسمة على 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 ملف خاطى 1 1 رابط هذا التعليق شارك More sharing options...
mourad2012 قام بنشر أكتوبر 2, 2020 الكاتب مشاركة قام بنشر أكتوبر 2, 2020 اشكركم على حسن تعاملكم وسرعة ردكم جزاكم الله خيرا ونفع بكم وجعل خالص عملكم في ميزان حسناتكم احسنتم تمت الاجابة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان