Foksh

أختنا الفاضلة @ايناس ، هذه المشاركة الـ 24 لك . وللأسف في معظم مشاركاتك تكون التفاصيل في طلبك غير واضحة 🙄 ، بالإضافة لعدم إرفاق أي ملف حتى يتم تطبيق طلباتك عليه. للحصول على أفضل نتيجة ولتلقي الرد المناسب لطلبك ، عليكِ بما ذكرته لك 😊 ، متمنياً لك الحصول على طلبك

بعد الاطلاع على المرفق أعتقد المشكلة في استعلام التوحيد. سبب كلامي هذا هو انني انشأت استعلام للجدول Cridi مشتق من استعلامك التوحيدي وقد تم جلب السجلات ، أما من الاستعلام فلم يتم جلب اي سجلات من اي جدول . وهذه صورة من نتيجة استعلام التوحيد بعد بعض التعديلات ، وأنا ( أعوذ بالله من كلمة أنا ) أعرف قدراتي في استعلامات التوحيد 😅 قد يكون لأحد الأخوة معلومة تفيدك وتفيدني معك 🥰

في هذا المرفق ؟؟

تريد فتح التقرير على الفلترة حسب السنة ؟؟

في هذا التعديل ، قمت بتحديث القيمة في النموذج مباشرةً بدلاً من عرضها في رسالة ، باستخدام السطر :- Me.FieldChangedFrom = rs.Fields(1).Value بدلاً من السطرين السابقين :- Beep MsgBox rs.Fields(1) لتحديث القيمة في النموذج مباشرةً بالقيمة الموجودة في السجل الحالي. وأما بالنسبة للجزئية المتعلقة بالحدث عند فتح النموذج المتعقب للتغييرات فهي فقط لتحديث الحقل ، فبدونها سيتوجب على المستخدم ان يقف على مربع النص FieldChangedFrom ليتم تطبيق التحديث ، كون الحدث يعمل في الحالي . فاستبدلت الفكرة لفتح النموذج والذهاب الى آخر سجل وعمل تحديث له . DoCmd.GoToRecord , , acLast [Forms]![frmAudit]![FieldChangedFrom].SetFocus [Forms]![frmAudit]![FieldChangedFrom].Requery

مميز ومبدع

استخدم الدالة Dmax أخي الكريم ، وارسل مرفق لمساعدة

النسخة الجديدة مع التعديلات والتحديثات ، ولكني كنت منشغلاً في تحدي بيني وبين نفسي في موضوع آخر

وهذه مشاركتي بطريقة أخرى تم إجراء تعديلات على الكود الذي يظهر النتيجة برسالة عند النقر المزدوج على الحقل FieldChangedFrom . واستخدامه في حدث ( في الحالي ) للنموذج FrmAudit ، على النحو التالي :- Private Sub Form_Current() On Error GoTo flderr Dim tbl As String Dim fld As String tbl = Me.tblNm fld = FieldChangedFrom Dim rs As Recordset Set rs = CurrentDb.OpenRecordset(tbl) rs.MoveFirst Do While Not rs.EOF If rs.Fields(0) = fld Then Me.FieldChangedFrom = rs.Fields(1).Value Exit Sub End If rs.MoveNext Loop flderr: Exit Sub End Sub وفي حدث زر تتبع التغييرات ، قمت بإضافة سطرين ليصبح الكود كالتالي :- Me.Refresh DoCmd.OpenForm "frmAudit", acNormal DoCmd.GoToRecord , , acLast [Forms]![frmAudit]![FieldChangedFrom].SetFocus [Forms]![frmAudit]![FieldChangedFrom].Requery Database4.accdb

اخي الكريم هناك الكثير من المواضيع ضمن نفس الطلب ، تفضل هذا أحدثها تفضل

تفضل اخي الكريم ، هذه محاولتي مع اجراء بعض التغييرات والتعديلات . مخازن.zip المشكلة كانت في ربط العلاقات بين الجداول

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

لا بالعكس ، سرعة قراءتي بطيئة جداً صدقني هههه لكني انا عرضت فكرتي ، ولا اعلم ما هي فكرتك التي أشرت إليها في ذيل موضوعك

FDialog.Filters.Add "Format Pic Is JPG", "*.Jpg" FDialog.Filters.Add "Format Pic Is PNG", "*.Png" FDialog.Filters.Add "Format Pic Is GIF", "*.Gif" FDialog.Filters.Add "Format Pic Is BMP", "*.Bmp" هل تكفي هذه الإمتدادات ؟

نعم صحيح ، لقد وقعنا في الفخ هههههههه على العموم ، توصلت لفكرة جلب القيمة بعد التغيير ، وبقي لي جلب القيمة قبل التغيير وهذه مشاركتي التي توصلت اليها Database2.accdb

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

تم تعديل الكود بالكامل ، تفضلي Logo.zip

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