مساعدة في تصفير أعمدة

تقضل ولعله ماتريد

Private Sub Command316_Click()
DoCmd.GoToRecord , , acFirst
Me.Painting = False
For i = 1 To Me.RecordsetClone.RecordCount - 1
Me.Abs = 0: Me.Abs_N = 0
DoCmd.GoToRecord , , acNext
Next i
DoCmd.GoToRecord , , acFirst
Me.Painting = True
End Sub

وهذا كود اخر وبجملة ال sql

Private Sub Command316_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "update MP_Que set [abs]=0,[abs_n]=0 where monthes=" & TempVars(0)
DoCmd.SetWarnings False
Me.Requery
End Sub

وهناك ملاحظة بتسمية العمود abs  حيث محجوز ولاسم دالة

بالتوفيق

Abs يعني اسم الحقل الخاص بالغياب

ما عرفت انه فيه دالة بهذه التسمية.

عموماً

عاجز عن الشكر أخي Ramhan واعتذر مرة أخرى على الازعاج. لكني مبتديء في vba وعندي ولع شديد بها، ولم أجد طريقه لتعلمها احترافيا. إلا ما أجد من الكتب الإلكترونية.

شاكر جداً مره أخرى وبارك الله فيك وفي المنتدى الطيب.