إدخال أكثر من سجل في نفس الوقت مع تغيير التاريخ فقط

[shod90]

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

عندي برنامج إدخال بيانات للموظفين 

فكرة البرنامج ان الموظف بيدخل كل اللي أشتغل فيه علي البرنامج

عايز أعمل تعديل صغير بحيث فلنفترض ان الموظف عندة نفس الشغل مكرر 3 أيام

بدل أما يدخل نفس المدخلات 3 مرات مع إخلاف التاريخ

كنت عايز أعمل حقلين الأول "تاريخ من " و الثاني "تاريخ الي" ولو كان شغال أكثر من يوم في نفس الشغل 

المفروض قاعدة البيانات تدخل ال 3 سجلات مع إختلاف التاريخ فقط .. أتمني ان اكون وصلت الفكرة لكي يتم مساعدتي :) 

[ابوخليل]

فيه طريقة سهلة تؤدي الغرض

قم بادراج زر في النموذج  سيفتح المعالج  مربع حوار  نوع  الحدث المطلوب  

اختر  /عمليات السجلات / تكرار سجل

فلما تكتب سجل في النموذج  ، انقر الزر فسيقوم بتكراره  ، وكل ما عليك هو تغيير التاريخ

[shod90]

تم عملا اللازم عن طريق هذا الكود

sub btnInsertDates_click()

dim vDate

dim sSql as string

docmd.setwarnings false

vDate = txtStartDate

while vDate <= txtEndDate

sSql = "insert into table ([Project ID], [Work items],Description,Date,Hours) values (" & txtID & ",'" & txtWork & "',#" & vDate & "#," & txtHrs & ")"

docmd.runSql

sSql vDate = DateAdd("d",1,vDate)

wend

docmd.setwarnings true

end sub