اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابوخليل

أوفيسنا
  • Posts

    11,613
  • تاريخ الانضمام

  • Days Won

    192

كل منشورات العضو ابوخليل

  1. اذا الحقل يشتمل على تاريخ صحيح .. فالمفترض ان هذه الدالة تظهر تاريخ اليوم جرب اضبط تنسيق التاريخ الى short Date
  2. هذه وحدة نمطية تقوم بعمل جدول لاظهار الفهارس في جميع الجداول مع شرح دلالة الحقول في الجدول وارفقت لك مثالا بذلك .... ويمكنك نقلها الى برنامجك انتبه !! المثال لا يشتمل على جداول .. لرؤية النتيجة يجب جلب جداول اليه '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 اعتقد عليك انقاص الفهرس الذي لا تحتاجه فعلا من خصائص الحقل مفهرس =لا
  3. اعتقد العدد للجدول الواحد اعمل زر وفي حدث النقر ضع الكود ادناه .. ولا تنسى تضع اسم جدولك بدل الظاهر هنا MsgBox CurrentDb.TableDefs("your table").Indexes.Count
  4. اعتقد الحد الاقصى 32 للعلم يوجد حقول فهرسها مخفي بحثت لك فوجدت صفحتين تتحدثان عن المشكلة .. وفي احداها رابط لكود يستخرج جميع الفهارس اذا لا تجيد الانجليزية استعن بقوقل للترجمة هنا وهنا
  5. اخي الحبيب سفر لا تعتقد اني غفلت عنك .. لقد راجعت مثالك مرات .. ولكني لم اهتد الى طريقة اساعدك فيها في الملف الاصلي خانات التقييم هي عبارة عن قيم رقمية يتم ادراجها في الجدول بمجرد الاختيار وفي ملفك لم افهم القيم والنسب الموجودة .. فآمل ان تقبل اعتذاري ..... أرى انك لو شرحت فكرتك باسهاب وتفصيل .. لرجوت لك حلا سريعا
  6. ما دمت على الخط وستستمر .. المستخدمين والدخول نؤجله الى نهاية البرنامج الآن اختر بندا واحدا ... لأننا سنسير خطوة خطوة سأختار لك البند الأول : وستعمله انت بأناملك اللطيفة ، وترفعه عند الانتهاء ((( 1 )))) نماذج ادخال البيانات .. وهذه ليست بحاجة الى اكواد الا ما قل نموذج للحسابات / ونموذج للاصناف نموذج العمليات ستحتاج الى رئيسي وفرعي
  7. الموضوع قديم .. بارك الله فيك اكتب موضوعا جديدا ... ويمكنك الاشارة الى هذا الموضوع بوضع رابط له
  8. ما خط بالاحمر غير مفهوم هل جربت انشاء حقل جديد في الجدول الرئيسي وتعطيه الاسم المناسب .. ثم تربطه بالجدول الجديد ؟
  9. الشرط النصي يختلف عن الشرط الرقمي المفترض هذا التعديل يعمل =IIf(Len([Component] & "")=0;"";Nz(DLookUp("[s3r2]";"Tbl_Components";"[Component]='" & [Component] & "'");0))
  10. اكتب بدل المعيار الموجود في التقرير : العبارة التي تريد بين قوسين مربعين هكذا [فضلا ادخل رقم الطالب] ويكون هذا المعيار تحت رقم الطالب او بدل العبارة الى الاسم وضع المعيار تحت حقل اسم الطالب وهكذا في اي حقل تريد وضع معيار له
  11. لاحظت تأخر ابو حسان @abouelhassan في الرد وعدم التفاعل السريع وجاء في بالي وكأنه متردد بين الاستمرار في الدروس او يختار ما تقدمت به اخي @kkhalifa1960 وكأني بحاله يقول : اذا وافقك الخير فوافقه فهو اعرف فيختار ما يناسبه
  12. الخطأ انك وضعت في التقرير المعيار الاسم تحت حقل الرقم ايضا لا تفتح التقرير مباشرة والنموذج مغلق .. بالنسبة للبحث انظر النموذج ,,,, انظر مصدر البيانات وانظر الكود المصاحب School6.rar
  13. ما فيه .. هذا حمود وهذي عباته لما طلع vb6 من بيتهم القديم وطلع يجدد بيته .. اكسس حل محله وجلس في البيت القديم
  14. عملت لك استعلام واحد يستخرج جميع بنودك المطلوبة ... واستعلام آخر بالرصيد تعريف الاستعلام : بالرغم من كونه شقيق الجدول واكثر مرونة منه الا انه نسخة طبق الأصل من نماذج العرض ومن التقارير الفرق بينها في الغالب دوما ان البيانات في التقارير تكون مرتبة على هيئة ورق مثلا A4 ومنسقة وتشتمل على الشعارات والترويسة والتذييل ، والا البيانات هي البيانات والنتائج هي النتائج ونوظف النماذج لخدمة الاستعلامات في الضبط فيما يخص المعايير ، لذا حينما تفتح الاستعلام في المثال سوف يطالبك بكتابة المعايير ( ولن تظهر اذا تم ربط المعيار بالنموذج ) نأتي للاستعلام الشامل الذي تم عمله : المعايير : ( بين تاريخين / بين رقمين للحساب / بين رقمين للصنف ) جرب 1- لا تكتب شيئا عند المطالبة بادخال المعايير .. وانما انقر على موافق فقط .. سوف تظهر جميع البيانات الموجودة في الجدول ، وينطبق هذا ايضا على استعلام الأرصدة 2- جرب ادخل التواريخ فقط او التواريخ والحساب من/الى او ضع رقما واحدا في : من/الى ... وطبق ايضا على الاصناف الذي اريد ان اوصله انه يمكن التصفية بحسابات محددة واصناف محددة وتواريخ محددة في نهاية البرنامج يمكننا جعل هذا الاستعلام او جزء منه مصدرا لتقريرنا جرب وتفحص وزد في البيانات وراقب ووافنا بالنتيجة ملحوظة : ارقام الحسابات والاصناف تبدأ من 101 .. وهذا الرقم سوف يتكفل النموذج بادخاله مستقبلا tables3.rar
  15. اذا لن يدخل في التصفية كمعيار .. نعم يمكنك جعله ترقيم تلقائي اما اذا هو يدخل في البحث والتصفية فأرى ان يبدأ الترقيم من عدد كبير لا يقل عن خمس خانات ... ويمكن خلال ذلك جعله يرقم تلقائي بواسطة الكود الآن .. انت ادخلت بيانات في الجدول الرئيس .. ما هي النتائج التي تريد اظهارها بمعلومية هذه البيانات اكتبها كنقاط
  16. النماذج عليها ختم الاستاذ @kkhalifa1960 عذرا .. البرنامج لا يخصني ربما شاركت في تعديل شيء ما على كل حال المرفق ملخبط لو ارفقت المثال الأصلي وطلبت التعديل عليه هنا .. ارى انه افضل لك
  17. ما شاء الله انت طالب علم نشيط وحريص وللعلم سبق لي ان طرحت هنا موضوع تعليمي انشاء مشروع ادخال درجات طلاب هل تصدق ان اعادة الدرس يعتبر عدم مسايرة لقوانين المنتدى ، اضف الى ذلك اني لا اجد الهمة الكافية للمتابعة على كل حال ارى انك في مرحلة متقدمة نوعا ما برمجيا ، ويمكنك لو رجعت الى الموضوع وقرأته لاستفدت كثيرا بل اعتقد انك لو درست آخر مرفق في ذلك الموضوع .. لأغناك عن كثير من الاستفسارات التي تدور في رأسك هذا رابط الصفحة ادرس الجداول اولا وطبق على عملك .. هل انت في الطريق الصحيح ؟ ثم انتقل لنموذج الادخالات وانظر كيف تم التحكم بالادخال على الطريقتين . اي شيء يقابلك ويستعصي عليك فهمه اطرحه هنا
  18. تعديلات طفيفة تتلخص في التالي : - الترقيم للحسابات وللاصناف يجب ان يبدأ برقم كبير ... من اجل ضبط التصفية والفرز مستقبلا - في جدول العمليات جعلت مصدر الحساب والصنف رقما من اجل المعايير وصحتها وسرعة تنفيذ الاستعلامات - لمسات على التسميات بما اننا في البداية ------------------------------------------- سوف نبقى في الجداول ولن نخرج عنها حتى اكتمالها .. ونستعين بالاستعلامات حتى نطمئن على النتائج --------------------------------------- الآن : قم بتعبئة جدول تفاصيل العمليات بسجلات مناسبة .. بيانات تشتمل على كل ما تفكر باستخراجه في التقارير حينما نجري تجاربنا باستخراج النتائج ، ستجد ان العمل اصبح ممتعا ، وسيفتح لك باب في التصميم والبرمجة كان مختبئا عنك . tables1.rar
  19. انت فعلا بدأت الاحتراف من الآن اعرض جداولك الرئيسة ( فقط ) وضع فيها بعض البيانات للاستئناس والفهم من اجل الدراسة والمناقشة الجداول الرئيسية فقط .. لأن الفرعية ستأتي تباعا
  20. تمام نعمل الجداول ونشرع في تصميمها ، وفي الوقت نفسه (((( نصنع النماذج والتقارير في مخيلتنا ))) من اجل هذا ذكرت لك انك خرجت عن صلب الموضوع . كيف اشرح وابين لك ؟؟؟ دعنا نبسط الموضوع ونشرحه . قلت ان المشروع عبارة عن ادخال درجات الطلاب ثم استخراج النتيجة من الوهلة الأولى للتصور ان المشروع سيقوم على جدول واحد هو الاساس في جميع العمليات .. ودعنا نسميه جدول الدرجات ويتم فيه :: ادخال الدرجات نراعي فيها المتطلبات التالية : الطالب صاحب الدرجة ( سيتم ادراجه من جدول الطلاب ) الفصل الدراسي ( سيتم ادراجه من جدول الفصل الدراسي ) حقول المواد ------------------------------------------------------ الصف والشعبة او الفصل ( لن يدرج في الجدول وانما يظهر عند العرض .. مدرجا من جدول الطلاب ) المعلم .. سيكون مرتبطا بالصف والمادة .. ويظهر في العرض لاختيار المعلم المحدد وتحديد الصف والمادة ---------------------------------------------------------------------- هنا وانا اعمل الجداول يجب تخيل العمل على النماذج .. ماذا اريد وماذا يجب علي عمله .. وهل نسيت حقلا .. واين يكون مكانه لنفرض الآن اني اكملت تصميمي للجداول .. وقبل عمل نموذج ادخال الدرجات .. تأتي ادارة الفكر .. ما الطريقة الصحيحة لادخال البيانات ؟ وهل يتطلب الامر اكثر من طريقة ؟ في مشروعي هذا قد يطلب مني التالي من خلال النموذج : تحديد الفصل الدراسي ادخال الدرجات حسب المعلم والصف والمادة ادخال درجات جميع المواد لطالب ادخال درجات مادة لجميع الطلاب هنا تأتي اهمية مراجعة الجدول الرئيسي وهل هو مكتمل ويلبي جميع العمليات السابقة ام بحاجة الى اعادة نظر --------------- حينها ابدأ بإنشاء اول نموذج .. ولا اتعداه لغيره حتى يكتمل ويحقق الغرض الذي تم انشاؤه لأجله
  21. ملاحظات فنية : 1- tbl_Marks2 ، tbl_Marks2 هذه مسميات الجداول والنماذج بنفس الوقت ..... اسماء الكائنات يجب ان تكون مميزة .. بداية التسمية تكون بالجداول بـــ tbl والنماذج بـــــ frm والاستعلامات بــــ qry والتقارير بــــ rep من اجل اعرفها من تسميتها 2- 2stMarks ، 1stMarks لا تبدأ التسميات برقم في كافة كائنات وعناصر المشروع .. قد نكتب الارقام في نهاية التسميات المتشابهه لأغراض برمجية ملاحظات في التصميم : انت لم تنتهي بعد من تصميم الجداول .. اكرر 80% من المشروع هو ضبط الجداول من الذي اوحى اليك ان تخصص لكل فصل دراسي جدولا للدرجات ؟ مثل المبتدىء والخبير كمثل من ينظر الى ما حوله من فوق صخرة بينما الخبير ينظر اليها من فو ق الجبل يجب ان تتعلم اولا التحليل لبياناتك .. ما الذي سيتم ادخاله وما المخرجات المطلوبة ... ويجب ان تحقق ذلك من خلال جداولك بعدها يأتي التنفيذ بما تملكه او تتعلمه من ادوات - نماذج لإدخال البيانات في ((((( الجداول)))))) - نماذج وتقارير لعرض النتائج الموجودة في (((((((((( الجداول ))))))))) الأكواد والوحدات النمطية والاستعلامات وغيرها هي ادوات مساعدة للتنفيذ
  22. انا اضفت هذه الايقونات الى القائمة المختصرة الافتراضية لا اذكر كيف عملتها .. المهم انها متاحة بالسحب والافلات
×
×
  • اضف...

Important Information