نجوم المشاركات

السلام عليكم تستطيع عمل استعلام CrossTab ، والذي سيعطيك نتائج صحيحة ، . . ولكن في التقرير يمكنك مسبقا ان تضيف كم سنه للمستقبل ، وبرمجيا تخبئ العمود اذا مافي بيانات لتلك السنه ، وهذه طريقة عمل الاعمدة في استعلام CrossTab واللي على اساسه تعمل التقرير: . وهناك طريقة اخرى لعمل التقرير: . وهنا سؤال آخر عن نفس الموضوع: جعفر 783.عرض تقرير.accdb.zip

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

وتغيير اخير ، إضافة عرض الحقول بغير بيانات ، الى الحقول التي بها بيانات ، وبهذه الطريقة الحقول دائما تملئ عرض التقرير عمل التجربة في تقرير جديد: . . جعفر 783.عرض تقرير.zip

وعليكم السلام قام اخي @Shivan Rekany بالرد على نفس السؤال هنا: جعفر

اتفضل اضغط مرتين على حقل تايب انا غيرت اسم Type الى type1 لان اسم Type محجوزە ... Documents.rar

هذا هو DoCmd.RunCommand acCmdDatabaseSplitter ولكن الافضل أدلك على المستودع وتختار وتنتقي ما تريد في محرر الفيجوال اكتب العبارة التالية : DoCmd.RunCom ثم انقر زر المسافة ستظهر لك قائمة طويلة بمعظم أوامر أكسس

السلام عليكم اما انا ، فإن شاء الله افرد له موضوع مستقل ، وعلى راسي جعفر

