يوسف أحمد

وعليكم السلام ورحمة الله وبركاته اخي FTHI1974 تم التعديل وللمعلومية فقد كان اسم النموذج خطأ في التعبير نصيحة : حاول ان تستخدم الاسماء الانجليزية لجميع الكائنات لديك مع تجنب الفراغات فيما بين الاسماء اليك المرفق بالتوفيق db1.rar

وعليكم السلام ورحمة الله وبركاته اخي صباح حسين اليك التعبير الصحيح كود =DCount("id";"tbl1";"[age]between 20 and 30") طبعاً مع تغيير اسماء الحقول الى الانجليزية واليك مثال على ذلك ارجو ان يكون هو المطلوب بالتوفيق ان شاء الله UsingDcount.rar

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

السلام عليكم ورحمة الله وبركاته اخي ahmadasaad الحقل G9 من المفترض ان يكون حقل محسوب باستعلام تحديد وليس حقل ضمن حقول الجدول ويتم استخدام الاستعلام كمصدر للنموذج بدلاً من الجدول وايضاً يمكن التعامل مع الاستعلام كالجدول تماماً لأنه يعتبر مجموعة سجلات ديناميكية. تم عمل استعلام تحديد اسمه qry1 وتم تغيير مصدر النموذج الى هذا الاستعلام كما تم عمل حقل محسوب كالآتي: G9: [g8]+12 اليك المرفق بعد التعديل بالتوفيق ان شاء الله sub_1_.rar

وهذا التعديل بإضافة الدالة NZ مع القيم officna.rar

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

السلام عليكم مرحباً بك اخي المالكي333 من المفترض ان لا يحتوي الجدول على اي من القيم التي تنتج عن معادلة حسابية ( الحقول المحسوبة ) ... لذا يمكنك حذف الحقول التي تمثل تلك القيم ومن ثم عمل استعلام وتقوم باضافة حقول محسوبة تضع لها المعادلات التي تريدها ... سواء اجمالي ... او باقي ... الخ ... يكون هذا الاستعلام مصدراً للنموذج ... اذا اردت ان اقوم بعمل ذلك لك الرجاء تغيير اسماء الجداول والحقول الى اللغة الانجليزية بدون فراغات حتى تظهر المعادلات بشكلها الصحيح في الاستعلام مع الشكر والتقدير

تفضل اخي الكريم ما تم عمله هو عمل تقرير جديد باسم rpt1 تم تحديد الكل من التقرير السابق ثم نسخ ولصق ... وتغيير اسم التقرير بالاكواد لتعمل ... ارجو ان يكون هو المطلوب بالتوفيق ___________.rar

السلام عليكم اخي الكريم نعم تنفع .... واعتقد بأنها هي الطريقة الابسط لعمل ذلك ... فقط اختر نموذج لبدء التشغيل من قائمة ادوات ثم بدء التشغيل اختر النموذج الذي تريده ان يفتح في بدء تشغيل البرنامج... بالتوفيق

السلام عليكم اخي met احد الحلول هو ان تجعل الاستعلام مصدراً للنموذج وفي حدث بعد التحديث لمربعي النص الخاصين بالرقم والتاريخ تعمل اعادة تهئية للنموذج انظر الكود Me.Requery ارجو ان يكون هو مطلوبك بالتوفيق Sort.rar

بارك الله فيكم اخواني اخي الحبيب كمال النحال ... الف مليون مبروك الترقية الى مشرف .. وتستاهل ذلك بكل جدارة .. واعتذر عن التأخر في التهنئة اتمنى لك التوفيق والنجاح في الدنيا والاخرة اخي الحبيب : ماجد جلال حاول تجنب استخدام اسم محجوز مثل Date اليك حل آخر ... فالقصد هو اثراء المشاركات وتقديم اكثر من حل للمشاكل المطروحة كود Dim dd As Integer If Not IsNull(Me.aa) Then dd = DCount("[no]", "[dd]", "[E_date]=forms!cc!aa") MsgBox dd Else MsgBox "فضلاً ادخل تاريخ معين ليتم حسابه", vbOKOnly + vbInformation + vbMsgBoxRight, "تنبيه" End If اسأل الله التوفيق للجميع 100.rar

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

السلام عليكم بارك الله فيك استاذنا العزيز رضوان فكرة رائعة جداً .. سلمت يداك واذا سمحت لي ببعض الاضافات ووضع مثال لما تفضلت به مشكوراً 1- تم اضافة زر امر للتحكم في ايقاف واستئناف التحرك بين السجلات بالاعتماد على مسمى زر الامر . 2- تم ضبط الخاصية TimerInterval للنموذج على القيمة 2000 ليتم التنقل كل ثانيتين. ___________________________.rar

