تحديث جميع سجلات الجدول عند بلوغ تاريخ محدد مثلا 01 جوان من كل سنة

[kay1982]

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

سؤالي يتمثل في التالي:

أريد أن يتم يتم تحديث جميع سجلات الجدول عند بلوغ تاريخ محدد مثلا 01 جوان من كل سنة

إضافة 50 إذا كان الموظف تصنيفه يساوي أو يفوق 12

إضافة 40 إذا كان الموظف تصنيفه أقل من 12

Udpate Total.rar

[Shivan Rekany]

اهلا بك في منتداك

اتفضل استخدمت هذا الكود

Private Sub Command16_Click()
    Dim Sql As String
        Sql = "UPDATE Table1 SET Table1.Holiday = IIf([Cat]<12,[Holiday]+40,[Holiday]+50);"
    DoCmd.SetWarnings (warningsoff)
        DoCmd.RunSQL (Sql)
    DoCmd.SetWarnings (warningson)
        Me.Refresh
End Sub

واليك المرفق بعد تعديل

Udpate Total.rar

م.2021.شفان ريكاني

[kay1982]

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

الشكر موصول لك أخي، بارك الله فيكم على الرد السريع، وجعلها الله في ميزان حسناتك

رمضانكم كريم، وتقبل الله منا ومنكم الصياام والقياام