ابوخليل

المشكلة ان الزر رقم 4 يقابله الرقم 52 وليس 100 استبدل الرقم 100 الموجود بالكود بالرقم 52 وإليك هدية ارقام لوحة المفاتيح ارقام لوحة المفاتيحKey ASCII Values.rar

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

تم التنقيح في 1/ رمضان /1438 احبتي : منهجي في التنقيح هو الابقاء على المادة العلمية فقط

تم تنقيح الموضوع 1/رمضان/1438 احبتي : منهجي في التنقيح هو الابقاء على المادة العلمية فقط

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

هو كودك الذي ارفقته لم اغيره فقط اضفت في آخره : "Moslem_code=2" في سطر أو "Moslem_code=1" في السطر الثاني

وعليكم السلام تفضل التعديل على الكود الموجود ضع كل سطر في حقل في الاستعلام يمكنك بمثل هذا التعديل تستخرج الغياب من الذكور والاناث ايضا غ_دين_مسلم: Val(Nz(DCount("Male_code";"شيت رئيسي";" dn_2='" & "غ" & "'" & "and dept_code=" & [dept_code] & "and school_code=" & [school_code] & "and Moslem_code=1");0)) غ_دين_مسيحي: Val(Nz(DCount("Male_code";"شيت رئيسي";" dn_2='" & "غ" & "'" & "and dept_code=" & [dept_code] & "and school_code=" & [school_code] & "and Moslem_code=2");0)) عد غياب المواد3.rar

غير صحيح ، فالمنتدى مليء بمثل هذه المواضيع اعرض الروابط التي بحثت عنها داخل المنتدى

غير صحيح .. كان الاولى المتابعة وطرح الاستفسار هناك

الصلاحية الآن تخص المستخدم فقط ، حيث ستطبق في الواجهة التي يعمل عليها بعيدا عن الجداول تجربة2.rar

رجاء احبتي سواء السائل او المجيب يجب التقيد بقوانين المنتدى وفتح موضوع جديد لكل معلومة جديدة

اللهم بلغنا رمضان .. وأعنا على صيامه وقيامه كل عام وانتم بخير

انت من يضع المثال حيث اكوادك موجودة , ولا يحضرني شيء الآن احرص ان يكون على صيغة mdb

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

انظري الروابط المشابهة في الاسفل

وعليكم السلام نعم يوجد .. عرف القيمة واجعلها عامة في رأس وحدة نمطية عامة (مديول ) الصق هذه Public uuu وتنادي القيمة هكذا : if uuu يساوي كذا ... هذا كل شيء

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

اشرح الفكرة فقد نساعدك على تنفيذها بطريقة أخرى

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

انا قرأت ملاحظات الاستاذ جعفر قبل ان اضع الحل والدالة val سقطت سهوا لا حظوا اني كتبتها في اجزاء اخرى من الكود هذه حقيقة .. انا اتكلم عن -1 ( اذا كان Dmax = 2017 ) فـ -1 = 2016 لو فرضنا ان احدهم له تقييمين 2017 و 2015 فلن يظهر تقييم 2015 وسيعطي الكود خطأ

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

ما شاء الله .. دقة ومتابعة وكأن العمل يخصك , نعم مر بخاطري -1 هذا لذا قلت تطبيق لفكرة الاستاذ جعفر فكرت في Dlast ان كنا سنتعامل مع السجلات وليس القيم ولكني لم اجرب لذا تظهر هنا جليا فائدة الترقيم التلقائي كمفاتيح للجداول اما مسألة تقرير واحد فلم يخطر ببالي ,, يعني تحتاج شرط . صح ؟

السلام عليكم قواعد المشاركة فى الموقع و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف اخواني الكرام ... تسببون لنا الحرج في تطبيق القوانين بكل اسف مضطرين لقفل الموضوع

مشاركة قمت بعمل هذه الدوارة لتطبيق فكرة استاذنا جعفر Dim db As DAO.Database Dim rs As DAO.Recordset Dim j, i, ii, x As Integer Dim r, rr As String Set db = CurrentDb Set rs = db.OpenRecordset("emp") rs.MoveLast rs.MoveFirst For j = 1 To rs.RecordCount x = rs!emp_id i = DMax("rep_year", "report", "emp_id=" & x) ii = DMax("rep_year", "report", "emp_id=" & x) - 1 r = DLookup("rep", "report", "val(rep_year) =" & i & " and emp_id=" & x) rr = DLookup("rep", "report", "val(rep_year) =" & ii & " and emp_id=" & x) rs.Edit rs!rep_last = r rs!rep_befor = rr rs.Update rs.MoveNext Next j MsgBox "تم" Set db = Nothing Set rs = Nothing تحديث حسب سجل وما قبله.rar

شكرا لك اجتمع الشرح النظري مع التطبيق العملي اخي السائل رعاك الله .. انا اعمل على نسخة عربية ولكن ستجد ما ذكرت في الخصائص في لسان التبويب الثالث اجعل القيمة : Pop-up = yes