كل الانشطه

استاذنا @ابوخليل من وجهة نظري افترضنا انتاج بلوفر ... فعملت كتالوج به المكونات وخلافه .............. لانتاجه هذه هي الجداول ونماذج انتاجها. هل اكمل.... . ProductionOrderCreateTables.rar

كلا أخي الكريم ، الخطأ في طريقة التنفيذ . لذا قمت بإضافة دالة بسيطة تقوم بتحديث الحقل الخاص بمسار الصور من خلال الدالة التالية :- Public Sub UpdateImagePaths() Dim dbPath As String Dim newBasePath As String Dim sql As String dbPath = CurrentProject.Path newBasePath = dbPath & "\Images\" sql = "UPDATE tblImportExcel SET PicPath5 = '" & newBasePath & "' & Mid(PicPath5, InStr(PicPath5, 'Images') + 7);" DoCmd.SetWarnings False DoCmd.RunSQL sql DoCmd.SetWarnings True End Sub واستدعاءها في حدث عند الفتح للنموذج أو اي نموذج يعمل في بداية المشروع . انظر ملفك وانقله على اي مكان تريد وجربه الآن . البرنامج.zip

اخي لقد نقلة البرنامج مع المجلد ولم اجد الصور اخي هل يوجد خطاء في البرنامج

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

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

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

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

السلام عليكم اريد عند اضافة صورة يتم تخزنها داخل البرنامج ليس في المجلد البرنامج.rar

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

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

انار الله دربك فشكرا لك الجملة التي تفضلت بها هي عين الصواب تم تعديل الجملة ...... والتجربة اكثر من رائعة 100% 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 للجهاز ويسجل في الوقت الذى يريده