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

💣 تحميل اللعبة للنواتين :- Minesweeper v 4.0 - 64.accde.zip Minesweeper v 4.0 - 32.zip

نعم ... مع زيادة فضل لعملك حيث ان استعلامك اخف

هههههه نفس المبدأ تقريباً ، ولكن هنا عند التحميل يفرض القيمة دائماً وهي أسلم وأأمن .. المهم اطلاق سراحه بدون قيود 😅

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

انار الله دربك فشكرا لك الجملة التي تفضلت بها هي عين الصواب تم تعديل الجملة ...... والتجربة اكثر من رائعة 100% WIL6.rar

في الكومبوبوكس "Wil_Miled" قمت كتجربة بتغيير الحدث بعد التحديث من :- Me.Com_Miled.Requery ليصبح في النموذج الفرعي F2_Sub كالتالي ( كتجربة ) :- Private Sub Wil_Miled_AfterUpdate() If Not IsNull(Me.Wil_Miled) Then Me.Com_Miled.RowSource = _ "SELECT TblWsub.ID, TblWsub.N_C, TblWsub.Code_W " & _ "FROM TblWsub " & _ "WHERE TblWsub.Code_W = " & Me.Wil_Miled & " " & _ "ORDER BY TblWsub.N_C;" End If End Sub وكانت النتيجة كالتالي :- إلا أنني غير راضٍ عن الفكرة 😢 . رغم أن أحد التقويض في الحلول هو أن النماذج الفرعية = نماذج مستمرة !!!!

وعند الموافقة فتح على نموذج صامت المرفق المستخدم هو 32

بما أن أفكار معلمي أبو خليل لا تنتهي ( مشكوراً على جهوده التي نتعلم منها ) . وددت المشاركة على الهامش في ملف المشاركة الأصلية كالتالي .. في مربع النص "مكان الميلاد" الحدث نفسه عند الخروج ( كما هي رغبة أخي طاهر ) :- Private Sub مكان_الميلاد_Exit(Cancel As Integer) Dim sourceInfo As String sourceInfo = Me.Name & "|" & Me.Parent.Name DoCmd.OpenForm "C1", , , , , , sourceInfo End Sub طبعاً هذا الكود سيمرر اسم النموذج الفرعي واسم النموذج الرئيسي مفصولين بإشارة "|" إلى النموذج "C1" الآن في النموذج "C1" قمت بحجز المتغيرين والحدث التالي عند تحميل النموذج :- Private sourceSubform As String Private sourceMainForm As String Private Sub Form_Load() If Not IsNull(Me.OpenArgs) Then Dim parts() As String parts = Split(Me.OpenArgs, "|") If UBound(parts) = 1 Then sourceSubform = parts(0) sourceMainForm = parts(1) End If End If End Sub وفي الكومبوبوكس Com_Miled ، قمت بتحديث الكود ليصبح :- Private Sub Com_Miled_AfterUpdate() If sourceSubform <> "" And sourceMainForm <> "" Then With Forms(sourceMainForm).Controls(sourceSubform).Form .Com_Miled = Me.Com_Miled .Wil_Miled = Me.Wil_Miled End With End If DoCmd.Close acForm, Me.Name End Sub وبالتالي النتيجة خرجت معي بهذا الشكل :- ملاحظة :- لم أقم بالإطلاع على أي ملف مرفق تمت مشاركته .. WIL.zip

وعليكم السلام ورحمة الله وبركاته عمي جعفر @jjafferr 🙂 شكرا لك على الإطلالة اللي تبهج النفوس 🙂🌹 رديت على سؤال عمنا أبو خليل هنا 😊👇 فعلا وهذي هي طريقة الاستخدام اللي ذكرتها في الشرح .. وفعلا أنا مستخدمنها وضايفنها كجزء من برنامج متابعة المهام الخاص بي في جهة العمل 🙂 : والأفكار في تطوير هذا المشروع كثيييييييييييييرة ما شاء الله

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

وعليكم السلام ورحمة الله راجع الملف المرفق لعل فيه ما تريد Example.xlsm

يالغالي استاذ خليقة وهو المطلوب تحياتي لك و بارك الله فيك وجزاك الله خير ♥️🌹🙏