السلام عليكم اخي ابن المبارك الدالة هي DateAdd انظر الى استخدامها بحقل محسوب بالاستعلام بالمرفق dbDateAdd.rar

بارك الله فيك اخي محمد السباعي لنفرض ان لديك نموذج ومنه تريد ان تفتح النموذج الآخر ولنفرض ان اسمه frmStatus على العمال الدائمين فقط فستضع الكود ادناه بحدث عند النقر لزر الامر الخاص بعرض العمال الدائمين DoCmd.OpenForm "frmStatus", , , "[status]='دائم'" حيث frmStatus هو اسم النموذج المراد فتحه status هو اسم الحقل المدون به القيم دائم او مؤقت لتصنيف العمال تعمل نفس الشئ بالنسبة لزر الامر الآخر لعرض النموذج نفسه على العمال المؤقتين مع تغيير الكلمة دائم الى الكلمة مؤقت عند وضع الكود بزر الامر الخاص بعرض النموذج على العمال المؤقتين ملاحظة : لا تحتاج الى عمل نموذجين ويكفي عمل نموذج واحد يضم الجميع ويتم التحكم في فتحه بناء على معيار الفتح كما هو موضح بالكود اعلاه. ارجو ان يساعدك الشرح على الوصول للمطلوب

السلام عليكم اخي الفلســـ أبوالوليد ـــطيين يفضل ارفاق مثال لما تريد لنتمكن من العمل عليه بامكانك استخدام استعلام توحيد يقوم بالعملية اليك رابط لشرح استعلامات التوحيد للاستاذ محمد طاهر جزاه الله خيراً http://www.officena.net/Tips/UnionQueries.htm بالتوفيق للمعلومية فقد تم تعديل عنوان المشاركة ... الرجاء الالتزام بوضع عنوان مناسب للمشاركة في المرات القادمة وذلك يساعد الجميع عند عملية البحث كما انه يساعد القائمين على المنتدى عند عمليات الفرز للمشاركات والعمل عليها. مع الشكر والتقدير

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

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

اخي gelani السلام عليكم بالمرفق يوجد استعلامين تحديث عند تشغيلهما سيتم تحديث الحقل total الى القيم المطلوبة وبامكانك تشغيل هذه الاستعلامات في احد احداث نموذج الادخال ارجو ان يكون هو المطلوب مع ملاحظة انه تم تغيير مسميات بعض الحقول الى الانجليزية بالتوفيق ___________.rar

السلام عليكم اخي mfarouk_81 1- من خصائص مربع التحرير والسرد ومن التبويب ( الكل ) قم بتغيير قيمة الخاصية ( الإلتزام بالقائمة ) الى القيمة ( نعم ) 2-في حدث On not in list لمربع التحرير والسرد ضع الكود ادناه Response = False Me.ca.Value = "" MsgBox "فضلاً اختر عنصر من القائمة فقط", vbOKOnly + vbInformation + vbMsgBoxRight, "تنبيه" Me.ca.Dropdown شرح الكود السطر الاول : يقوم بإلغاء رسالة النظام عند وجود عنصر ليس ضمن القائمة السطر الثاني: يقوم بمسح القيمة المدخلة والتي ليست ضمن القائمة ... بمعنى آخر يعين قيمة فارغة لمربع التحرير والسرد السطر الثالث: اظهار رسالة تفيد بأن العنصر ليس ضمن القائمة السطر الرابع: يتم تطبيق المنهج Dropdown على مربع التحرير والسرد حيث ca هو اسم مربع التحرير والسرد... بمعنى آخر يتم فتح مربع التحرير والسرد ليتم الاختيار من عناصره الموجودة تفضل مثال على ذلك بالتوفيق Limit_To_List.rar

السلام عليكم اخي anamo بامكانك عمل ذلك في حقل محسوب باستعلام تضع به العبارة ادناه ثم تجعل الاستعلام مصدراً للنموذج DateAdd("m",(Nz((IIf([callafter]="لا",0,[callafter])),0)),[LastCallDate]) اليك المرفق بعد التعديل Anamo.zip

اخي kafi وعليكم السلام ورحمة الله وبركاته ارجو ان يكون هو المطلوب انظر الى الربط بالاستعلام Example_01.rar

اخي ابو محمود السلام عليكم ارجو ان يكون هو المطلوب بالتوفيق printing.rar

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

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