عبد الفتاح كيرة قام بنشر يونيو 4, 2018 مشاركة قام بنشر يونيو 4, 2018 السلام عليكم هذا الموضوع أصله هنا الكود Private Sub ÃãÑ11_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("q_New_Stu_Tawzee3") rs.MoveFirst Do Until rs.EOF On Error GoTo 1 For x = 0 To 5 For i = 1 To Me.tfasl If x = i Then GoTo skipeme rs.Edit rs!CurrFasl = i rs.Update rs.MoveNext skipeme: Next i Next x Loop Me.Requery Me.Refresh Set rs = Nothing Set db = Nothing 1: End Sub رابط هذا التعليق شارك More sharing options...
Amr Ashraf قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 جزاك الله خير 1 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يونيو 5, 2018 الكاتب مشاركة قام بنشر يونيو 5, 2018 4 ساعات مضت, Amr Ashraf said: جزاك الله خير بوركت أخى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان