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

وعليكم السلام Dim i As Boolean i = Forms!FORMS_101!FARY_ADD!CK_1 If i = True Then DoCmd.OpenReport "REBORT_101", acViewPreview Else DoCmd.OpenReport "REBORT_102", acViewPreview End If 334.mdb

جرب هذا الملف في مجال اليحث يجب كتابة (3 أخرف على الاقل) و الضغط على انتر activité _salim.xls

إخوتي الفضلاء أود هنا ان أوصل بعض الأفكار لإخوتي ، أرجو أن يتسع لها صدركم ، و تدركوها مني ببساطة و بدون تأويلات أو تحريفات ، إنما هي بعض خبرة و نصائح و تصريح. نحن هنا في مجتمع علمي محترم و ذو اصول راسخة عبر السنوات ، يحترم بعضنا بعضا ننقل هنا العلوم التي تعلمناها بكل طيب خاطر و رغبة ( و كل حسب نيته ) و لكنها عندي لوجه الله تعالى العلم الذي نتداوله هنا علم تجريبي لا يترسخ بسهوله الا اذا امتزج برغبة ، و هو كغيره يتفلت منك ، ما لم تواظب عليه ، و هو تراكمي يستند على بعضه و يتراكب و معظمه ثابت و ضمن محددات لغة البرمجة ، و له طرقه و تشعباته و ارتباطاته ، و حين تتعلمها تصبح لك و من مخزونات معارفك و خبراتك لا حقوق ملكية و انفراد للمنشور في المنتديات العلمية في مثل ما نحن فيه ، فمن يبتغي غير ذلك يغلق على افكاره و يحميها و يضعها حيث لا يدركها الناس و يبيعها و يتاجر بها كما يشاء. هناك شيئ اسمه تقدير و ليس حق احتكاري مطلق في مثل ما نتاوله ، فان تذكرت من اين اتيت به و ممن تعلمته فاحببت ان تقدر المصدر فخير ... العالم و اسع و ان كنا نظنه قرية صغيرة ، فالقرية افتراضية و العالم الواسع واقع ، فما لا تعرف انه موجود في العالم لا يعني انه غير موجود حقيقة ، و ان كنت موجودا في القرية فلا يعني ان كل من في العالم يعرفك لكل مسلكه و طريقته و منهجه بالتفكير في الحلول البرمجية ، و انما الامور بنتائجها ، فعندما نحقق النتيجة تنتهي المسالة ببساطة ، مهما كان منهج الوصول اليها من قصر أو طول بمراحل متعددة أو مختصرة ، باستعلام او بوحدة نمطية ، بنموذج ام بتقرير ... ، فلا صحيح بالمطلق و لا خطأ بالمطلق و لا مرجعية للاشخاص الا ( بالتقدير ) ، و لكل منهجه و رؤيته. أبحث و انقب و أدرس و أجرب و أعالج أفكاري و الافكار المطروحة بطريقتي ، فإن كانت كما يرى أخي و ناسبته فهي مسألة و حل برمجي تعلمه و هو حق مطلق له ، لا يسأل عنه ، و لا فضل لي عليه فيه ، و لا أبتغي أجراً منه أو مديحاً الا ما يظنه تقديرا بمنهجه وفكره ، فله كل احترامي و اعتزازي بذكره لي بالخير ، فجزاه الله خيرا ، و ان لم يناسبه فكراً و منهجاً فلا يقلل ذلك من قدري عند نفسي او عند غيري ، فما رأيته أنا و فهمته و وصلت اليه ، ببساطة ... لا يناسبه ، ذلك أمر يعنيه و هو سيد رأيه و ( يختار ) ما يتعلم و من أين يتعلم و كيف يتعلم و لا سلطان لي أو لغيري عليه . كنت فيما سبق أعتب على عدم الالتزام بالقواعد الاختيارية للمنتديات كالبحث و السؤال المتكرر و غيرها من التوجه لشخص معين ، و بالتجربه و مرور السنين أدركت سعة صدر القائمين على المنتديات ، فكل يختار كيف يتعلم ، فمن شاء ان يبحث فليبحث ففي البحر جواهر و درر ، و من شاء فليسأل مئة مرة حتى يجد مراده ، فمن شاور الناس شاركهم عقولهم ، و منتدياتنا هذه باب سؤال و طلب للعلم و المشورة ، و لا يؤخذ على طالب العلم سؤاله ، و لا يؤخذ على الباحث المنقب فعله . استمزاج الآراء و طرح تعدد الحلول متاح و مشروع ، و ربما يكون أكثر إحترافاً و مشروعية ( عند الطلب ) ، و فيما رأيت في المنتديات ، يكون الجميع راضياً - بغض النظر عن الآراء الشخصية – عندما يصرح السائل انه قد وجد مبتغاه و رضي ، و هنا يكون طرح تعدد الحلول من باب لزوم ما لا يلزم . المنتديات العربية و (الاجنبية ) تعج بالسائلين و المجيبين و تتعلم منها كثيرا كما نتعلم بمنتدانا هذا ، فلا فضل لهم علينا و لا فضل لنا عليهم ، و كثير منا مشترك في منتديات كثيرة بالعالم باسماء مختلفة منها القديم ومنها الحديث ، و كلنا نخوض بنفس العلم لاتحاد الغاية و الطلب ، فلا يتميز احدنا عن غيره الا بما يصل اليه من نتائج و ما ينشر من علم ( بغض النظر عن النية ) و ما يلتزم به من خدمة اقرانه ( بغض النظر عن النية ). لا فضل لي على أحد ، و لا فضل لأحد عليّ ( إلا بالتقدير ) فما اكتسبته جهدي و تعبي ، و ما اكتسبه إخوتي جهدهم و تعبهم و سهرهم و تجاربهم ونتاج أسئلتهم و افكارهم ، فكلنا عالة على أخيه ، لا نتمايز بالفضل و التلميح و التصريح ، و انا نتمايز بالعطاء و البذل قدر المستطاع. لا تلميح بالقول فهو جلً تصريح ، و انما هي أفكار و مشاعر راودتني من بعض المواقف و الاحوال ، أحببت أن أحيلها لتصريح و بيان ، حتى أعلن بيننا أنه لا فضل و لا منّة و لا فخر ولا تفاخر و لا تناحر ، إنما علم و تعلم و ( أدب علم ) و الله من وراء القصد ... و السلام عليكم و رحمة الله و بركاته

