كل الانشطه

الف شكر استاذنا / عبدالله بشير عبدالله عندك حق لقد نسيت اضافة البحث فى العمود (G3:U3)

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

انار الله دربك فشكرا لك تمام .. انا فكرت بالاستفادة من الاستعلام كمصدر بيانات ولكني لا احب زحمة الادوات .. خاصة ونحن لدينا نموذجين فرعيين .. بالمطلب نفسه الجملة التي تفضلت بها هي عين الصواب وينقصها شرط صغير فقط تم تعديل الجملة ...... والتجربة اكثر من رائعة 100% If Not IsNull(Me.Wil_Miled) Then Me.Com_Miled.RowSource = "SELECT TblWsub.ID, TblWsub.N_C, TblW.Code_W " & _ "FROM TblW INNER JOIN TblWsub ON TblW.Code_W = TblWsub.Code_W " & _ "WHERE TblW.Code_W =[forms]![f1]![F2_Sub].[Form]![Wil_Miled]" End If WIL6.rar

مع اني لست من مناصري استخدام الاكسس خارج اطار قواعد البيانات ولكن الإبداع الذي اراه في هذا العمل يستحق الإعجاب والتقدير فعلاً الأخت @hanan_ms مبدعة وتستحق ان تكون ضمن خبراء الموقع لانها دائما تثبت أن بالإمكان استخدام الاكسس لوظائف اخرى الى جانب قواعد البيانات وعندما أرى مثل هذا التمكن في البرمجة كما في هذا الموضوع او مواضيع الاخوة @Foksh و @jjafferr و @Moosak و @ابوخليل وبقية الاخوة الذين لايسع المجال هنا لذكرهم فلسان حالي كما يقول المثل (كلما قلنا عساها تنجلي .. قالت الايام هذا مبتداها 🫣) وان طريق التعلم مازال طويلاً شكرا لمبدعي المنتدى لكل ماتقدموه تحياتي

تم تعديل النسخة 32 ، شكراً لك معلمي الفاضل للمتابعة

مرفق الملف مع التعديلات Z1.rar

السلام عليكم أحبتي أريد إضافة موسيقي لملف الاكسل به مؤقت (كرونومتر) تبدأ مع بداية العد و تتوقف مع توقفه crono.xlsm

في الكومبوبوكس "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 🙂 شكرا لك على الإطلالة اللي تبهج النفوس 🙂🌹 رديت على سؤال عمنا أبو خليل هنا 😊👇 فعلا وهذي هي طريقة الاستخدام اللي ذكرتها في الشرح .. وفعلا أنا مستخدمنها وضايفنها كجزء من برنامج متابعة المهام الخاص بي في جهة العمل 🙂 : والأفكار في تطوير هذا المشروع كثيييييييييييييرة ما شاء الله

غريب .. عجيب راجعت المثال اعلاه فوجد فيه خلل .. يبدو اني لم اتأكد منه تفضل تصحيح WIL5.rar

طريقتي أو الفكرة اذا المتلاعب اتى بعد حضور عدد من الموظفين ويريد يعمل كما ذكرت حتى لو يعمل فورمات للجهاز وليس اعادة تشغيل فلن يتمكن من التوقيع الا بعد وقت توقيع آخر موظف حضر .. طبعا سوف تقول ان آخر موظف وقع في 8:30 والمتلاعب اتى في العاشرة من المؤكد يكفيه ان يرجع وقت البرنامج فقط الى 8:31 .............. ومع ذلك يوجد حل لهذه المشكلة الأخيرة ويمنع التلاعب بشرط بقاء الفورم مفتوح طيلة الوقت

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

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

فكرت في هذا الأمر وبحثت فيه مرارا وتكرارا لكن دون جدوى قلت مرة نجعل قاعدة البيانات تفتح تلقائيا مع الويندوز عن طريق Shell:startup وبهذا يتم تسجيل الوقت الأول للفتح ، لكن وجدت أنه يستطيع المتلاعب أن يفتح الجهاز ويغير الساعة ويقوم بعمل restart للجهاز ويسجل في الوقت الذى يريده

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

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

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

