تعديل طفيف في الماكرو أو الاستعلام للاستعلام بتكرار السجلات ...

هلا أعزائي الكرااااام ..

أرجو المساعدة في الحل ما امكن ..

فأعتقد أنه شي بسيط جدا ولكن خافي بالنسبة لي فخبرتي في الأكسس بيسطة جدا ..

أين ذوي الخبرة يا أحباب !!

مثالك واضح بارك الله فيك

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

يعني ما هو الحقل الذي اعتمدت عليه في تجميع التكرار بناء عليه (حتى تتضح الصور اكبر لدي)

المطلوب منك ادخال بيانات مكررة حتى يخرجها البرنامج على انها مكررة

----

اخي الفاضل

مصدر الرسالة هو الماكرو Recurrence سابقا وتم تعديله الى Autoexec ليكون في بدء التشغيل

مصدر القائمة هو الاستعلام Requ_ QryUNION واصبح اسمه Requ_ QryUNION-OLD ولم يكن هذا الاستعلام استعلام البحث عن المتكررات وانما كان استعلام تخديد عادي لهذا تم تعديله الى استعلام البحث عن المتكررات

بالنسبة للماكرو فهو يتكون من جزئين الجزء الاول يقوم بإظهار رسالة تحذير Here is Repeated Records بدون اي شرط فقط مجرد رسالة تحذير وهذا خطأ . لهذا تم اضافة الشرط قبل فتح الرسالة واللاستعلام بحيث يكون

DCount("[Vehicle_Door #]","QryUNION")>1

وهذا الشرط في الماكرو يقوم بالتأكد اولا من عدد السجلات الخاصة بالحقل Vehicle_Door # فإن كان اكبر من 1 فإنه يظهر رسالة التنبيه ومن ثم يتم فتح الاستعلام الجديد Requ_ QryUNION المعدل

للتجربه

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

الان افتح برنامج الاكسيس وانظر هل تظهر الرسالة ام لا طبعا الماكرو هو بدء التشغيل ان رغبت ان لا يكون هو بدء التشغيل فقم بتغيير اسم الماكرو الى Recurrence ثم قم بتشغيله طبعا لن تظهر الرساله لأنه لايوجد اساسا بيانات في الجداول سواء جداول الاكسيل او جداول الاكسيس ولكن عند وضع بيانات في الجداول وفي حالة تكون مكرره ستظهر الرساله اما عدى ذلك فلن تظهر رسالة تفيد بأن هناك سجلات مكرره

ملاحظة : هذا البرنامج تم ربط جداول الاكسيل مع قاعدة البيانات وهي في المجلد C:Vehicle لهذا يجب ان تتأكد جيدا من عملية الربط ووضع البرنامج وربط الجداول الخاصة بالاكسيل مع القاعدة في حالة قمت بتغيير المسار

Vehicle.rar

Vihicle.rar

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

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

/index.php?showtopic=111778

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

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

http://www.9q9q.org/index.php?image=zIOddcTrOPQNSp

لذا فقد تم اضافة كود بسيط يقوم بتشغيل الماكرو عند الضغط على زر الامر Open Form فإن كانت هناك بيانات مكرره في الجداول امستعلم عنها فسوف تظهر لك الرساله ويتم فتح الاستعلام Requ_ QryUNION وإن لم يكن هناك بيانات مكرره فلن تظهر الرساله ولن يتم فتح الاستعلام لأنه مربوط بشرط في نص الرساله قبل فتح الاستعلام

Private Sub Command429_Click()
DoCmd.RunMacro "Recurrence"
DoCmd.OpenForm "Vehicle", acNormal
End Sub