الذكاء الاصطناعي في إدارة المشاريع اخترتُ موضوع الذكاء الاصطناعي في إدارة المشاريع لكتابة هذا المقال لأنه مجال أستمتع وانبهر به. ولكن، قبل أن أبدأ بمناقشة موضوع الذكاء الاصطناعي في إدارة المشاريع، أود أن أناقش مصطلح الذكاء الاصطناعي بشكل عام. ما هو الذكاء الاصطناعي؟ هل هو علم؟ أم أنه مجرد تقنية جديدة؟ أخيراً وليس آخراً، هل هو سحر؟ إنه يبدو بالتأكيد كأنه سحر إذا نظرت إلى بعض تطبيقات هاتفك الذكي. فعلى سبيل المثال، عندما اشتريتُ هاتفي الذكي وأكملتُ مدة أسبوعا كامل ، أصبح هاتفي يعرف مكان سكني ومكان عملي. ففي صباح أيام العمل، بدأ يرسل لي إشعارات عن حالة الازدحام المرورية للطريق الذي أسلكه للذهاب إلى العمل. وفي الظهيرة )وقت مغادرة العمل – فهو يعلم الساعة التي أغادر فيها من العمل( يرسل لي أيضا إشعارات عن حالة الازدحام المرورية وأنا في طريق عودتي إلى المنزل. يا ترى كيف استطاع هاتفي المحمول معرفة مكان منزلي ومكان عملي، وكيف استطاع معرفة أيام الأسبوع والأوقات التي أغادر فيها من المنزل ذهاب اً إلى العمل؟ لا بد أنه تعلم كل ذلك من تلقاء نفسه. فهذا نوع من أنواع الذكاء أليس كذلك؟ والآن سأبدأ بتعريف مصطلح الذكاء الاصطناعي. وأكثر تعريف مقنع وجدته هو: "الذكاء الاصطناعي هو قدرة الجهاز على الإدراك والاستنتاج والتصرف". هناك تعريف آخر وهو كالتالي " الذكاء الاصطناعي هو قدرة الحاسب الآلي أو أي جهاز آخر على إنجاز بعض الأعمال التي تتطلب نوع من الذكاء". هناك العديد من أنواع الذكاء الاصطناعي وتشمل تعلم الآلة، معالجة اللغة الطبيعية، تمييز الكلم، تمييز الرؤية والصورة، تمييز الأشكال، الأنظمة الخبيرة، التخطيط، النزوع إلى الحل الأمثل وأخيراً علم تصميم الإنسان الآلي. ولذا في رأيي فإن الذكاء الاصطناعي هو علم يستخدم أحدث التقنيات لإيجاد السحر. في الأساس، فإن الذكاء الاصطناعي هو فرع من علوم الحاسب الآلي الموجود منذ عشرات السنين. تم إنشاء مصطلح "الذكاء الاصطناعي" في مؤتمر عُ قد في كلية دارتموث ببريطانيا في عام 1956 . ومن أهم المراجع العلمية في مجال الذكاء الاصطناعي الذي يستخدم إلى يومنا هذا هو كتاب من تأليف البروفيسور باتريك هنري وينستون وكانت آخر طبعة له سنة 1994 . على الرغم من وجود الذكاء الاصطناعي لفترة طويلة من الزمن إلا أن أهميته برزت الآن، والسبب الرئيسي وراء ذلك هو النمو الاستثنائي لقوة الحوسبة في العقديين الماضيين. لإعطائك فكرة عن ضخامة نمو قوة الحوسبة، فمن المثير للهتمام أن تعلم بأن جهاز آيفون 6 لديه قوة حوسبة أكثر من الحاسب الآلي المستخدم من قبل كيوريوسيتي روفر التابع لوكالة الفضاء الأمريكية (Nasa MArs Rover Curiosity) والذي هبط على سطح المريخ في 2011 ولأول مرة على الإطلق، آي بي إم ديب بلو حاسب آلي عملاق IBM's Deep Blue استطاع أن يحقق الفوز على حامل لقب بطل العالم لبطولة الشطرنج في عام 1997 بموجب لوائح البطولة نظراً لقوة الحوسبة الذي يحتوي عليها. فكيف يتم استخدام الذكاء الاصطناعي في مجال إدارة المشاريع. كما شرحت مسبقاً، الذكاء الاصطناعي هو علم يستعمل التقنية الحالية )الحاسب الآلي، الهواتف الذكية، الإنسان الآلي، إلخ..( لأداء مهام معينة تتطلب الذكاء البشري )مثل السحر(. ولكن ما هو العلم وراء السحر؟ فالذكاء الاصطناعي مبني على القواعد الرياضية التي تخبر أجهزة الحاسب الآلي والآلات الأخرى بكيفية التفكير والتصرف بذكاء. هنالك العديد من الأدوات والتقنيات التي تُستخدم في الذكاء الاصطناعي، وسأحاول أن أتطرق إلى بعض أدوات الذكاء الاصطناعي النافعة والمفيدة في إدارة المشاريع.والتي تحاول (Knowledge Based Expert Systems KBES) وأول هذه الأدوات هي النظم الخبيرة المبنية على المعرفة التقاط المعرفة من الخبراء في قواعد بيانات )بما أن – إذن( مما يتيح الفرصة للحاسب الآلي للإجابة عن أسئلة ذات مستوى عال من الخبرة. وهي عبارة عن نهج لتعلم الآلة يحاول (Artificial Neural Networks ANN) الأداة الثانية هي الشبكة العصبية الصناعية : محاكاة المخ البشري ويتكون من عدد من الخليا العصبية الصناعية والتي ترسل إشارات لبعضها البعض عن طريق العديد من الموصلت بأوزان نسبية مختلفة. والشبكة العصبية الصناعية لديها القدرة على التعلم، التذكر، والتعميم من أنماط التدريب والبيانات )الرقمية وغير الرقمية أو كلهما(. الأداة الثالثة التي سأناقشها هي الخوارزميات الجينية ( Genetic Algorithms GAs ) وهي طرق بحث تكرارية تقلّد عملية التطور البيولوجية الطبيعية أو السلوك الاجتماعي للأصناف. وتستخدم عمليات التطور الطبيعية للنتقاء، والتحول للوصول إلى حلول مثلى عادةً ما تفشل فيها تقنيات البحث الرياضية التقليدية. أدوات الذكاء الاصطناعي في مجال إدارة المشاريع تستخدم في التصميم الهندسي، تقدير التكلفة، التخطيط والتنظيم، إدارة المخاطر، التنبؤ الأداء بالإضافة إلى رصد ومراقبة المشاريع. تستخدم الشبكة العصبية الصناعية في التصميم الهندسي لتحديد النظام البنائي الأنسب للمباني الشاهقة التي تتعرض للرياح والزلازل. كما تم استخدام الشبكة لتقدير معايير صلبة الإطارات ودعامات البناء بالاستدلال على أداء التجارب السابقة. وقد تم استخدام الخوارزميات الجينية لتحسين دورة تكاليف الحياة للمباني في المناخات الحارة مع مراعاة اختلف بدائل مواقع المباني والاتجاهات والمواد المستخدمة في البناء. يتم توظيف الشبكة العصبية الصناعية في تقدير التكلفة والمناقصة لتقدير المصاريف الإدارية وهامش الربح المناسب لزيادة إمكانية فوز المناقصات في مشاريع البناء. بالإضافة إلى ذلك، فقد تم استخدامها للتنبؤ بمدى تجاوز الموازنة في المشاريع بناء على مهارة المقاول، وكفاءة مدير المشروع، وحجم المشروع ونوع العقد المستخدم. يكون التنبؤ مبني على مجموعة من المدخلات الرقمية وغير الرقمية التي عادةً ما تتجاوز قدرة النماذج الرياضية العادية ولكن يمكن تحقيقها من خلل التقنيات التي تحاكي العقل البشري والتعرف على الأنماط. تم استخدام أداة النظم الخبيرة المبنية على المعرفة في التخطيط والتنظيم لتوفير التقديرات للمدة ومتطلبات الموارد لأنشطة المشروع للتمكين من إعداد البرنامج الزمني للمشروع حتى للمخططين المبتدئين. كما تم استخدام الذكاء الاصطناعي لجعل تسلسل أنشطة المشروع تعمل بآلية أوتوماتيكية مبنية على المتطلبات الوظيفية. وطبق الذكاء الاصطناعي أيضا لتخطيط مشاريع المنصات الخارجية في ظل ظروف غير مؤكدة تسمح لاختبار العديد من السيناريوهات واقتراح أفضل سيناريو لمدير المشروع. كما استخدمت أداة النظم الخبيرة المبنية على المعرفة لتحسين الجدول الزمني لأنشطة المشروع من أجل تقليل التكلفة الإجمالية مع القيود المفروضة على الموارد. استخدمت الشبكة العصبية الصناعية لتقدير احتمالية وقوع المخاطر في المشروع بإدخال نهج مقداري دقيق يحلل المخاطر. في مثالٍ آخر، تم الجمع بين الشبكة العصبية الصناعية ومحاكاة مونتي كارلو ( Monte Carlo Simulation) لتقليد طريقة الإنسان البشري في تقييم المخاطر والتعامل معها. كما تم استخدام الشبكة العصبية الصناعية لتنبؤ أداء المشاريع المستقبلية بناءً على معايير المشروع مثل كفاءة مدير المشروع، وقدرة المقاول، وطريقة العقد المستخدمة. نتائج التنبؤ كانت شاملة على الوقت، والتكلفة، وهذا يسمح لمدير المشروع لاتخاذ الإجراءات لمنع التأخير أو لوضع الاحتياطي اللزم لاستيعاب التأخير إذا كان لا مفر منه. تستخدم إدارة المشاريع الذكاء الاصطناعي في التحديثات التلقائية للجداول الزمنية للمشاريع من خلل تحديد الأنماط التي تؤثر على مدة المشروع والموارد المتطلبة لأنشطة المشروع. كما تم استخدام أداة النظم الخبيرة المبنية على المعرفة لتقييم المطالبات وفقاً لحالاتهم. وفي النهاية، أود التأكيد على وجهة نظري بأن الذكاء الاصطناعي هو علم يستخدم التقنيات الحديثة لإنشاء السحر. وقد استخدم في العديد من تطبيقات إدارة المشاريع والتي توفر أداء أفضل للمشروع بهدف جعل حياة مدير المشروع أقل )وربما أكثر( بؤساً.__

تعلم أساسيات تطبيق أورانج – الدرس الثاني السلام عليكم في الدرس السابق تعرفنا إلى كيفية إضافة المكونات Widgets إلى لوحة التصميم وربطها واستعراض البيانات كجداول وكرسم بياني. بما يمثل اول مسار تدفقي لنا في هذه السلسلة من الدروس الدرس الأول : من هنا اليوم سنكمل رحلتنا مع أساسيات الأورانج و سنبدأ من حيث انتهينا فى الدرس السابق اي اننا لدينا ملف به بالفعل المسار التدفقي الذي تم تصميمه في الدرس السابق. أي سنقوم بإضافة مكون File وربطه بقاعدة بيانات IRIS و إضافة مكون Data Table و ربطهما و استعراض البيانات ليظهر الشكل كما يلي: و كما اتفقتا في الدرس الماضي ، أن هذه البيانات تمثل الطول و العرض لكل من الأوراق الملونة Petal و الأوراق الخضراء الخارجية Sepal لمجموعة من زهرات السوسن و يمثل الحقل IRIS احد الأنواع الفرعية لزهرة السوسن · IRIS-Setosa · IRIS-Versiolor · IRIS-Virginica و الان لنستعرض توزيع هذه الخصائص عن طريق مكون (Widget) المسمي Distribution و لنري الان طريقة رابعة لاضافة المكون ، بالإضافة الي الثلاث طرق التي درسناها في الدرس الماضي لنسحب الاطار الخارجي لمكون ملف ، و سنجد أن البرنامج يقترح علينا عدد من المكونات الملائمة ، فى نهاية قناة الاتصال و اذا بدانا في كتابة الاحرف فانه يقوم بفلترة الخيارات كما توضح الصورة التالية ، و عليه لنختار مكون Disctribution و في البرنامج يطلق مصطلح قناة الاتصال على الخط الواصل بين المكونات Communication Channel و البرنامج لا يستمح باضافة مكون فى نهاية قناة الاتصال غير متوافق مع المكون الموجود فى بداية الخط و بالنقر علي مكون Distribution سنجد التوزيع الخاص بكل من هذه الخصائصو يمكنك استعراض توزيع كل من الخصائص باختبارها من مجموعة المتغيرات على يسار الشاشة Varriables و لمزيد من توضيح مكونات البيانات ، لنضيف مكون مخطط التشتت Scatter plot كما فعلنا في الدرس الأول و لكن هذا المخطط بالوضع الحالي لا يعطي معلومة مفيدة ، حيث أن التداخل بين الأنواع الثلاثة لزهرة السوسن لا يبدو جليا ، و لذلك نضغط على خيار Find Informative project و الذي يوضح لنا افضل العلاقات بين المتغيرات التي تعطي علاقة واضحة و نختار مثلا العلاقة بين طول و عرض الأوراق الملونة Petal و نلاحظ أن الخيارات مرتبة ترتيب الافضلية فى اضظهار المعلومات المفيدة و يوضح ذلك الخط البرتقالي اسفل كل خيار و عليه سيظهر لنا رسم يوضح تصنيفات الازهار الثلاثة بطريقة واضحة اعتمادا على متغير طول و عرض الورقة Petal Lenght adn Width بحيث تظهر ان اقلها ابعادا هي ال · IRIS-Setosa و التي تظهر باللون الازرق و اكبرها ابعادا هي ال · IRIS-Virginica و التي تظهر باللون الاخضر و بذلك يعطينا المخطط مفهوم واضح لاحدى المعلومات الموجودة فى قاعد البيانات كما يظهر وجود تداخل بين ابعاد · IRIS-Versiolor · IRIS-Virginica و للتاكد من المعلومة ( أي وجود تماثل بين بعض ابعاد هذين النوعين) لنختار بعض نقاط التماس بينها و ستظهر هذه النقاط معلمة في المخطط و الان لنضيف مكون Data Table إضافي ليظهر لنا هذه النقاط المختارة لنتحقق من بياناتها و لنضغط على المكون المضاف أخيرا ، ليظهر لنا فقط بيانات النقاط المختارة في المخطط أي ان الاختيارات في المكونات تظهر اليا في المكونات المرتبطة و هذه خاصية من الخصائص المفيدة التي سنستخدمها كثيرا و بمراجعة بيانات النقاط المختارة ، نجد أنها فعلا تخص النوعين المذكورين و ان بياناتها متقاربة و سنلاظ أيضا انه كلما غيرنا النقاط المختارة فى مخطط التشتت ، تغيرت البيانات فى هذا الجدول الاخير لتعكس الاختيار و هكذا نصل الي نهاية الدرس الثاني مرفق الملف الخاص بالمثال Lessons 02 .rar الدرس الثالث من هنا

تم التعديل اضافة عدة مرفقات وفتح مرفق .rar

الأستاذ الفاضل المحترم : بن علية حاجي بارك الله في حضرتك وجزاك الله كل خير بالفعل هذا هو المطلوب جزاك الله خيرا وجعل جميع اعمالك في موازين حسناتك .

السلام عليكم رجاء متابعة عمل الاستعلام CrossTab في اول مشاركة اعلاه، الان نريد التقرير ان يكون الى سنة 2020 مثلا ، فلاحظ اننا اضفنا هذه السنوات في عمود السنوات Yeaa ، والذي هو "مسمى للعمود" Column Heading : . على اساسه ، نرى ان الاستعلام اعطانا اعمدة للسنوات التي اردناها ، والسنه اللي ما فيها قيمة ، تركها فاضية (وهو المطلوب): . طلبت من الاكسس يعمل تقرير من الاستعلام ، ونرى ان الاستعلام هو مصدر بيانات التقرير: . لاحظ طريقة تسميتنا لكائن التسمية ، وقمنا بهذا العمل لتسهيل عمل الكود: . ثم استعملنا هذا الكود ، ليجعل عرض الحقول = 0 ، للسنوات التي لا يوجد بها قيمة ، ويخفيها كذلك: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim ctrl As Control Dim A As Integer For Each ctrl In Me.Controls If ctrl.ControlType = acTextBox And IsNumeric(ctrl.Name) Then A = DCount("*", "Table1", "[Yeaa]=" & Val(ctrl.Name)) 'Debug.Print "A " & A & "-" & ctrl.Name If A = 0 Then ctrl.Width = 0 ctrl.Visible = False Me("Label_" & ctrl.Name).Width = 0 Me("Label_" & ctrl.Name).Visible = False Else ctrl.Width = 1 * 1440 ctrl.Visible = True Me("Label_" & ctrl.Name).Width = 1 * 1440 Me("Label_" & ctrl.Name).Visible = True End If End If Next End Sub . وهذه هي النتيجة ، اعطانا التقرير السنوات التي بها قيمة فقط: . وللتجربة ، اضفنا قيمة لسنة 2018 . فكانت نتيجة التقرير ، وهو المطلوب: . ولكن لم يعجبني تنسيق التقرير المائل لليسار ، فأردت ان اجعله في وسط الصفحة ، بغض النظر عن بيانات السنوات ، فأضفت حقل فاضي وكائن تسمية ، شفافي الخلفية والاطراف ، وغير مضمن: . وعليه ، تغير الكود ليقوم بتوسعة هذين الحقلين المطاطين ، فاصبح: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim ctrl As Control Dim A As Integer Dim Empty_Cells As Integer Empty_Cells = 0 For Each ctrl In Me.Controls If ctrl.ControlType = acTextBox And IsNumeric(ctrl.Name) Then A = DCount("*", "Table1", "[Yeaa]=" & Val(ctrl.Name)) 'Debug.Print "A " & A & "-" & ctrl.Name If A = 0 Then ctrl.Width = 0 ctrl.Visible = False Me("Label_" & ctrl.Name).Width = 0 Me("Label_" & ctrl.Name).Visible = False Empty_Cells = Empty_Cells + 1 Else ctrl.Width = 1 * 1440 ctrl.Visible = True Me("Label_" & ctrl.Name).Width = 1 * 1440 Me("Label_" & ctrl.Name).Visible = True End If End If Next Me.Empty_Space.Width = (1 * 1440 * Empty_Cells) / 2 Me.Label_Empty_Space.Width = Me.Empty_Space.Width End Sub . وهذا التقرير بالتنسيق الجديد ، وبدون 2018 . وعند اضافة 2018 في بيانات الجدول ، نلاحظ ان التقرير اخذ تنسيقه الصحيح في وسط الصفحة كذلك: . فإقتراحي ان تجرب احجام الحقول (العرض المستخدم في هذا البرنامج هو 1 بوصة) والخط بما يتناسب في التقرير ، ثم تدخل في الاستعلام السنوات المستقبلية ، ويكون التقرير جاهز لكذا سنة في المستقبل ، الى ان تقوم بعمل تحديث للبرنامج ، وتحذف السنوات القديمة ، وتستبدلها بسنوات مستقبلية جديدة جعفر 783.عرض تقرير.accdb.zip

السلام عليكم انا قلت "المفروض" ، وما قلت ما يصير !! الاستعلام اصبح: SELECT Tabil_Visitors.id_visitors, Tabil_Visitors.Num_brnamge, Tabil_Visitors.service, Tabil_Visitors.Travel2, Nz(DCount("[Travel2]","Tabil_Visitors","[Num_brnamge]=" & [Num_brnamge] & " and [Travel2]=" & 1),0) AS Expr1, Nz(DCount("[Travel2]","Tabil_Visitors","[Num_brnamge]=" & [Num_brnamge] & " and [Travel2]=" & 2),0) AS Expr2, IIf([Travel2]=1 Or [Travel2]=2 Or [Travel2]=3 Or [Travel2]=6 Or [Travel2]=7 Or [Travel2]=8,Nz(DCount("[Travel2]","Tabil_Visitors","[Num_brnamge]=" & [Num_brnamge] & " And [Travel2]=" & [Travel2]),0),0) AS Expr3, IIf([service]=1 Or [service]=2 Or [service]=3 Or [service]=6 Or [service]=7 Or [service]=8,(SELECT TOP 1 Sum(1) AS Total_Beds_Flight FROM Tabil_Visitors WHERE (((Tabil_Visitors.service) In (1,2,3,6,7,8))) GROUP BY Tabil_Visitors.Num_brnamge HAVING (((Tabil_Visitors.Num_brnamge)=[forme_Fatora]![num_brnamge]));),0) AS TT FROM Tabil_Visitors WHERE (((Tabil_Visitors.Num_brnamge)=[forme_Fatora]![num_brnamge])); . والنتيجة: . جعفر

السلام عليكم استعمل الاداة: . لكي تعرض الكود في المشاركة بطريقة صحيحة ، ليسهل علينا قراءة الكود : Private Sub p1_Click() If Now() - [time] > 0.01041667 And [error_level] = 3 Then [error_level] = 0 End If If IsNull([n3]) Then DoCmd.OpenForm "user1", acNormal Else If [error_level] = 3 Then Ms$ = "تم ايقاف المستخدم 15 دقيقة " Ti$ = "و" RE = MsgBox(Ms$, 0, Ti$) Else If IsNull([user_name]) Or IsNull([password]) Then Ms$ = "اضف اسم المستخدم وكلمة المرور" Ti$ = "و" RE = MsgBox(Ms$, 0, Ti$) Else If [user_name] = [n1] And [password] = [n2] Then DoCmd.OpenForm "user3", acNormal [error_level] = 0 DoCmd.Close acForm, "user2" Else [error_level] = [error_level] + 1 [time] = Now() Ms$ = "كلمة المرور خطأ للمرة" & [error_level] n2.SetFocus Ti$ = "و" RE = MsgBox(Ms$, 0, Ti$) End If End If End If End If End Sub وما فيه اي مشكلة وعند فتح احد النماذج مثلا CC نفتحه بهذا الكود If [CC] = 0 Then DoCmd.OpenForm "CCC" Else DoCmd.OpenForm "CC", acNormal, , , , acDialog End If . جعفر

وعليكم السلام المفروض يكون عندك استعلام عام ، واستعلام تجميعي يكون فيه البيانات المطلوبة: . جعفر 779.1.QryVisitors.accdb.zip

السلام عليكم تم التعديل على معادلات الصفوف 2-3-4 من الورقة 1 الخاصة بالشهور (الصف2 : تم تغيير المعادلات تماما، أما في الصفين 3 و 4 فقد تم تعديل معادلات اليوم الأول من كل شهر فقط). تم أيضا إضافة عمود آخر لشهر فبراير في حالة ما إذا كان عدد أيام الشهر 29 مع معادلات خاصة في الصفين 3 و 4 لهذا اليوم... أرجو أن تكون التعديلات وافية لما تصبو إليه... بن علية حاجي Urlaubsübersicht neu.rar

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

معادلة العمود C كما كان: =(I6+H6+E6+D6)/5*J6 بينما اذا اضفنا العمود K لوضع المواد المعفاة بحرف م ، والعمود B فيه مجموع العلامات بإستثناء المعفاة م: =IF(K6="م",0,(I6+H6+E6+D6)/5*J6) . جعفر 781.كشف السنة الأولى ثانوي علمي.xlsx.zip

بعد إذن الأساتذة ولإثراء الموضوع إذا كان فهمي للمطلوب صحيحا فيكفي تغيير تنسيق الخلية إلى dddd ليظهر التاريخ باسم اليوم

السلام عليكم معذرة على التأخير وشكرا على التذكير... لست أدري إن كنت قد فهمت المطلوب جيدا! المهم هذه محاولة في الملف المرفق... بن علية حاجي analysis1718.rar

تفضل =Nz(DSum("[Travel2]";"Tabil_Visitors";"[Num_brnamge]='" & [Num_brnamge] & "' and ([Travel2]=1 or [Travel2]=2 or [Travel2]=3 or [Travel2]=6 or [Travel2]=7 or [Travel2]=8)");0)

الكود اعلاه يحسب على اساس القيمة 2 ، فاذا ما حصلت على النتيجة ، فيا تراجع الاستعلام ، او ترفق لنا هذه الجزئية من برنامجك جعفر

يعني اذا قصدك ان تستعين بالمعادلة داخل الاستعلام ، فيجب ان تعمل استعلام تجميعي جديد ، والمصدر الاستعلام اعلاه ، ثم تضيف الحقل التالي: D: Nz(count(iif([Travel2]= 2; 1;0));0) جعفر

عليكم السلام DoCmd.RunCommand acCmdOptions

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل عباس السماوي حفظك الله أجعل الكود على هذا الشكل من الترتيب Private Sub Workbook_Open() UserForm1.Show On Error Resume Next For Each sh In Worksheets sh.Visible = xlSheetHidden Sheets("abbas").Visible = True Next End Sub أخي الفاضل أحمد غانم حفظك الله بالنسبة لاضافة اي عدد من الاوراق سوف يقوم الكود باخفاءها جميعا واظهار فقط الورقة الموجود اسمها في الكود وهي هنا "abbas" أي بدل هذه الكلمة في الكود وضع أسم الورقة التي تريد أن يفتح الملف عليهاعوضا عنها. الأخوة أعلاه بلا أستثناء جميعاً حفظكم الله وجميع أساتذة وأعضاء منتدانا الحبيب أرجو المعذرة على التقصير أبو أنس

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

بعد أذن أحي أبو أنس بصراحة حاولت لنفسي كثيرا وقرأت أكثر لصنع كود إخفاء وإظهار للصفحات لم أجد أجمل ولاأروع من عمل عالمنا الجليل ( خبور خير) في هذا الكود أليك أخي إحدي روائعة مرفق 2.rar

السلام عليكم ورحمة الله وبركاته أخي الفاضل أنظر المرفق لعله المطلوب أبو أنس تنقل بين الصفحات.rar

ما زلنا في البداية ...

SQL DML and DDL ويمكن تقسيم SQL إلى قسمين: لغة معالجة البيانات (DML) لغة تعريف البيانات (DDL). الاستعلام وأوامر التحديث تشكل جزء DML • SELECT (حَدِد ) - استخلاص البيانات من قاعدة البيانات • UPDATE ( تحديث) - تحديثات البيانات في قاعدة البيانات • DELETE ( حذف ) - حذف البيانات من قاعدة البيانات • INSERT INTO (إدراج) - إدراج بيانات جديدة في قاعدة البيانات الجزء DDL من SQL يسمح لجداول قاعدة البيانات أن يتم إنشاؤها و حذفها. ويعرف أيضا الفهارس (المفاتيح)، تحدد الروابط بين الجداول، وتفرض القيود بين الجداول. و أهم جمل (عبارات) DDL في SQL هي: • CREATE DATABASE - إنشاء قاعدة بيانات جديدة • ALTER DATABASE - تعديل قاعدة بيانات • CREATE TABLE - إنشاء جدول جديد • ALTER TABLE - تعديل جدول • TABLE DROP - حذف جدول • CREATE INDEX - ينشئ فهرس (مفتاح البحث) • INDEX DROP - حذف فهرس

شكرا جزيلا أخانا أبا آدم و متابعون معك