أنا قد سبق إلى ظني أنه من الممكن استخدام التعبير الذي ذكرتَه (.. vbcr ) خلال الكود البدائي الذي وضعتُه أنا بدل استخدام جملة Call SendKeys("= ", True) لكن .. يبدو أني أخطأت الفهم ، وأنك كنت تعني أخي الكريم أنه إذا أردنا تجنب سلبية استخدام أمر (SendKeys) فعلينا أن نستخدم دالة أخرى وطريقة أخرى مختلفة، وهي الطريقة التي استخدمتَها أنت، بتحديد ما قبل وما بعد المؤشر والإضافة بينهما وهذا يجيب على التساؤل الذي دار في ذهني عندما رأيت الكود الذي تفضلت به: لماذا لم تستخدم أمر (SendKeys) الجواب: لهذه السلبية

بالضبط ، أخي الكريم .. الأمر SendKeys له تأثير على مفتاح الـ NumLock . ولكن هناك دوال يمكن ان تتفقد حالته وتعيد تشغيله عندما تكون حالته = Off يمكن استخدام التعبير & vbCrLf & لإضافة سطر جديد . على سبيل المثال :- vbCrLf & "= "

سلام عليكم اخي عبد الله اخي ابو عيد اشكركم على هذا الرد فيما يخص الاداة اخي عبد الله لم اجدها ولا في المكتبة لعلمكم الاداة حملتها من موقع https://www.microsoft.com/fr-fr/download/details.aspx?id=10019 مثل ما هو مذكور في الفيدو ل ابو عيد لكن لم افلح باضافتها مع العلم لدي الجهاز الاول اوفيس 2007 والثاني اوفيس 2013 اشكركم على الملفات ولو انهم لم يفتحو بحكم ان الاداة غير موجودة جزاكم الله خيرا وجعلها في ميزان حسناتكم اتمنى ان اجد الطريقة لاضافة هذه الاداة والسلام عليكم ورحمة الله تعالى وبركاته

السلام عليكم اجمالي المبكر الدقائق والتي بعلامة -00:00 وايضاً الدقائق المتاخره بكود TRIP_01 (1) (2).xlsb

تفضل تم اعداد البرنامج للعمل على الانترنت حتى لو تم تغيير تاريخ ووقت الجهاز فالبرنامج يعمل على الوقت العالمي الحقيقي قبل العمل على البرنامج افتحه على التصميم .. وافتح نموذج TimeF على التصميم ثم افتح محرر الفيجوال الخاص بهذا النموذج ستجد هذا السطر ضمن الكود : varGeneralDate = InternetTime(3) وبما انك في مصر غير الرقم 3 الظاهر الى 2 ... لو حذفت الرقم مع اقواسه سيظهر لك توقيت غرينتش تلميحات : 1- لن يعمل التحضير عند انقطاع النت .. وستظهر رسالة تنبه بذلك .. ( هذا يفتح بابا آخر : ماذا لو اخذنا بالاحتياط واحتفظنا بالفورم المحلي للتحضير من خلاله عند الضرورة) 2- ستلاحظ بطئا قليلا عند فتح نموذج الحضور .. وسيكون البطء طرديا تبعا لسرعة النت .. عندي يأخذ ثانية واحدة فقط 3- عند فتح نموذج الحضور : الساعة تأخذ 10 ثواني من الوقت حتى تظهر .. ويتحدث الوقت كل 10 ثواني ايضا والسبب انا الذي جعلت عداد الوقت ( التايمر ) 10 ثواني .. حتى يأخذ الكود وقتا كافيا لجلب الوقت من الموقع .. حينما نجعل العداد ثانية واحدة يحصل مشكلة بسبب النت واحيانا يهنق البرنامج .. فالاحتياط هنا ضروري .. حتى لو جعلنا العداد يتحدث كل دقيقة (60 ثانية ) فهو شيء مقبول ومعقول . جرب ووافني بنتيجة تجربتك ChkInOut_InterNet.rar

بارك الله فيك اخي عبدالله وللاخوان الي ماقصرو ولكن هل في دالة تجمع لي اجمالي المبكر الدقائق والتي بعلامة -00:00 وايضاً الدقائق المتاخره

جرب الصيغة التالية =IF(AND(ISNUMBER(E2);ISNUMBER(F2));IF((F2-E2)<(-59/86400);"مبكر";IF((F2-E2)=0;"في الوقت";IF(AND((F2-E2)>0;(F2-E2)<(10/1440));"ليس على الوقت""متأخر")));"-") TRIP_01 (3).xlsx

لدي بعض الملاحظات والتوجيهات التي تسهل عمل المشروع ونخرج بعمل احترافي منضبط اولا- يا ابا معاذ لا يصلح استخدام الحروف العربية في تسمية الكائنات والعناصر ثانيا- يجب انشاء اربع عناصر رئيسية : 1- جدول خاص باسماء ومعرفات المنتجات الرئيسية النهائية 2- جدول خاص بالمواد الاولية يحتوي على : اسم المادة / الوحدة / سعر الوحدة 3- جدول فرعي تحت جدول المنتجات يرصد فيه امام كل منتج المواد الاولية التي يحتاجها 4 - جدول العمليات ( التفاصيل ) او نسميه جدول خط الانتاج

