• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

f11

اعضاء
  • عدد المشاركات

    54
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن f11

  • الرتبة
    عضو

طرق الإتصال

  • ICQ 0
  1. اعضاء المنتدى لن يقصروا حسب المتاح لهم من الوقت, بالامكان ارفاق نماذج لما طلبت و جعل الاعضاء يجاولون مساعدتك بالتوفيق
  2. اولاً / ياليت ترفق نسخة من الملف ثانياً / حيث ان لديك هذه البيانات ، فكر في قاعدة بيانات ACCESS او حتى اكسل لحفظ و معالجة بياناتك
  3. الاخ / محمد جلال هناك مشكلة وهي : عند ادخال رقم مكون من عشرين خانة مثلاً : 12345678901234567890 فإنة يتحول الى التنسيق التالي : 12345678901234600000.00 وعند اختيار تنسيق آخر ممكن يتحول الى 1.23456789012346E+19 وفي كل الحالات يصعب قراءة الرقم او التعديل عليه الاخ / مفتون لماذا يجب ان يكون الحقل رقم ؟ هل هو لتقليل المساحة في الجدول(حجم قاعدة البيانات بشكل عام)؟ ام لاجراء عمليات حسابية على الرقم؟ منكم نستفيد
  4. اخي الكريم ممكن ترجع للملف المرفق سابقا و تشوف الكود
  5. قد يكون الحل في : اولاً / تحويل قاعدة البيانات الى 97 بواسطة Access 97 ثانياً / فتح 97 بواسطة 2000 او XP ارفق نسخة ممكن يساعدك احد الاعضاء بالتوفيق
  6. من قائمة (اداوات)-> ماكرو -> محرر فجوال بيسك او الضغط على ALT-F11
  7. الا خ / عبدالرحمن قبل ان اقدم الحل اقدم هذا الاقتراح حسب رؤيتي و تحليلي للملف المرفق : الاقتراح : استخدام قاعدة بيانات بدلا من جداول اكسل حيث انك ستتابع جميع الموظفين و الذين يصل عددهم (حسب التصميم ) الى 350 موظف يوميا بالاضافة الى تقرير شهري. بواسطة قاعدة بيانات آكسس يمكنك جعلل مهمتك في الحصول على التقارير اسهل بكثييييييير من جداول اكسل اما الحل فهو كالتالي امسح من حقل TIME المعادلة التالية اي ابق الخلية خالية بدون معادلات =IF(J11="","",NOW()) استخدم الكود التالي لوضع الزمن الحالي[Now()] في الخلية الحالية بدون تغيير الخلايا الاخرى Sub PutCurrentTime() Dim Rno, Cno As Long Rno = Application.ActiveCell.Row Cno = Application.ActiveCell.Column Application.Cells(Rno, Cno) = Now() End Sub انشأ زر امر و اربطة بالماكرو (الكود السابق) بالتوفيق Amgad_emp2.rar
  8. الروابط التالية قد تهمك تكرار طباعة الباركود من كل صنف وفقا للرصيد الموجود, طباعة بار كود لكل قطعه موجوده بالمتجر الطباعه علي ورق الباركود وربما تجد المزيد من المواضيع المتعلقة عن الباركود بعد البحث اتمنى لك التوفيق
  9. حسب معلوماتي المتواضعة ، لا يمكن القيام بذلك الا بواسطة الكود. المثال المرفق يحتوي برنامج قم بوضعة في قاعدة البيانات التي ترغب في معرفة جداولها ثم نفذ الاجراء التالي في نافذة الكود Sub Tables_Total_Records() وستحصل على جدول يضم التالي قائمة باسماء الجداول + عدد سجلات كل جدول قائمة بالاستعلامات + SQL لكل استعلام قمت بتصميم هذه الاجراءات للمشاركة في مسابقة مجلة PC Magazine اتمنى ان تضعك على الطريق و بالتوفيق ACCTableInfo.rar
  10. الجداول التالية هي جداول النظام وتكون مخفيه ولها البادئة :MSys MSysAccessObjects MSysAccessXML MSysACEs MSysObjects MSysQueries MSysRelationships
  11. التقرير بالالوان تفضل ولاحظ ان التقرير بالالوان نفس فكرة النموذج ____________2.rar
  12. تحسينات على المثال السابق ويحتوي : 'حذف السجلات و الابقاء على هيكل الجدول Sub EmptyMDBTable(ByVal MDBTable As String) Dim strSQL As String DoCmd.Hourglass True DoCmd.SetWarnings False strSQL = " DELETE * FROM " & MDBTable & ";" DoCmd.RunSQL (strSQL) DoCmd.SetWarnings True DoCmd.Hourglass False End Sub 'حذف الجول برمجياُ Sub DeleteMDBTable(ByVal MDBTable As String) DoCmd.Hourglass True DoCmd.SetWarnings False DoCmd.DeleteObject acTable, MDBTable DoCmd.SetWarnings True DoCmd.Hourglass False End Sub 'اختبار وجود الجول من عدمه Function TableExists(ByVal MDBTable As String) As Boolean Dim TableDefsCounter As Long TableExists = False For TableDefsCounter = 0 To CurrentDb.TableDefs.Count - 1        If (MDBTable = CurrentDb.TableDefs(TableDefsCounter).Name) Then        TableExists = True        End If    Next TableDefsCounter End Function 'عدد السجلات في جدول Function TableRecordCount(ByVal MDBTable As String) As Long TableRecordCount = Application.CurrentDb.TableDefs(MDBTable).RecordCount End Function آمل ان تكون هذه الاضافة مفيدة CreateTableProgrammatically3.rar
  13. الاخ الاستاذ / ممتاز بدأت في حل المشكلة لكن ممكن تصحح لي القائمة التالية الخاصة بمواد المرحلى الابتدائية من الاشكالات مثلاً مادة :الفقه و الفقه والسلوك وكذلك : القراءة الاناشيد القراءة والاناشيد القراءة والمحفوظات القراءة واناشيد قراءة وكتابة والاناشيد هل هي مادة واحدة ام مواد مختلفة؟ alsaf maddano maddaname 1 1 القرآن الكريم 1 4 التوحيد 1 5 الفقه والسلوك 1 11 قراءة وكتابة والاناشيد 1 30 علوم 1 60 الرياضيات 1 101 التربية الفنية 2 1 القرآن الكريم 2 4 التوحيد 2 5 الفقه والسلوك 2 11 القراءة والاناشيد 2 30 علوم 2 60 الرياضيات 2 101 التربية الفنية 3 1 القرآن الكريم 3 4 التوحيد 3 5 الفقه والسلوك 3 11 القراءة والاناشيد 3 13 الإملاء 3 14 الخط 3 15 تعبير 3 30 علوم 3 60 الرياضيات 3 101 التربية الفنية 4 1 القرآن الكريم 4 4 التوحيد 4 5 الفقه 4 11 القراءة واناشيد 4 13 الإملاء 4 14 الخط 4 15 التعبير 4 16 القواعد 4 20 الجغرافيا 4 21 التاريخ 4 30 العلوم 4 60 الرياضيات 4 100 التربية الوطنية 4 101 التربية الفنية 4 102 التربية البدنية 5 1 القرآن الكريم 5 2 التجويد 5 4 التوحيد 5 5 الفقه 5 6 الحديث 5 11 القراءة الاناشيد 5 13 الإملاء 5 14 الخط 5 15 التعبير 5 16 القواعد 5 20 الجغرافيا 5 21 التاريخ 5 30 العلوم 5 60 الرياضيات 5 100 التربية الوطنية 5 101 التربية الفنية 5 102 التربية البدنية 6 1 القرآن الكريم 6 2 التجويد 6 4 التوحيد 6 5 الفقه 6 6 الحديث 6 11 القراءة والمحفوظات 6 13 الإملاء 6 14 الخط 6 15 التعبير 6 16 القواعد 6 20 الجغرافيا 6 21 التاريخ 6 30 العلوم 6 60 الرياضيات 6 80 اللغة الإنجليزية 6 100 التربية الوطنية 6 101 التربية الفنية 6 102 التربية البدنية على العموم ارفقت لك مثال مبسط و فكرة الحل تعتمد كلياً على الاستعلامات الجدولية (Crosstab Queries) و بالتوفيق ________2.rar
  14. انا أويد اغلاق كل مشاركة تحمل عنوان فضفاض مثل : ارجو المساعدة - كيف احل هذه المشكلة -سؤال للخبراء كما ان هذه المشاركات ذات العناوين الفضفاضة لا تشجع كثير من الاعضاء على التجاوب مع صاحب المشاركة شكراً للمشرفين على تفعيل قانون اغلاق المشاركات التي لا يدل عنوانها على محتواها
  15. اولاً / انظم الى راي الاخوين الطائر و يوسف احمد في وجود 3 جداول : الموظفين - المهام -ر ابط الموظفين/المهام ثانياً / لي ملاحظات على تصميم الاخ يوسف احمد وهي 1-استخدام العربية في اسماء الجداول و الحقول 2-جدول الربط لا يجب ان لا يحتوي اي حقل حول المهمة باستثناء رقم المهمة فقط اي بيانات حول المهمة تكون في جدول المهام بالمثال يتضح المقال Tasks.rar