ابوخليل

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

حتى الآن لم تصل الفكرة ما رأيك نناقش الفكرة بطريقة اخرى ؟

هل برنامجك يفتح ويعرض البيانات بعد تغيير اسم القاعدة ؟ اذا لا فمؤكد ستظهر لك رسائل تصف لك الخلل يمكن تعبت وحابة تستريح شوية

انت تتعلم اللي يصعب عليك عمله اعرضه هنا

هل المسألة صعبة عليك ابا حسان ؟؟ اكسس غالبا هو يعملها .. استخدم معالج النماذج .. كل ما ستعمله هو التنسيق والترتيب

مشكلتك في اعدادات اللغة في وندوز

اذا الحقل يشتمل على تاريخ صحيح .. فالمفترض ان هذه الدالة تظهر تاريخ اليوم جرب اضبط تنسيق التاريخ الى short Date

هذه وحدة نمطية تقوم بعمل جدول لاظهار الفهارس في جميع الجداول مع شرح دلالة الحقول في الجدول وارفقت لك مثالا بذلك .... ويمكنك نقلها الى برنامجك انتبه !! المثال لا يشتمل على جداول .. لرؤية النتيجة يجب جلب جداول اليه 'This code creates a table called tbl_IndexTable and populates it with records stating which fields in your database are indexed. 'The table has the following fields. 'tbl_IndexTable 'IndexId......... The primary key for the table 'FieldName........ The name of the field that is indexed 'IndexName....... The Name of the INDEX 'TableName ....... The name of the table 'IsPrimaryKey........ Is the field a primary key 'Clustered........ Is it s clustered or Non-Clustered index 'Required........ Is the field Required or Not Required 'Foreign........ Is it the field a foreign key field Function ListIndexes() ' Procedure: ListIndexes ' DateTime : 1/04/2010 08:05 ' Author : Dane Miller ' Purpose : Creates a table and Lists ALL Indexes for ' every user created table in your database ' Arguments : N/A ' References: Microsoft ActiveX Data Objects x.x Library ' : Microsoft DAO x.x Library ' Returns : N/A '--------------------------------------------------------------------------------------- Dim db As DAO.Database Dim rst As DAO.Recordset Dim idx As DAO.Index Dim tbls As DAO.TableDefs Dim fld As DAO.Field Dim idx_Fields As String Dim tbl As DAO.TableDef Dim StrCreateTbl As String, StrInsertIndex As String On Error GoTo Errhandler Set db = CurrentDb() Set tbls = db.TableDefs() 'create the table to hold the indexes. StrCreateTbl = "CREATE TABLE Tbl_IndexTable (" & _ "[IndexId] INTEGER not null identity(1,1)," & _ "[FieldName] VARCHAR(100) , " & _ "[IndexName] VARCHAR(100), [TableName] VARCHAR(100), " & _ "[IsPrimaryKey] VARCHAR(5), " & _ " [Clustered] VARCHAR(5) , [Required] VARCHAR(5), " & _ "[Foreign] VARCHAR(5))" CurrentProject.Connection.Execute StrCreateTbl Set rst = db.OpenRecordset("tbl_IndexTable") For Each tbl In tbls ' loop though all the indexes ' do not consider system tables If Left(tbl.Name, 4) <> "MSys" And Left(tbl.Name, 1) <> "~" Then ' Enumerate Indexes collection table. For Each idx In tbl.Indexes With rst .AddNew ' Remove the Plus (+) sign from fields idx_Fields = Replace(idx.Fields, "+", " ") ' remove the semi colon from fields and replace with a comma idx_Fields = Replace(idx_Fields, ";", ",") .Fields("TableName") = tbl.Name .Fields("FieldName") = idx_Fields .Fields("IndexName") = idx.Name .Fields("IsPrimaryKey") = IIf(idx.Primary = True, "Yes", "No") .Fields("Clustered") = IIf(idx.Clustered = True, "Yes", "No") .Fields("Foreign") = IIf(idx.Foreign = True, "Yes", "No") .Fields("Required") = IIf(idx.Required = True, "Yes", "No") .Update End With Next idx End If Next tbl If MsgBox("Index Table Created. Do you want to open it now?", vbYesNo) = vbYes Then 'open the table to show all the results. DoCmd.OpenTable "tbl_IndexTable", acViewNormal, acReadOnly End If exithandler: Exit Function Errhandler: If Err.Number = -2147217900 Then 'if the table already exist Then delete records CurrentProject.Connection.Execute " DELETE * FROM TBL_IndexTable" Resume Next Else: MsgBox Err.Number & " " & Err.Description Resume exithandler End If 'clean up rst.Close Set rst = Nothing db.Close Set db = Nothing End Function المصدر Database99.accdb اعتقد عليك انقاص الفهرس الذي لا تحتاجه فعلا من خصائص الحقل مفهرس =لا

