أبو عبدالله الحلوانى

جرب هذا المرفق لحذف نتائج البحث
db3.mdb

السلام عليكم 
تفضل
امتحانات.rar
ارجو ان يكون هذا هو المطلوب

السلام عليكم
جرب هذا لعله يوافق مرادك
 
Worker.accdb

لو كان ممكنا ان تضع مرفق بالمشكلة هنا 
حتي يستطيع الأساتذة المساعدة
فربما هنالك خطأ ما بكتابة الكود لم تلحظها 
احيلك علي هذا المرفق لأستاذنا @jjafferr جزاه الله خيرا 
 
وان شاء الله ستنتهي مشكلتك بعد استعمال المرفق بشكل صحيح 
وان لم تنتهي المشكلة فعد لاقتراحي الأوول بان ترفق مرفقا بالمشكلة.

مشاركة مع أخي واستاذي @احمد الفلاحجي جزاه الله خيرا 
فكرة خارج الصندوق قليلا - الفلترة من داخل الاستعلام مباشرة 
تصفية.accdb
 

وانا كذلك اوافق اخي واستاذي @احمد الفلاحجي 
الفرق بين 7-9 الي 30-9 سيتم حسابه بالشهور بالتأكيد ولكن تلك الفترة لم تكتمل 30 يوم لذلك لم يتم حسابها شهرا كاملا حسب المعادلة وحسب العرف  فالفترة عبارة عن 23 يوم فقط جرب زيادة 7 ايام لشهر 10 وستجد ان الناتج اصبح 88 اسبوع و 1 شهر.
جرب هذا المرفق قمت بالتعديل علي الدالة واصبحت الآن تعمل داخل الاستعلام بدون وسيط
وابقيت علي الدالة القديمة لتري الفرق جرب ووافنا بالنتائج
 
Database1.rar

من خصائص مربع النص الذي تريد ان يظهر به الرقم المطلوب اصنع كما بالصور 
وجرب ووافنا بالنتائج 

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

أستاذي @Eng.Qassim جزاك الله خيرا لحسن ظنك بي 
منّ الله علي وعليكم بستره الجميل 
أخي @ابو البشر جرب هذا ارجو ان يكون هو مطلوبك 
رجاءا وافنا بالنتائج
 
DDD.accdb

ان كانت هذه هي المشكلة فحلها بسيط للغاية ان شاء الله
ولكن ما اعتقد ان هذا ما يريده بالضبط فان اسماء الأعمدة بالجدول كما بالصورة التي ارفقها هي عبارة عن ارقام
ولكن مجارة لما اقترحته استاذي هذا تعديل علي حسب ما تفضلتم به لحين رد استاذ احمد 
Public Function Subsalary(GradeNumber As Byte, RankNumber As Byte) As Double Subsalary = Nz(DLookup("A" & RankNumber, "Degree", "GradeNO=" & GradeNumber), 0) End Function وهذا التعديل يفترض ثبات البادئة النصية في اسماء كل الحقول

Test (1).accdb