تفضل استاذ @gavan حسب مافهمت اليك المرفق . Test-2.accdb

ابشر شغال عليه لكن محتاج وقت .

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

وعليكم السلام ورحمة الله وبركاته اخوي موسى، دائما افكارك عملية وفيها تحدي، شكرا لك 🙂 وهي نفس ملاحظتي 🙂 في رأيي الشخصي ، هذه الملصقات يجب ان تكون جزء من برنامج تذكير (او برنامج متابعة المهام) ، وفي برنامج التذكير يكون عندنا يوم/وقت (يمكن التوسع في الاعدادات) لظهور هذه الملاحظات للمستخدم الذي عمل الملاحظة ، ويستطيع المسؤول عمل هذه الملاحظات ايضا لتظهر لمستخدم معين او جميع المستخدمين. فكرت استعمال هذه الملاحظات عن طريق الوندوز بواسطة برنامج Sticky Notes عن طريق CMD او PowerShell ، ولكن الوندوز 7 يختلف عن الوندوز 10 ، وتحتاج ان يسمح النظام لفتح هذه الملفات!! الفكرة الان هي: 1. بث نموذج الملاحظات (مثلا في زاوية البرنامج اعلى اليسار) ، بحيث يمكن استعمال نفس النموذج الفرعي ، ويمكن ان تكون هناك ملاحظة ، ثم تتبعها ملاحظة اخرى تحتها ، وهكذا ، 2. او الاستفادة من نموذج واحد لعدة ملاحظات (عرض نفس النموذج عدة مرات ، بحيث يستطيع المستخدم تحريك كل ملاحظة بطريقة مستقلة) ، هكذا : 3. او يمكن استعمال الرسالة التي تخرج فوق الساعة Ballon Tip : . كنت اتمنى اقدر اعمل هذه الملاحظات في برنامج ، ولكن للاسف لا يسمح لي وقتي الان 😞 جعفر

وعليكم السلام ورحمة الله وبركاته المشكلة الرئيسية هي في منطق البحث البحث عن الأعمدة يتم من الصف 3 (G3:U3) ولكن البيانات تبدأ من الصف 4 الإزاحة (offset) غير صحيحة عند استخراج القيم اليك التعديل تنسيق ترتيب الجداول الكمية مع اسم الصنف مع التاريخ التابع له - Copy - Copy.xlsm

أستاذي ومعلمي (دغيدي ) هذا مرفق كان قدتم عمله لأستاذي ( سعيد بيرم ) عن مكافأة الأمتحانات ربما تستشف منه ماتريد ضرب الاعداد الصحيحة × كسر القرش - سعيد بيرم_9.rar

اخى دغيدى السلام عليكم ======== 1 ***الدمغة العادية فى حالة عدم وجود الأساسى المجرد يتم جمع اساسى العام الحالى + بدل المعلم + بدل الاعتماد ويطرح منه 100 ثم يتم ضرب الباقى فى6 على 1000 هذا بالنسبة للمعلم الذى يتقاضا كادر 2 ***اما بالنسبة للموظف الذى لا يتقاضى كادر يتم طرح 50 جنيه من الاساسى فقط ويضرب الباقى فى 6على1000 وتسمى دمغة البدلات 3 ***اما فى حالة وجود الاساسى المجرد لكل العاملين بالنسبة للمعلم الذى يتقاضا كادر يجمع الاساسى المجرد + بدل المعلم + بدل الاعتماد اذا كان اقل من 50 جنية ليس لهدمغة بدلات واذا كان اكثر تخصم 50 جنيه ثم يضرب الباقى فى 6 على 1000 ويجمع عليها دمغة المجرد تصبح هذة هى الدمغة العادية للمعلمين ***اما الموظفين فليس لهم دمغة بدلات يوضع لهم دمغة المجرد ودمغة المجرد هذه عبارة عن جدول يعرفة المتخصصين فى المرتبات عبارة عن شرائح لكل اساسى مجرد تبدا من 58 بالنسبة للاساسى المجرد تزود كل شريحة 10 جنيهاتحتى تصل يكون 1000 جنيه وبالنسبة للدمغة تبدا من 0.05 لكل شريحة ويزود 5 قروش لكل شريحة حتى تصل الى 0.75 قرش مرفق ملف للتوضيح ولكم جزيل الشكر الدمغة العادية.rar