اعتقد العدد للجدول الواحد اعمل زر وفي حدث النقر ضع الكود ادناه .. ولا تنسى تضع اسم جدولك بدل الظاهر هنا MsgBox CurrentDb.TableDefs("your table").Indexes.Count

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

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

ما دمت على الخط وستستمر .. المستخدمين والدخول نؤجله الى نهاية البرنامج الآن اختر بندا واحدا ... لأننا سنسير خطوة خطوة سأختار لك البند الأول : وستعمله انت بأناملك اللطيفة ، وترفعه عند الانتهاء ((( 1 )))) نماذج ادخال البيانات .. وهذه ليست بحاجة الى اكواد الا ما قل نموذج للحسابات / ونموذج للاصناف نموذج العمليات ستحتاج الى رئيسي وفرعي

الموضوع قديم .. بارك الله فيك اكتب موضوعا جديدا ... ويمكنك الاشارة الى هذا الموضوع بوضع رابط له

ما خط بالاحمر غير مفهوم هل جربت انشاء حقل جديد في الجدول الرئيسي وتعطيه الاسم المناسب .. ثم تربطه بالجدول الجديد ؟

الشرط النصي يختلف عن الشرط الرقمي المفترض هذا التعديل يعمل =IIf(Len([Component] & "")=0;"";Nz(DLookUp("[s3r2]";"Tbl_Components";"[Component]='" & [Component] & "'");0))

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

لاحظت تأخر ابو حسان @abouelhassan في الرد وعدم التفاعل السريع وجاء في بالي وكأنه متردد بين الاستمرار في الدروس او يختار ما تقدمت به اخي @kkhalifa1960 وكأني بحاله يقول : اذا وافقك الخير فوافقه فهو اعرف فيختار ما يناسبه

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

ما فيه .. هذا حمود وهذي عباته لما طلع vb6 من بيتهم القديم وطلع يجدد بيته .. اكسس حل محله وجلس في البيت القديم

عملت لك استعلام واحد يستخرج جميع بنودك المطلوبة ... واستعلام آخر بالرصيد تعريف الاستعلام : بالرغم من كونه شقيق الجدول واكثر مرونة منه الا انه نسخة طبق الأصل من نماذج العرض ومن التقارير الفرق بينها في الغالب دوما ان البيانات في التقارير تكون مرتبة على هيئة ورق مثلا A4 ومنسقة وتشتمل على الشعارات والترويسة والتذييل ، والا البيانات هي البيانات والنتائج هي النتائج ونوظف النماذج لخدمة الاستعلامات في الضبط فيما يخص المعايير ، لذا حينما تفتح الاستعلام في المثال سوف يطالبك بكتابة المعايير ( ولن تظهر اذا تم ربط المعيار بالنموذج ) نأتي للاستعلام الشامل الذي تم عمله : المعايير : ( بين تاريخين / بين رقمين للحساب / بين رقمين للصنف ) جرب 1- لا تكتب شيئا عند المطالبة بادخال المعايير .. وانما انقر على موافق فقط .. سوف تظهر جميع البيانات الموجودة في الجدول ، وينطبق هذا ايضا على استعلام الأرصدة 2- جرب ادخل التواريخ فقط او التواريخ والحساب من/الى او ضع رقما واحدا في : من/الى ... وطبق ايضا على الاصناف الذي اريد ان اوصله انه يمكن التصفية بحسابات محددة واصناف محددة وتواريخ محددة في نهاية البرنامج يمكننا جعل هذا الاستعلام او جزء منه مصدرا لتقريرنا جرب وتفحص وزد في البيانات وراقب ووافنا بالنتيجة ملحوظة : ارقام الحسابات والاصناف تبدأ من 101 .. وهذا الرقم سوف يتكفل النموذج بادخاله مستقبلا tables3.rar

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

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

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

هذا هو المرفق copy value fom colum to another.rar

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