وعليكم السلام ورحمة الله
لتقسيم الكود يتم استخدام مسافة (فراغ)  ثم هذه العلامة ( _ )  بعد الفراغ كالمثال 
CurrentDb.Execute "INSERT INTO TEAM(DateDA,DateCmd,NumBesoin,demandeur,commande,imputation,acheteur,departement,designation,marque, _ reference,devise,QTEcommande,QTE,frs1,PU1,PT1,frs2,PU2,PT2,frs3,PU3,PT3,prixRETENU,devise2,TotalEUR, _ fournisseur,CONTRAT,FABRICANT,NonMisEnCON,REGULE,SEMAINE,MOIS,PRODUCTIVITE,devise3,ProdEnEUR) " _ & "VALUES('" & Me.DateDA & "','" & Me.DateCmd & "','" & Me.NumBesoin & "','" & Me.Demandeur & "','" & _ Me.Commande & "','" & Me.imputation & "','" & Me.Acheteur & "','" & Me.Departement & "','" & Me.TXTdesign & _ "','" & Me!T_REFRENCE.Form.marque & "','" & Me.txtREF & "','" & Me!T_REFRENCE.Form.devise & "','" & Me.Qte & _ "','" & Me!T_REFRENCE.Form.FRS1 & "','" & Me!T_REFRENCE.Form.PU1 & "','" & Me!T_REFRENCE.Form.PT1 & "','" & _ Me!T_REFRENCE.Form.FRS2 & "','" & Me!T_REFRENCE.Form.PU2 & "','" & Me!T_REFRENCE.Form.PT2 & "','" & _ Me!T_REFRENCE.Form.FRS3 & "','" & Me!T_REFRENCE.PU3 & "','" & Me!T_REFRENCE.PT3 & "','" & _ Me!T_REFRENCE.PRIXretenu & "','" & Me!T_REFRENCE.Devise2 & "','" & Me!T_REFRENCE.TotalEUR & "','" & _ Me!T_REFRENCE.fournisseur & "','" & Me!T_REFRENCE.CONTRAT & "','" & Me!T_REFRENCE.Fabricant & "','" & _ Me!T_REFRENCE.NonMisEnCON & "','" & Me!T_REFRENCE.Regule & "','" & Me.Semaine & "','" & Me.Mois & "','" & _ Me!T_REFRENCE.productivite & "','" & Me!T_REFRENCE.devise3 & "','" & Me!T_REFRENCE.prodEnEUR & "'" أو يمكنك تقطيع الكود علي عدة اسطر في متغير نصي وتمرير قيمته الي دالة تنفيذ الاستعلام مثل:
Dim SQLStr as String SQLStr = "INSERT INTO TEAM(DateDA,DateCmd,NumBesoin,demandeur,commande,imputation,acheteur,departement," SQLStr = SQLStr & "designation,marque,reference,devise,QTEcommande,QTE,frs1,PU1,PT1,frs2,PU2,PT2,frs3,PU3,PT3," SQLStr = SQLStr & "prixRETENU,devise2,TotalEUR,fournisseur,CONTRAT,FABRICANT,NonMisEnCON,REGULE,SEMAINE,MOIS," SQLStr = SQLStr & "PRODUCTIVITE,devise3,ProdEnEUR) VALUES('" & Me.DateDA & "','" & Me.DateCmd & "','" SQLStr = SQLStr & Me.NumBesoin & "','" & Me.Demandeur & "','" & Me.Commande & "','" & Me.imputation & "','" SQLStr = SQLStr & Me.Acheteur & "','" & Me.Departement & "','" & Me.TXTdesign & "','" & Me!T_REFRENCE.Form.marque & "','" SQLStr = SQLStr & Me.txtREF & "','" & Me!T_REFRENCE.Form.devise & "','" & Me.Qte & "','" & Me!T_REFRENCE.Form.FRS1 & "','" SQLStr = SQLStr & Me!T_REFRENCE.Form.PU1 & "','" & Me!T_REFRENCE.Form.PT1 & "','" & Me!T_REFRENCE.Form.FRS2 & "','" SQLStr = SQLStr & Me!T_REFRENCE.Form.PU2 & "','" & Me!T_REFRENCE.Form.PT2 & "','" & Me!T_REFRENCE.Form.FRS3 & "','" SQLStr = SQLStr & Me!T_REFRENCE.PU3 & "','" & Me!T_REFRENCE.PT3 & "','" & Me!T_REFRENCE.PRIXretenu & "','" SQLStr = SQLStr & Me!T_REFRENCE.Devise2 & "','" & Me!T_REFRENCE.TotalEUR & "','" & Me!T_REFRENCE.fournisseur & "','" SQLStr = SQLStr & Me!T_REFRENCE.CONTRAT & "','" & Me!T_REFRENCE.Fabricant & "','" & Me!T_REFRENCE.NonMisEnCON & "','" SQLStr = SQLStr & Me!T_REFRENCE.Regule & "','" & Me.Semaine & "','" & Me.Mois & "','" & Me!T_REFRENCE.productivite & "','" SQLStr = SQLStr & Me!T_REFRENCE.devise3 & "','" & Me!T_REFRENCE.prodEnEUR & "'" CurrentDb.Execute SQLStr ارجو التجربة وموافاتي بالنتيجة
 

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

أرجو أن يوافق هذا مرادك 
ولا تنسانا من دعوة بظهر الغيب
 
time.accdb

أرجو ان يكون هذا ما تريد
 
جرب ووافنا بالنتائج
 
TestMessage.accdb

جرب هذا اذا ووافنا بالنتيجة
 
Gm3ya.rar

السلام عليكم ورحمة الله وبركاته
أرجو أن يكون هذا قريبا مما تريد
ولا تنسنا من دعوة بظهر الغيب
التاريخ.accdb

اطلع علي المرفق بالموضوعين التاليين لعلك تجد ما تريد
والثاني
 

