السلام عليكم
Private Sub CmdADD_Click()
Dim I As Integer
DoCmd.GoToRecord , , acFirst
For I = 1 To Forms![frmEmployee]![Days]
Me.EmployeeID = Forms![frmEmployee]![EmployeeID]
Me.strDate = DateAdd("d", I - 1, Forms![frmEmployee]![startDate])
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requery
End Sub
هذا الكود من الاخت الغالية زهرة ...يقوم هذا الكود بعمل الاتى
عندما اقوم بكتابة تاريخ معين فى تكست بكس ثم عدد الايام فى تكست اخر ثم بعد ذلك عند الضغط على زر الامر تسرد التواريخ بنفس عدد الايام بداية من التاريخ الذى تم كتابتة
مااريدة هو ان يتعامل هذا الكود بعد التعديل مع الارقام
اى انه عندما اقوم بكتابة رقم معين مثلا (5) معين فى تكست بكس ثم عدد الارقام مثلا(15) فى تكست اخر ثم بعد ذلك عند الضغط على زر الامر تسرد الارقام بنفس عدد الارقام بداية من الرقم(5) الذى تم كتابتة اى يضاف 6-7-8-9-10-وهكذا خمسة عشر مرة اوحسب العدد الذى احددة
تحياتى للجميع
والسلام عليكم
