jjafferr

لما الشرح يكون واضح ، الاجابة تكون دقيقة وسريعة تفضل . جعفر 751.9988.mdb.zip

وعليكم السلام رجاء ارفاق مثال على النتيجة المطلوبة من بياناتك. جعفر

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

السلام عليكم أخي وضاح رجاء تخبرني عن الخطوات علشان اوصل الى الذي تريد!! لعمل المطلوب ، اعمل استعلام يكون مصدر بيانات النموذج الفرعي AfwtIar ، وادخل فيه المعيار حسب اسم حقل البحث في النموذج الرئيسي ، وبعدها لما تُدخل معلومة في حقل البحث ، اجعل هذا الكود في حدث "بعد تحديث" حقل البحث: me.AfwtIar.requery كلامي كله على اساس ان حقل البحث في النموذج الرئيسي. جعفر

تفضل انت كنت عاكس استخدام IDStudent مع ID Private Sub Form_Open(Cancel As Integer) 'CurrentDb.Execute "INSERT INTO tbl2 (ID,[In],zdate ) " & _ "Select (ID, [Sum], zdate) " & _ "From Qry" CurrentDb.Execute "INSERT INTO tbl2 ( idstudent, [In], zdate ) SELECT ID, [Sum], zdate FROM Qry" 'or 'DoCmd.SetWarnings False ' DoCmd.RunSQL ("INSERT INTO tbl2 ( idstudent, [In], zdate ) SELECT ID, [Sum], zdate FROM Qry") 'DoCmd.SetWarnings tru End Sub جعفر

تفضل جعفر 745.1.db1.mdb.zip

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

وعليكم السلام المرفق يحل "اولا" ، اما اضافة موظف جديد فلا دخل له بالفرز ، انا قلت: . اي ان مصدر بيانات النوذج الفرعي به الفرز جاهز. على العموم ، انسى موضوع الفرز ، لأني برمجيا استطيع تضبيطه ، واعمل النموذج الفرعي بالطريقة التي تريدها ، ومرة ثانية ارفق برنامجك ، وعلى اساس تضبيطاتك ، انا اضبط الكود جعفر 746.3.OK.accdb.zip

تفضل ، وبدون استعلام بس رجاء لا تغير فرز النموذج الفرعي ، فهو يبدأ بآخر تاريخ. جعفر 746.2.OK .accdb.zip

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

وعليكم السلام تفضل . . . . . جعفر 749.قاعدة البيانات1.accdb.zip

الحل لسؤال الموضوع هو فرز وتسلسل التواريخ (والذي قمت بعمله في المرفق السابق ، حسب التاريخ الميلادي) ، ويجب ان اعمل شيء (سواء جدول خاص لتواريخ السنه الهجرية ، او وحدة نمطية) حتى استطيع فرز التاريخ الهجري!! وبعد النظر في جدولك : . سؤال: من المعروف ان حقل ID بصيغة الرقم التلقائي ، يعطي ارقام مسلسله للسجلات ، وبعد النظر في جدولك والحقل ID و تواريخ الاجازات لكل موظف ، هل من الممكن ان تُعطى اجازة ، ثم تُعطى اجازة بتاريخ قبل تاريخ الاجازة السابقة (انظر في المربعات الحمراء)؟ اذا كان الجواب لا يمكن ، فرجاء ارفق جدول به بيانات صحيحة ، حتى اعمل الفرز والتسلسل بحقل ID ، ثم اطبقه على التاريه الهجري ، اما اذا كان الجواب انه يمكن حصوله ، فيجب ان احك رأسي بطريقة لحل الموضوع ياريت لو انك ارفقت البيانات الصحيحة منذ البداية ، حتى لا نصل الى هذه النقطة!! جعفر

تفضل يا سيدي 1. كان عندك مجموعة اخطاء في الكود فلم تكن تشير الى الاستعلام الخاص بالتقرير الفرعي ، وفي اسم احد التقارير الفرعية ، وفي حقل ترقيم نموذجين فرعيين حيث كنت تجمع ارقامها بدل ان تأخذها من الاستعلام مباشرة ، 2. الوحدة النمطية تقوم بهذا جعفر 680.5. الاجازات شبه كامل.accdb.zip

هذه مقدور عليها ، كل اللي يحتاج منك هو نسخ صفحات الكود باستخدام Ctl+A ، ثم اللصق في برنامجك الآخر المهم ان معظم الكائنات تم استيرادها جعفر

وعليكم السلام هناك عدة ميزات جديدة موجودة في الاكسس 2013 والتي هي غير موجودة في الاكسس 2003 ، والظاهر انك مستخدم بعض هذه الميزات ، فلذلك لا يستطيع الاكسس تصديرها!! الطريقة الاخرى هي ان تعمل قاعدة بيانات فاضية بصيغة mdb ، ثم استورد كائنات برنامجك الـ 2013 ، ولما تعمل هذا ، فسيحصل على رسالة تنبهك بانه بعض الميزات/الكائنات الغير ملائمة للـ 2003 سوف يتم حذفها/تغييرها ، ولكنك ستحصل على المطلوب ان شاء الله جعفر

السلام عليكم اخي احمد هناك عدة طرق لعمل المطلوب ، ولكن ، رجاء اشرح المطلوب وبالتفصيل ، حتى اعطيك الاختيار الافضل لك جعفر

حياك الله عفوا ما فهمت قصدك؟ جعفر

تفضل 746.1.Database19.accdb.zip

السلام عليكم من الخطأ العمل على جدولين ، في الوقت الذي يمكن دمجهم في جدول واحد ، وإضافة حقل جديد لفترة الموظف ، فهذه هي طريقة قواعد البيانات: الجدول الجديد: . والنموذج اصبح واحدا: . جعفر 748.Database11.accdb.zip

وعليكم السلام ورحمة الله وبركاته اهلا وسهلا بك في المنتدى هذا النموذج . وهذا الاستعلام هو مصدر بيانات التقرير ، وهذا الاستعلام يرسل رقم "مرتبط" الى الوحدة النمطية: وهذه الوحدة النمطية التي تقوم بإستخراج البيانات المطلوبة من الجدول: Option Compare Database Option Explicit Public M_Date As Date Public M_Type As String Public P_Date As Date Public P_Type As String Function qry_Date(ID) 'On Error Resume Next M_Date = vbNull M_Type = "" P_Date = vbNull P_Type = "" If Len(ID & "") = 0 Then Exit Function Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From [جدول2] Where [مرتبط]=" & ID & " Order By [التاريخ] Desc") rst.MoveLast: rst.MoveFirst M_Date = rst![التاريخ] M_Type = rst![النوع] rst.MoveNext P_Date = rst![التاريخ] P_Type = rst![النوع] rst.Close: Set rst = Nothing End Function Function Max_Date() Max_Date = M_Date End Function Function Max_Type() Max_Type = M_Type End Function Function Prev_Date() Prev_Date = P_Date End Function Function Prev_Type() Prev_Type = P_Type End Function . وهذه النتيجة: . جعفر 746.Database19.accdb.zip

تفضل يا سيدي 747.اهتزاز.mdb.zip

الان كذلك السجل الذي تكون عليه ، فيه لون مختلف عن بقية السجلات جعفر

تفضل وما عليك الا ان تُدخل اسماء الصفوف في الجدول الجديد tbl_Class_Name ، وتفتح التقرير من النموذج جعفر 745.db1.mdb.zip