الحمد لله الذى تتم بنعمته الصالحات الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل

عمل جيد

وعليكم السلام ورحمة الله وبركاته عدل خصائص التكست بوكس كما في الصورة المرفقة

وعليكم السلام ورحمة الله وبركاته وانت بخير .. إذا كان المطلوب كما في الصورة المرفقة استبدل الكود ct.Fields(L) = tc.Fields(0) بـ ct.Fields(L) = tc.Fields(1) بالاضافة يحتاج تعدل على جدول Class-teacher عدل خصائص lookup حق السبت1 إلى Text Box

استاذي الفاضل ابا جودي ربي يحميك من كل سوء يارب يارب نعم هذا هو المطلوب جزاك الله خيرا سائلا الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية يارب وكل عام وانت بألف خيرا

شكرا جزيلا على اعطائي من وقتك اتمنى لك كل الخير ... شكرا

السلام عليكم ورحمة الله وبركاته اضع بين ايديكم اختصارات مهمة اثناء تعاملكم مع اكسيل مرفق ملف العمل اختصارات اكسيل.xlsx

أحسن الله اليكم أخوتي الفضلاء شكرا

هههههههههه انا اسف اخوى انا اللي شكلى خربط الدنيا من الجوع 😁😂😂😂 ProgEmp20-3.mdb

:: اكتب هذه الجملة بدل الجملة السابقة ... بالتوفيق If DLookup("[id]", "details") = [SaleID] Then MsgBox "هذه الفاتورة مسجلة مسبقا" Exit Sub Else DoCmd.SetWarnings False MsgBox "سيتم الحاق بيانات الفاتورة الى جدول التفاصيل" DoCmd.RunSQL "INSERT INTO Details ( ID, sDate, CustomerName, ItemsName, Qy, Price, Total )SELECT Sale.SaleID, Sale.SaleDate, Sale.CustName, Sub.Items, Sub.Qy, Sub.Price, Sub.Total FROM Sale INNER JOIN Sub ON Sale.SaleID = Sub.SubID" MsgBox "تم الالحاق" DoCmd.SetWarnings True End If