يتشرف #مركز_الرؤية_الاستراتيجية_للتدريب #Strategic_Vision_Training_Center لدعوة سيادتكم للأنضمام الي الدورات التدريبية التالية,,,,, دورات تدريبية فى القيادة وادارة وتطويرالمؤسسات مقدمة إن أهمية الدورات التدريبية ليست قاصرة فقط على الحياة المهنية كما يظن أغلبنا .. ولكن الدورات التدريبية تهدف إلى نقل المعرفة والخبرات العملية التى تثقل مهارات الأفراد وتعزز الثقة بالنفس لديهم مما يساهم في إعداد الكوادر مما يعود بدوره على تطوير وتقدم المؤسسات .لذا يهدف مركز الرؤية الاستراتيجية للتدريب إلى تعزيز مهارات وخبرات الافراد من خلال أقوى البرامج التدريبة لنواكب كل تطور في سوق العمل . #دورات #القيادة #ادارة #تطوير #مؤسسات دورة ممارس معتمد لمؤشرات الأداء الرئيسية دورة البرنامج المتكامل إعداد خبراء الحوكمة المعتمدين البرنامج التدريبى دور الذكاء الاصطناعي في إدارة المؤسسات دورة إدارة العمليات الإدارية وإستراتيجيات التخطيط الإدارى المتقدم دورة استراتيجيات إعادة هندسة وتحسين عمليات الاعمال دورة التخطيط الاستراتيجي دورة الحوكمة وإدارة المخاطر والامتثال والضوابط الداخلية دورة القيادة المرنة للمؤسسات عالية الأداء ‏ دورة المهارات القيادية والجدارات الادارية واللياقة الفكرية دورة تبسيط إجراءات العمل لإنتاجية افضل دورة قيادة التغيير- عوامل النجاح الحاسمة دورة مهارات الإدارة الوسطى دورة مهارات وفنون القيادة والحضور القيادي دورة حوكمة الشركات دورة مهارات الادارة المتقدمة دورة إستراتيجيات التخطيط والتنظيم الإداري والتوجيه وإدارة الأزمات دورة التخطيط الإستراتيجي ومؤشرات قياس الأداء الرئيسية (KPI) دورة الفكر المتقدم والتوجهات العالمية لمهارات المدير العصري وتطوير أداء المنظمات دورة المهارات الحديثة فى التعامل مع ضغوط العمل وحل المشكلات دورة بطاقة الأداء المتوازن BSC دورة تحليل ABC للموظفين و استراتيجيات التعامل الفعال مع كل صنف من الموظفين دورة صياغة الاستراتيجية ووضع الأهداف ورسم السياسات برنامج تأهيلي للمدراء لتمثيل المؤسسة في الإجتماعات و اللجان الخارجية التخطيط الاستراتيجي والقيادة الابداعية كما يتم تنفيذ #الدورات_التدريبية فى #المجالات_التدريبية الاتية : #الدورات الهندسية ) الكهربائية - الميكانيكية والسيارات - الهندسة المدنية والمشاريع والطرق - هندسة المساحة - الصيانة - البترول والجولوجيا( دورات البيئة وصحة وسلامة الغذاء دورات الامن الصناعي والسلامة والصحة المهنية دورات الامن دورات القانون والعقود دورات الجودة والأنتاج دورات القيادة والادارة دورات العلاقات العامة والدولية والاعلام دورات السكرتارية وادارة المكاتب دورات التسويق والمبيعات وخدمة العملاء دورات الموارد البشرية دورات المحاسبة والمالية دورات البنوك والمصارف دورات المشتريات والمخازن دورات النقل و اللوجستيات وادارة سلاسل التوريد أماكن الانعقاد ( #دبي #اسطنبول #كوالالمبور #المغرب #السعودية #شرم_الشيخ #القاهرة #الأسكندرية #لندن # اسبانيا #كندا ) الاعتمادات احصل الان على شهادتك باعتماد cpd الدولى كما يوجد خصم للشركات والهيئات والجهات الحكومية والمجموعات كما يتم تنفيذ أي دوره تدريبيه اخرى تلبي احتياجاتكم التدريبية بالوقت و بالمكان المناسبين لكم على ان يكون عدد المشاركين (2) كحد ادنى قاعات التنفيذ بفنادق 5 نجوم ذات الشهره العالميه مجهزه بالوسائل السمعيه والبصريه للتسجيل او لطلب العرض الفنى والمالى يرجى الاتصال او ارسال بريد الاكترونى Ahmed Mohamed 00201551848384 WhatsApp Training@svtcenter.com www.svtcenter.com Facebook https://www.facebook.com/profile.php?id=100086139318374 Twitter https://twitter.com/StrategicVisio7 Linkedin https://www.linkedin.com/company/strategic-vision-training-center/ Instagram https://www.instagram.com/strategicvisiontrainingcenter WIX https://eslam-training.wixsite.com/training Website https://www.svtcenter.com/ar/Home

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

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

لم أفهم ما ترمي إليه ..

كيف يمكن استخدام هذا الأمر في الكود الذي أرفقتُه وما هو الأمر الذي يوضع قبله؟