ابوخليل

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

تمام الفحص عن قرب يبين المشكلة مشكلتك في حقل Emp_No في جدول tblEmployeess هو الآن غير قابل للتكرار اجعله يقبل التكرار ولزيادة الضبط اجعل الحقول الثلاثة مفاتيح .. انظر التعديل الترحيل6.rar

بعد الاطلاع على الرابط اللي عملته انا هي نفسها رؤية الاستاذ جعفر بالضبط وانت طبعا لم تتابعه بل حاولت معه تطبيق فكرتك القائمة تقوم مقام النموذج ويمكن تخصيص القائمة حسب المستخدم السهولة والمرونة عند استخدام واجهة واحدة للبرنامج وعلى كل حال انا اعطيتك الفكرة التي تبحث عنها ( وهي التحكم بوقت حفظ البيانات) ويمكنك تطبيقها على برنامجك

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

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

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

قيد النظر ...

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

مطلوبك واضح ويبدوا يوجد مشكلة في المثال جراء التحويل الى mdb فضلا اعد ارفاق المثال الاصلي قبل التحويل

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

تفضل في حالة عدم وجود الرقم يفتح سجل جديد Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Emp_No] = " & [text1] If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Else DoCmd.GoToRecord , , acNewRec End If End Sub

تفضل اضفنا شرط وللعلم السجل يغني عن الاسم Dim i As Boolean i = Nz(DLookup("EmpID", "tblEmployeess", "[status]= forms!nam!status And [sdasda]= forms!nam!sdasda And [Emp_No]= forms!nam!Emp_No"), 0) If i = True Then MsgBox " مكرر !! لا يمكن ادخال الشخص والسنة والشهر" Exit Sub End If ويمكنك كما ذكرت لك في البداية ان تجعل الحقول في الجدول مفاتيح ونستغني عن هذه الاكواد

يا لطيف 7 شهور .. الحق انك مناضل تفضل : باعتبار اسم الحقل والذي نوعه رقمي في الجدول والذي تبحث عن طريقه اسمه id اعمل مربع نص غير منضم في النموذج واجعل اسمه text1 افتح على التصميم وفي حدث بعد التحديث لمربع النص المذكور الصق هذا الكود Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & Me![text1] If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub ان كان نوع الحقل في الجدول نصيا ستحتاج الى تغيير بسيط في الكود

تم التعديل وعمل المطلوب Dim i As Boolean i = Nz(DLookup("EmpID", "tblEmployeess", "[status]= forms!nam!status And [sdasda]= forms!nam!sdasda"), 0) If i = True Then MsgBox " مكرر !! لا يمكن ادخال السنة والشهر" Exit Sub End If الترحيل4.rar

تفضل DataUp2.rar

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

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

السبب واضح فانت تحذف سجل في جدول بجملة استعلام وفي نفس الوقت الفورم مرتبط به وايضا التركيز على هذا السجل داخل الفورم ومادام التركيز على السجل عند الالحاق : جرب الحذف بواسطة اكسس عن طريق الفورم بمثل هذا DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

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

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

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

السلام عليكم لو فرضنا انك ستطبع التقرير للشخص نفسه والبيانات نفسها مرة ثانية ؟ هل فهمت تساؤلي ؟ لان التقرير الموجود هو عبارة عن تعريف اسم ورقم وظيفة وصورة ، ومنطقيا امكانية طبعه مرة اخرى والسؤال الثاني : هل سيطبع للشخص اكثر من تقرير مستقبلا

فقط اجعل الحقول الثلاثة في جدول الارشيف مفاتيح اليوزر والشهر والسنة ومهما كررت عملية الترحيل فلن يتم الترحيل الا حسب الشرط تم التعديل الترحيل2.rar

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

السلام عليكم الحل ان تجعل حاصل الفرق داخل الاستعلام تفضل التعديل تكلفة2.rar