جزاك الله كل خير جعله الله فى ميزان حسناتك

مشكور معلم جزاكم الله خيرا

اتفضل القاعدة ProgEmp20_2.accdb

يمكن استعمال هذه المعادلة (ضعها اينما تريد ليس من الضروري الخلية A1) اسحب على الصفوف ثم نزولاً(قدر ما تريد) =ROWS($A$1:A1)*COLUMNS($A$1:A1) للمزيد هذا الملف MULT_TABLE.xlsx

بوركت

بوركت وفقك الله

ما شاء الله تبارك الله . لاحظ اخي حربي .. بعد ما تم معرفة الغرض من السؤال والتعديلات المطلوبة بدأ الاخوة بالرد . لان المطلوب والسبب معروف

ههههههههههه سبحان الله كنت انتظر الرد لأعرف رأيك اولا وهل اقتربت انا من طلبك لاكمل الباقى وسبقنى الأستاذ عبد الفتاح باكمال باقى الربط بالاوبشن جروب ☺ وتذكر كل اربع سنوات ياتى شهر فبراير ٢٩ يوم ومعاك فكرتين اولا فكرة أستاذى الجليل عبد الفتاح وثانيا فكرة العبد الفقير الى الله وطالب العلم واللهم اسال ان شاء الله ان تكون وجدت ضالتك

شوف ان شاء الله ان كان هذا طلبك قمت بعمل وحدة نمطية تحتوى على ومواد لاستخراج اسم الشهر بالسريانى والرومانية وكذلك عدد الايام تبعا لكل شهر وحسب تاريخ محدد حضرتك اصلا مش عامل فى الجدول حقل تاريخ انت كاتب اسم الشهر / السنة فقط لذلك قمت باضاقة حقل للتاريخ و قمت بالتصميم على مربعات نص غير منظمه لإيضاح آلية العمل انظر ايضا إلى الاستعلام باسم qryJudy يوضح الاستخراج الكامل لكل ما يتعلق بالتاريخ بناء على الأكوان بالوحدة النمطية 😉 انا اسف الشرح سريع وغير مفصل لانى ادخل من الجوال

السلام عليكم كل عام و أنتم بخير على قدر ما فهمت عند كتابة تاريخ فى datename يتم فحص الشهر فى هذا التاريخ 31/30/28/29 بدون تدخل و على حسب نتيجة الفحص يتم تحديد أحد مربعات الاختيار فى etar الخطوات أولا غيرت حقل datename إلى تاريخ ثانيا : هذه وظيفة لحساب عدد أيام أى شهر فى أى تاريخ تكتب فى نفس المودويل Function EndOfMonth(mDate As Date) As Variant EndOfMonth = Day(DateSerial(Year(mDate), Month(mDate) + 1, 0)) End Function ثالثا فى حدث "بعد التحديث " ل datename نكتب الكود التالى Private Sub DateName_AfterUpdate() Select Case EndOfMonth(Me.DateName) Case 31 Me.etar = 2 Case 30 Me.etar = 1 Case 28 Me.etar = 3 End Select End Sub و هذا ملفك بعد التعديل وفقكم الله ProgEmp20.rar

السلام عليكم ورحمة الله تعالى وبركاته اولا كل عام وانتم بخير ثانيا اتمنى يكون طلبك بالمرافق 😉 ProgEmp20_2.rar

استاذي الفاضل السلام عليكم ورحمة الله وبركاته ربي يحفظك يارب يارب عملت ماتفضلت به اذا امكن التعديل واجراء العمليات واكون ممنون لك استاذي الفاضل وهذا البرنامج بعد اضافة حقل غير منظم يظهر عدد ايام الشهر ProgEmp21.rar

يمكن استخدام النقطة التي ذكرها الاستاذ الفاضل ابا خليل

عليكم السلام مشكور على الهدية الرائعة وننتظر منكم المزيد

وعليكم السلام ورحمة الله وبركاته هل هذا ما تريد

جيد

أخي الفاضل هذا طلب أخر يرجى فتح موضوع جديد حرصاً على الالتزام بقوانين وأنظمة المنتدى ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

تفضل ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم قاعدة البيانات1K906.2.accdb