طاهر اوفيسنا قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 السلام عليكم إخواني أرجو مساعدة بخصوص تعميم توزيع المبلغ TheDiscount في النموذج لباقي السجلات اي لما اكتب المبلغ يدويا في السجل الأول يتم التوزيع آليا لكافة السجلات في النموذج الفرعي FrmOtherDiscount_sub مثلا في السطر الأول نكتب المبلغ 1000 ويظهر MsgBox"هل تريد تثبيت التاريخ " نعم او لا ثم MsgBox اخر"هل تريد كتابة الملاحظة " نعم او لا يكمل التوزيع على كافة السجلات آليــــــــا هذا بالنسبة للسطر الأول وكذالك للسطر الثاني والثالث . . . . . الخ حسب الصورة Discount.rar
ابوخليل قام بنشر مايو 16, 2014 قام بنشر مايو 16, 2014 توزيع ؟ يظهر لي انك تريد تعميم المبلغ وليس التوزيع بمعنى انك تريد تكتب قيمة القسط الشهري للجميع بضغطة زر بدلا من كتابتها واحد واحد هل هذا صحيح ؟
طاهر اوفيسنا قام بنشر مايو 17, 2014 الكاتب قام بنشر مايو 17, 2014 توزيع ؟ يظهر لي انك تريد تعميم المبلغ وليس التوزيع بمعنى انك تريد تكتب قيمة القسط الشهري للجميع بضغطة زر بدلا من كتابتها واحد واحد هل هذا صحيح ؟ نعم استاذ أبو خليل منتظر مساعدتك
ابوخليل قام بنشر مايو 17, 2014 قام بنشر مايو 17, 2014 اذا يلزم ان تبقي النموذج الرئيسي والفرعي على وضعهما الحالي للادخالات الفردية وللعرض وتحتاج الى نموذج جديد وجدول مؤقت للادخال الجماعي ما رأيك ؟
طاهر اوفيسنا قام بنشر مايو 18, 2014 الكاتب قام بنشر مايو 18, 2014 اذا يلزم ان تبقي النموذج الرئيسي والفرعي على وضعهما الحالي للادخالات الفردية وللعرض وتحتاج الى نموذج جديد وجدول مؤقت للادخال الجماعي ما رأيك ؟ شكرا لك على الإهتمام استاذ أبو خليل الي تراه مفيد ويوصل نفس النتيجة وافيني به نراه منتظر تعديلك
ابوخليل قام بنشر مايو 18, 2014 قام بنشر مايو 18, 2014 تم التعديل باضافة : 1- جدول مؤقت 2- استعلام 3- نموذج لاجراء العملية التغييرات التي حدثت على برنامجك : فقط تعديل في مفاتيح جدول OtherDiscount من اجل ضبط التكرار عند الاضافة Discount.rar
طاهر اوفيسنا قام بنشر مايو 18, 2014 الكاتب قام بنشر مايو 18, 2014 شكرا لك استاذ أبو خليل على الفكرة الرائعة نعم هو المطلوب ولكن فيه ملاحظة : أضفت في الإستعلام كما في الصورة فأصبحت في مربع نص ملاحظات تكتب "خصم ..................... لشهر .......2014 " إلا للسجل الأول فقط وبقية السجلات لا تكتب ماسر ذالك ؟
طاهر اوفيسنا قام بنشر مايو 18, 2014 الكاتب قام بنشر مايو 18, 2014 (معدل) لقد وجدت الفكرة في الوحدة النمطية أستاذ هل هذا صحيح ؟ 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 تم تعديل مايو 18, 2014 بواسطه كريمو2
طاهر اوفيسنا قام بنشر يوليو 3, 2014 الكاتب قام بنشر يوليو 3, 2014 السلام عليكم إخواني رمضان كريم رجاءا مساعدة بخصوص جمع مبالغ التقرير rtpOtherDiscount وعدم تكرار الأسماء مثلا : بشيـــــــــــــر 2000.00 العروســــي 2000.00 حشيفــــــــة 2000.00 وهكذا Discount.rar
علي المصري قام بنشر يوليو 9, 2014 قام بنشر يوليو 9, 2014 كل عام انتم بخير تفضل اخي الكريم لعله يكون المطلوب Discount.rar
طاهر اوفيسنا قام بنشر يوليو 9, 2014 الكاتب قام بنشر يوليو 9, 2014 شكرا اخي علي وهو كذالك دمت بالف خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.