alsihran

اشكرك أخي ال husamwahab تقريبا هو المطلوب لكن هناك مشكلة لا استطيع اضافة اشهر لسنوات أخرى غير 2020 اريد ان اضيف اي شهر لأي سنة

السلام عليكم قاعدة بيانات تحتوي على نموذج frm نموذج رئيسي ونموذج frm_chft نموذج فرعي المطلوب وضع الاشهر في مربع التحرير والسرد وعند اختيار الشهر يتم اظهار تاريخ بداية الشهر ونهاية الشهر وعند الضغط على زرالامر اعمل السجلات يتم اضافة تواريخ الشهر الذي تم اختياره من اول يوم الى اخر يوم بالجدول 1/1/2020 2/1/2020 3/1/2020 الى اخر يوم بالشهر حاولت اعملها عن طريق دالة for أو loop لكن ما قدرت وشكرا مقدما Adddte.rar

اريد تطبيق العملية على كامل العمود بدون السحب والتحديد فأنا لا أعلم كم سيكون عدد الخلايا حيث انها ممكن تتعدى 1000 أو أكثر

فعلا هو المطلوب لكن عندما حاولت تطبيق المعادلة على الملف الاساس عندي ما يضبط ممكن تشرح عملية وضع المعادلة فعلا هو المطلوب لكن عندما حاولت تطبيق المعادلة على ملفي الاساسي لا يظهر الا رقم في الصف الاول فقط ممكن شرح عملية وضع المعادلة

لم افلح في التطبيق ممكن تطبيق على المثال ترقيم تلقائي.xlsx

السلام عليكم اريد عند كتابة الاسم في الخليةB يعطيني رقم متسلسل تلقائي في الخلية A يتم كتابته تلقائياً عند كل عملية ادخال للاسم فما هي امعادلة

وعليكم السلام ورحمة الله هو ما اريد ولكن بدون تغيير نوع الحقل في جدول AuditTable فهذا سيؤثر على بقية العمليات التي ستجرى على الحقول الاخرى جرب حدث حقل Pohn في النموذج وانظر النتيجة

مع الاسف يا استاذ ليس هذا المطلوب اريد فقط التعديل على الكود الذي وضعته بالاعلى

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

استاذ ابا جودي جرب تحديث الحقل الجنس وانظر بعدها للجدول AuditTable اريد ان يبقى كما هو اريد فقط الحاق نص الحقل ذكر او أنثى بدل القيمه 1 او 2

يعطيك العافية استاذ يبدوا اني لم اوصل المطلوب بشكل واضح ليس هذا ما اردته اريد الحاق النص الى جدول متابعة التعديل على السجلات ما احتاجه اضافة جملة column.(1) الى الكود انا عملتها بهذه الطريقة ولكن تطلع رسالة خطأ بسبب .. OldValue و Value ولما ازيلها يعمل الكود بشكل سليم لكن المشكلة لايعطينا القيمة قبل التحديث WriteAuditUpdate txtTableName, Me.EmployeeID, "الجنس", Me.Gender.Column(1).OldValue, Me.Gender.Column(1).Value اتمنى وضحت الصورة

بشرك الله بما يرضيه ويسرك

السلام عليكم ورحمة الله وبركاتة هذا الكودتم وضعه في حدث قبل التحديث لحقل الجنس ووظيفته يقوم باضاافة سجل في جدول AuditTable للتعديل الذي تم على الحقل ويظهر القيمة قبل التعديل وبعد التعديل المطلوب : ان يقوم الكود بأخذ القيمة من العمود الثاني لمربع التحرير والسرد اي يلحق النص وليس الرقم في حقل قبل OriginalValue التعديل وبعد التعديل NewValue مثال بدل وضع الرقم 1 ذكر وبدل 2 أنثى حاولت التعديل على الكود لكن لم انجح WriteAuditUpdate txtTableName, Me.EmployeeID, "الجنس", Me.Gender.OldValue, Me.Gender.Value وهذا هو المرفق AuditTrail2k.rar

وعليكم السلام ورحمة الله وبركاتة استخدم الكود التالي في حدث عند التحديث DoCmd.RunSQL "UPDATE Pir SET Pir.Date_N = Date()" & _ "WITH OWNERACCESS OPTION;"

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

عند تشغيل الاستعلام تظهر الرسالة الواضحة بالصورة ادخال قيمة معلمة في الحقل Expr1 والذي يجمع قيمة مجموع حقل total+الحقل freqroom Expr1: [sumمنTotal]+[Freqroom] هل الحرف العربي هو السبب في ظهور الرسالة عند تشغيل الاستعلام ملاحظة : عند الضغط على موافق في رسالة المعلمة بدون ادخال اي قيمة تظهر نتيجة صحيحة

اريد عندأدخال تاريخ بالنموذج في حقل التاريخ المرتبط بجدول hollytawed أن يتأكد اولاً أن التاريخ المدخل ليس موجود بالجدول emp وعندوجود تظهر رسالة بأن التاريخ موجود بالجدول emp ارجو التعديل على المرفق تحياتي test.rar

الله يعطيك العافيه اخي منذر بانتظار الشباب اللي تحولوا الى اكسيس 2007 يمكن تكون مرت عليهم مثل هذي المشكله الله يعطيك العافيه اخي منذر بانتظار الشباب اللي تحولوا الى اكسيس 2007 يمكن تكون مرت عليهم مثل هذي المشكله

up up

وهذا مثال للتعديل عليه metal.rar

الا من مجيب الا من معين الا

لدي هذا الكود ووظيفته يجعل الحقول بالتقرير 20حقل حتى لو لم توجد في بعض الحقول بيانات وهو يعمل مع اكسس 2002 وأكسس 2003 بكل كفاءه وعندما حولة الاكسس الى 2007 لاحظت ان التقرير يفتح بعدد الحقول التي توج بها بيانات فقط مما يؤثر على شكل التقرير هل هناك طريقه معينه يجب فتح التقرير بها مع اكسس 2007 او يجب اصلاح هذا الكود ليوائم الاكسس الجديد Private Sub Report_Open(Cancel As Integer) x = DCount("ex_no", "ex_list") n = DMax("ex_no", "ex_list") rsrce = Me.RecordSource For i = 1 To 20 - x n = n + 1 rsrce = rsrce & " Union SELECT " & n & " as a, null as b, null as c,null as d,null as e,null as f,null as g,null as h,null as j, null as v, null as w, null as z FROM ex_list" Next i 'MsgBox rsrce & " ORDER BY ex_no.ex_list" Me.RecordSource = rsrce & " ORDER BY ex_list.ex_no" End Sub

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

عزيزي مشكلتي اني عندما احذف الصوره ما اقدر ارجعها ماهي الطريقه لارجاعها بعد الحذف

مساء الخير في الملف المرفق نموذج يوجد به خلفيه عباره عن صوره المشكله اني اذا حذفت الصوره لايمكنني ارجاعها علماً ان هذه الخلفيه تشتغل على اي جهاز احط فيه اليرنامج form.rar