ابوخليل

Private Sub VIP4_Click() On Error GoTo Err_VIP4_Click Beep If MsgBox("هل تريد الحفظ ؟؟", _ vbQuestion + vbYesNo, _ "تنبيه") = vbYes Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.OpenForm "ACSSES_ADDUSER" else undo DoCmd.CancelEvent exit sub end if Exit_VIP4_Click: Exit Sub Err_VIP4_Click: Resume Exit_VIP4_Click End Sub

فعلا هو موجود بعد عرض التقرير انقر بزر الفأرة الأيمن ستظهر لك قائمة تصدير اكسل / وورد / pdf FinancialPrg11.rar

السبب : في مصدر بيانات حقلي التاريخ في التقرير .. لم يتم تعديلها الى النموذج الجديد .. لاني عملت نسخ لصق وغفلت عن تعديل المصدر على كل حال رب ضارة نافعة .. عملت لك ضابط على جميع النماذج التي تحتوي على حقلي تاريخ التصفية .. بحيث لا يمكن كتابة تاريخ النهاية مادام تاريخ البداية فارغ FinancialPrg10.rar

تفضل FinancialPrg9.rar

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

لم تعلق على الحل المرفق !! ......... ولم تبين الضوابط في الاقتباس اعلاه

عليكم السلام طلبك غير دقيق .. اقصد ان البحث غير دقيق .. لانه يمكن وجود الصنف نفسه في اكثر من مكان ومع اكثر من نوع ( فأي منها تريد تكراره ) فاهمني ؟ تم التعديل حسب المطلوب التوريد2.rar

لا يمكن .. لان العملية جمع سجلات وكل سجل يحمل تاريخ مختلف علما ان التاريخ يظهر في اعلى التقرير : من فترة كذا الى فترة كذا سأحاول تحقيق طلبك ... اتمنى اني اتمكن من ذلك

اوفيس 10 .. 32 بت يعمل

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

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

ارفعي المرفق الاخير بعد ادخال بيانات كافية (تقييمات ) لاكثر من موظف ولاكثر من شهر

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

عليكم السلام ورحمة الله وبركاته لا يمكننا تنفيذ الاجراء من النموذج نفسه .. فالتسميات لا يمكن تغييرها الا من عرض التصميم من خارج النموذج يمكن التغيير جرب ضع هذا الاجراء في نموذج آخر .. ونفذ Private Sub Com1_Click() DoCmd.OpenForm "form1", acDesign, , , acFormEdit, acHidden Dim ctl As Control Dim i As Integer i = 0 For Each ctl In Forms!form1.Controls If ctl.ControlType = acCommandButton Then If Left(ctl.Name, 7) = "Command" Then i = i + 1 ctl.Name = "foksh" & i End If End If Next ctl End Sub

تفضل يا دكتور تم الغاء شرط الصنف Me.Refresh Dim i As Integer i = Nz(DCount("*", "Query1"), 0) If i > 0 Then If i = 1 Then Me.k = 1 Else Me.k = i End If End If التوريد3.rar

السلام عليكم مشاركة معكم احبتي حيث كنت اعمل على المثال اولا : اخي الحلبي يفضل ان يكون النموذج ادخال بيانات وليس عرض .. وهذا الذي عملته لك وافضل من ذلك ان يكون النموذج غير منضم ويتم ادراج البيانات في الجدول من خلال الكود .. من اجل زيادة الضبط .. وعدم اتاحة حدوث اي خطأ عند ادخال البيانات وعلى كل حال خرجت بالنتيجة التالية : Dim i As Integer Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT main.* " & _ "FROM main " & _ "WHERE main.nume='" & Me.nume.Value & "' " & _ "AND main.bookingdate=#" & Me.bookingdate.Value & "# " & _ "AND main.typtest='" & Me.typtest.Value & "' ") rs.MoveLast rs.MoveFirst For i = 1 To rs.RecordCount If i > 0 Then If i = 1 Then Me.k = 1 Else Me.k = i End If End If rs.MoveNext Next i Set rs = Nothing التوريد2.rar

تفضل على هذا الطلب نحن بحاجة الى نموذج وتقرير منفصلين والتصفية تتم على اسم الحساب فقط ... وسيندرج تحت كل حساب انواعه واصنافه تم اضافة زر جديد في قائمة التقارير باسم "" مجاميع "" FinancialPrg8.rar

حساب 1 النوع الأول الصنف الأول ( سطر ) حساب 1 النوع الأول الصنف الثاني ( سطر ) حساب 1 النوع الأول الصنف الثالث ( سطر ) حساب 1 النوع الأول الصنف الخامس ( سطر ) النتيجة ستظهر في 4 اسطر

المرفق اكسل لم يوصل لي ما تفكر به الآن عندك حسابات كثيرة وكل واحد من هذه الحسابات له انواع كثيرة وايضا تحت هذه الانواع يندرج اصناف كثيرة في الفورم يتم التصفية حسب هذه البنود الثلاثة ... فلو اخترنا التصفية تتم على الصنف الأول تظهر النتيجة لجميع سجلات الصنف الأول .. بغض النظر عن اسم او نوع الحساب ومثل ذلك لو تمت التصفية على نوع محدد سيظهر هذا النوع فقط ولكن بحسابات واصناف مختلفة ...................... وانت تريد مجاميع ؟؟ لنفرض اننا قمنا بتصفية الصنف1 ... كما هو معلوم هذا الصنف موجود ضمن حسابات متعددة وكذلك انواع متعددة ( فإذا اردنا جمع الصنف1 يلزم الغاء اسم الحساب ونوعه من الظهور ) وينطبق هذا على النوع ..تماما اما لو اردت الجمع كما في مرفق اكسل فاعلم انه سوف يتكرر الحساب الواحد بعدد الانواع والاصناف لان الحساب الواحد تحته 14 نوع او اكثر وكذلك كل نوع تحته 12 صنف او اكثر بمعنى احتمال الحساب رقم1 سيتم عرضه في 168 سجل وهذا حاصل ضرب 14 في 12 ................. اما لو تم التجميع بمعلومية اسم الحساب والنوع سيتم عرضه في 14 سجل ولو تم التجميع بمعلومية اسم الحساب فقط فسيتم العرض في سجل واحد فقط

هذا موجود فعلا في البرنامج تقرير يتم تصفية البيانات ( مجاميع وارصدة) حسب الاختيار .. frm_Reports ما هي ملاحظاتك عليه ؟

لم افهم لو وضحت لي الشكل النهائي للتقرير على اكسل او صورة

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

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

تفضل FinancialPrg7.rar

قيد النظر ...