طاهر اوفيسنا

أتمنى ان هذا مطلوبك ملاحظة ضفت لك إستعلام وبه هذا Expr1: Year(Date())-Year([BIR_DATE]) B60: DateAdd("yyyy";60;[BIR_DATE]) kri_db2.rar

لقد وجدت الفكرة في الوحدة النمطية أستاذ هل هذا صحيح ؟ Private Sub أمر8_Click() Dim rst As DAO.Recordset Dim lng3, lng4, lng5, lng2 As String Set rst = CurrentDb.OpenRecordset("QUp") On Error Resume Next rst.MoveFirst lng3 = rst.Fields(3) lng4 = rst.Fields(4) lng5 = rst.Fields(5) lng2 = rst.Fields(2) While rst.EOF = False rst.Edit rst.Fields(3) = lng3 rst.Fields(4) = lng4 rst.Fields(5) = lng5 rst.Fields(2) = lng2 rst.Update rst.MoveNext Wend rst.Close Set rst = Nothing DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO OtherDiscount ( EmployeeID, Discount_Date, TheDiscount, Obsérvation ) " & vbCrLf & _ "SELECT QUp.EmployeeID, QUp.Discount_Date, QUp.TheDiscount, QUp.Obsérvation " & vbCrLf & _ "FROM QUp;" DoCmd.RunSQL "DELETE tmp.* FROM tmp" DoCmd.SetWarnings True Me.Requery End Sub

شكرا لك استاذ أبو خليل على الفكرة الرائعة نعم هو المطلوب ولكن فيه ملاحظة : أضفت في الإستعلام كما في الصورة فأصبحت في مربع نص ملاحظات تكتب "خصم ..................... لشهر .......2014 " إلا للسجل الأول فقط وبقية السجلات لا تكتب ماسر ذالك ؟

شكرا لك على الإهتمام استاذ أبو خليل الي تراه مفيد ويوصل نفس النتيجة وافيني به نراه منتظر تعديلك

نعم استاذ أبو خليل منتظر مساعدتك

السلام عليكم إخواني أرجو مساعدة بخصوص تعميم توزيع المبلغ TheDiscount في النموذج لباقي السجلات اي لما اكتب المبلغ يدويا في السجل الأول يتم التوزيع آليا لكافة السجلات في النموذج الفرعي FrmOtherDiscount_sub مثلا في السطر الأول نكتب المبلغ 1000 ويظهر MsgBox"هل تريد تثبيت التاريخ " نعم او لا ثم MsgBox اخر"هل تريد كتابة الملاحظة " نعم او لا يكمل التوزيع على كافة السجلات آليــــــــا هذا بالنسبة للسطر الأول وكذالك للسطر الثاني والثالث . . . . . الخ حسب الصورة Discount.rar

اين انتم ياخبراء !!!!!!!!!!!!

السلام عليكم إخوني حدث لي مؤخرا مشكل بجهاز الحاسوب وهو عدم فتح ملفات ورد بتنسيق 2003 كما في الصورة المرفقة ارجو المساعدة وشكرا