وعليكم السلام ورحمة الله وبركاته
والله حقيقة بعد هذه الردود لا يصلح رد آخر ولكن بدأت بكتابة الرد وانشغلت ببعض الأمور فلا مانع من مشاركة الاساتذة بالأجر
بامكانك أن تغيري اعدادات الأمان من اعدادت الاكسس
اتبعي الخطوات بالرابط التالي
اما وان كان لا بد من استخدام آداة 
فاليك هذا الاسكربت لتخفيض امان الأكسس. وان لم يعمل بشكل جيد انظر الي الشرح بالفديو لتعديل الكود بالاسكربت وفقا لمسار الرجستري الخاص بالاصدار 2019 فالاصدار لدي 2016 
أما عن طريقة أستاذنا أبوابراهيم الغامدي في الأفضل ولا شك لكون البرنامج يعمل بأمان ولا ننزع أمان الأكسس عنه
وهذا الرابط لأستاذنا جعفر ينفذ طريقة أستاذ أبو ابراهيم ولكن عن طريق الكود 
واعتذر عن الاسهاب في الرد 
LowScuerity.rar

وعليكم السلام ورحمة الله وبركاته
والله حقيقة بعد هذه الردود لا يصلح رد آخر ولكن بدأت بكتابة الرد وانشغلت ببعض الأمور فلا مانع من مشاركة الاساتذة بالأجر
بامكانك أن تغيري اعدادات الأمان من اعدادت الاكسس
اتبعي الخطوات بالرابط التالي
اما وان كان لا بد من استخدام آداة 
فاليك هذا الاسكربت لتخفيض امان الأكسس. وان لم يعمل بشكل جيد انظر الي الشرح بالفديو لتعديل الكود بالاسكربت وفقا لمسار الرجستري الخاص بالاصدار 2019 فالاصدار لدي 2016 
أما عن طريقة أستاذنا أبوابراهيم الغامدي في الأفضل ولا شك لكون البرنامج يعمل بأمان ولا ننزع أمان الأكسس عنه
وهذا الرابط لأستاذنا جعفر ينفذ طريقة أستاذ أبو ابراهيم ولكن عن طريق الكود 
واعتذر عن الاسهاب في الرد 
LowScuerity.rar

أخي في الغالب لديك فورم يعمل بالخلفية وبه مؤقت فكود التيمر يظل يعمل ويعيقك أثناء كتابة الكود 
كل ما عليك هو ايقاف الفورم الذي به المؤقت (أو حدث عند المؤقت) On timer  ثم افتح شاشة المحرر واعمل بدون مقاطعة ان شاء الله

أولا-  المرفق لا يوجد به كود ولا بيانات لا يوجد سوي نموذج واحد ومجموعة تقرير
ثانيا- فكرتي المقترحة ما دام لا يوجد لديك مرفق:
أنت بحاجة لوجود عمودين للقراءات داخل الجدول الخاص باستهلاكات العملاء احدهما يسمي القراءة السابقة والأخر القراءة الحالية
وعمود ثالث يسمي القراءة الجديدة. هذا العمود يتم ملأه وفقا لآلية العمل لديكم وفي نهاية الدورة المحاسبية يتم تشغيل استعلام اجرائي يقوم بما يلي:
1- التأكد من كون القراءة الجديدة موجودة وغير خالية وفي حالة خلوها يتم اعتبار القراءة الحالية هي القراءة الجديدة
2- التأكد من بعض الأمور وفقا لطبيعة العمل لديكم مثل وجود عداد لا يعمل وطريقة محاسبته في مثل هذه الحالة أو لا يمكن قراءته لوجود مانع ما وكيف سيتم المحاسبة في هذه الحالة.
3- يقوم بتحويل القراءة الحالية الي عمود القراءة السابقة 
4- يقوم بتحويل القراءة الجديدة الي عمود القراءة الحالية تمهيدا لبدأ عملية احتساب قيم الفواتير
هذا والله اعلم
أرجو أن أجد وقتا كافيا لأضع لك مرفق بالفكرة اعلاه.
 

جرب هذا إذا 
ووافنا بالنتائج
 
مثال 4.accdb

يبدو أني تعجلت في كتابة الموضوع 
الحمد لله وجدت الحل بهذا الكود يمكن استدعاء اسم الكائن الحالي
Application.CurrentObjectName وهذا أيضا يجلب اسم التقرير النشط Screen.ActiveReport.Name ولكن لا بأس لعل الفكرة يستفيد منها أحدا مر من هنا
وجزاكم الله خيرا

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

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