ابوخليل

الآن البيانات في الجدول هكذا : اريدها تظهر في التقرير هكذا :

شكرا لمرورك اخي جعفر انا لا اريد الجمع .. اريد ان اعرض القيم تحت بعض كل قيمة في سجل .. داخل الخلية نفسها فلو انني عرضتها كما هي في الجدول لاحتجت الى 8 حقول (اعمدة) بجانب بعض فالفكرة ان جميع الأعمدة نريد ان يتم عرضها من خلال خلية واحدة

السلام عليكم احبتي ورحمة الله وبركاته في المرفق جدول وتقرير الجدول يشتمل على رقم معرف وثلاث حقول أخرى رقمية مختلفة التقرير يشتمل على حقل المعرف وحقل للقيمة المطلوب اظهار قيم الحقول في التقرير بأسهل طريقة ممكنة لا اريد استخدام استعلام التوحيد لان الحقول كثيرة جدا في التقرير Db3.mdb

بحثت في قوقل ولعلي وصلت الى فهم الطريقة من خلال هذا الرابط https://www.babelsoftco.com/ar/articles/value-added-tax هذه صورة للايضاح

السلام عليكم احبتي ورحمة الله وبركاته سؤال خاص لاخواني واحبابي المحاسبين اريد الناتج النهائي ربح/خسارة للمجاميع التالية بمعنى اني اريد الطريقة القانونية للتعامل مع الضريبة من الجهتين ( شراء/بيع) مجمل المشتريات والمصروفات = 350 ضريبة مشتريات = 30 مجمل المبيعات = 400 ضريبة مبيعات = 40 صافي المبيعات = 360 ربح/خسارة =

جميل جدا استاذنا د. ابا مهاب اشياء صغيرة في حجمها وجميلة ومفيدة في قيمتها

For i = 1 To k Rs.Edit If Rs!planNo < 566 Then Rs!planNo = Rs!planNo - 1 ElseIf Rs!planNo > 566 And Rs!planNo < 822 Then Rs!planNo = Rs!planNo - 2 ElseIf Rs!planNo > 822 And Rs!planNo < 877 Then Rs!planNo = Rs!planNo - 3 ElseIf Rs!planNo > 877 And Rs!planNo < 972 Then Rs!planNo = Rs!planNo - 4 ElseIf Rs!planNo > 972 And Rs!planNo < 1788 Then Rs!planNo = Rs!planNo - 5 ElseIf Rs!planNo > 1788 Then Rs!planNo = Rs!planNo - 6 End If Rs.Update Rs.MoveNext Next i تمام اخي حسام انت فهمت الفكرة والمهم فيها هو فرق الزيادة التصاعدية ، وهذا هو الحل النموذجي شكرا جزيلا لك

ملحوظة : لا اريد ادراج الارقام المفقود في سجلات جديدة وانما اريد الاستبدال يعني : التصحيح

السلام عليكم احبتي في المرفق جدول يحتوي على حقل رقمي مكرر ، وقد سقطت بعض الارقام وايضا مرفق صورة بالارقام المفقودة الساقطة المطلوب ادراج هذه الارقام في مكانها وتعديل ما بعدها مثلا اول رقم مفقود هو 422 حيث ستجد في الجدول الرقم 421 ويليه الرقم 423 فالمطلوب هو تعديل الرقم 423 ليصبح 422 ثم الذي بعده هو 424 يتم تعديله ليصبح 423 ... وهكذا علما ان كثير من هذه الارقام مكررة لا يهم التكرار ستجد الرقم 424 مكرر اكثر من مرة فالمطلوب جميع الارقام 424 تصبح 423 وهكذا لجميع الارقام يمكن ان نعملها يدويا .. ولكن العمل اليدوي معرض للخطأ Copy.accdb

عليكم السلام انظر الصورة يمكنك ترتيب الانتقال بواسطة اعطاء الرقم للحقل حسب الترتيب الذي تحب علما ان البداية من رقم صفر

صحيح ولاحظ اننا مجبرين على اتباع هذه الخطوات اليدوية عندما ندرج جدولا جديدا في القاعدة الخلفية ولكن معالج التقسيم يعملها لي بضغطة زر

شكرا لك استاذي الكريم

اين اجد تقسيم قاعدة البيانات في الاصدار 2010 ؟؟

اسم مسفر يعني الشعاع والضوء .. من الاسفار وهو طلوع الصبح بعد الظلام الف شكر لك ولجميع من شارك من احبتي حسب توجيهك عزيزي مسفر : جعلت الهوامش = صفر ..... اصبح كل شيء تمام .. زالت المشكلة

سوف اجرب هذا ولكن كيف يفتح عندكم وانا لا

الخاصية موجودة .. لا اتكلم في هذا مشكلتي عندما اختار خاصية منبثق لا يمكن فتح التقرير

هذا يعني ان المشكلة عندي .. اي في جهازي المشكلة انه مايفتح يضل يدووور واخرا يجب علي اغلاق اكسس

الله يسعد ايامك تفضل abcd.accdb

الف شكر لك حبيبي ابو النور انا اعمل على 2010 لا ادري اين المشكلة .. اتمنى من يعمل على 2010 ان يفيدني وإلا انا سوف اكون مضطر للرجوع الى الى الحبيب الأولي ..

السلام عليكم احبتي قررت في ما تبقى من ايامي ان اواكب التطور وارتقي لما هو احدث من اصدار 2003 عملت برنامج محاسبي لابني الذي يعمل في الرياض على اصدار 2010 ولكن عندما وصلت الى النهاية وهي التقارير تفاجئت بان التقارير لا يمكن ان تقبل خاصية منبثق .. لا اعلم هل الخلل من جهازي؟ احببت ان استنير بخبراتكم دمتم سالمين احبتي abcd.accdb

عيدكم مبارك تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال

تحفة جميلة فريدة .. شكرا ابا غفران ومع فرحي بالتحفة فأنا اشد اعجابا بالحوار بين القامات العلمية وتجسيدهم للامانة العلمية

يلزم التحايل على السجلات وتحديد الترتيب عند فتح النموذج المنبثق Dim j As Integer Private Sub Command3_Click() DoCmd.GoToRecord , , acFirst DoCmd.OpenForm "form2" ifrm = 1 j = 1 End Sub Private Sub Form_Timer() On Error GoTo ErrHandler Dim i As Integer, R As Integer Dim rs As Recordset Set rs = Me.RecordsetClone R = rs.RecordCount If j = 1 Then DoCmd.GoToRecord , , acFirst j = 0 ElseIf ifrm = 1 And j = 0 Then DoCmd.GoToRecord , , acNext End If For i = 1 To R - 1 If ifrm = 1 Then DoCmd.OpenForm "form2" ifrm = 0 End If Next ErrHandler: If Err.Number = 2105 Then ifrm = 0: Exit Sub End Sub help3.mdb

الفكرة تحفة يابو ابراهيم سلمت أناملك لاحظت انه عند ادراج بيانات جديدة او تعديل الحقل yn لا تستجيب الصورة للحدث اعتقد يحتاج الحقل yn بعد التحديث الى تنشيط الفورم بــ Refresh أو نحو ذلك

انا متأكد انه يمكن تنفيذ ما تفكر به بطريقة اتقن واكثر مرونة ، وسبق طلبت منك شرح مطلوبك او بمعنى آخر فكرتك بشكل مفصل . وعلى كل حال وبرغم صعوبة تقسيم عمل كود بين نموذجين كي يعملا آليا .. تفضل تم التعديل حسب طلبك help2.mdb