بو يوسف الراشد

يبدوا ان هناك مرجع (reference) مفقود أو لم يتم إضافته عنك

السلام عليكم ،، إليكم مثال يحتوي على أبسط كود على الاطلاق لنسخ وحذف أي ملف حيث في المثال المرفق تم تطبيق ذلك على ملف الوورد والاكسس حيث تم ايجاد هذا الكود الرائع من أحد المنتديات الانجليزية علما بان الملفات سوت تنسخ بنفس الفولدر الخاص بالمثال المرفق تستطيع ان تستخدم هذا الكود لعمل نسخة احتياطية لملف الاكسس ___________________________.rar

تفضل هذا المثال لطريقة البحث ________________________.rar

او تحميله من خلال هذا الرابط http://www.rocketdownload.com/dnload/bcmag31.exe والبرنامج يحتاج إلى تسجيل تفضل رقم التسجيل Name: Registered s/n: BM-4626-83

انا بعد حصلت معي ان حقولي كانت عربية وحولتها الى انجليزية والحل الذي فعلته هو أني دخلت على نظام البحث الخاص VBA ثم عملت (Replace) لكل حقل على حدة صحيح ان ذلك استغرق وقتا لكني بالنهاية ارتحت كثيراً لأن التعامل مع الحقول الانجليزية اكثر ترتيباً من الحقول العربية بالذات عند التعامل مع جمل الاستعلام

الاخ/yad اطلب منك طلب.... إذا جربت البار كود على الملف الذي ارفقته لك ارجو أن تفيدني هل ضبطت العملية معك أم لا

تفضل هذا المثال عن البار كود _________________.rar

استاذنا/مهند عبادي لا أقول سوى (بارك الله فيك وفي علمك)

مشرفنا الغالي/رضوان جزاك الله خير على الطريقة الاسهل والافضل

جزاك الله خير

شكرا لك ونتمنى ان تزل النسخة الكاملة في اقرب وقت

ارفق الملف وسوف احل المشكلة باذن الله... حيث يعتمد طلبك على الأمور التالية: 1.الدالة DateAdd والذي يقوم باعطاء التاريخ بعد مرور مدة ثلاثين يوم 2.انشاء متغير يقوم بتخزين قيمة التاريخ بعد مرور مدة ثلاثين يوم 3.حدث "عند عداد الوقت" والذي يقارن قيمة تاريخ اليوم مع تاريخ المتغير كا اشرت بالنقطة (2) وبعدها يتم تنفيذ طلبك

الملاحظة السابعة: (ما معنى الكود الذي كتبته في زر اضافة !!) يحتوى حدث على السطور التالية On Error GoTo Err_أمر7_Click Me.AllowAdditions = True DoCmd.GoToRecord , , acNewRec الرقم= Me.CurrentRecord Exit_أمر7_Click: Exit Sub Err_أمر7_Click: MsgBox Err.Description Resume Exit_أمر7_Click كل من السطر (1 5 6 7 8 9) قد تم شرحه وخاص بالخطأ السطر الثاني: (Me.AllowAdditions = True) قم بجعل خاصية السماح باضافة السجلات تساوي "نعم" ليتم السماح باضافة سجل جديد السطر الثالث: (DoCmd.GoToRecord , , acNewRec) الانتقال إلى موقع السجل الجديد ( الرقم= Me.CurrentRecord) جعل الحقل"الرقم" تساوي قيمة السجل الحالي والسلام ليكم ورحمة الله وبركاته """"

الملاحظة السادسة: (لماذا لم تكتب كود في زر اعادة الترقيم التلقائي .... حتى يكون الامر سهلا على المستخدم ... أمن المعقول ان لا يوجد كود يوفر ذلك في عالم الاكواد للاكسس .....) لا يمكن عمل ذلك مع حقل الترقيم التلقائي .... ... إذا كان في خاطرك عمل هذا الزر .... فساحاول التفكير في ايجاد الحل

الملاحظة الخامسة: (ارجو ان تشرح لي الكود الذي كتبته في حدث ( في الحالي ) للنموذج ..) يحتوى حدث "في الحالي" على السطور التالية: On Error GoTo EEE: If Me.NewRecord = False Then Me.AllowAdditions = False الرقم= Me.CurrentRecord End If EEE: Exit Sub السطر الأول: (On Error GoTo EEE:) تعني في حال ظهور خطأ اذهب إلى التابع (EEE) ليتم اجراء حدث (على حسب طلبي) السطر الثاني والثالث والرابع والخامس: جملة شرطية تقول : (في حال ما إذا كان السجل الحالي لا يعتبر سجل جديد قم بالتالي: 1.(Me.AllowAdditions = False) قم بجعل خاصية السماح باضافة السجلات تساوي "لا" 2.جعل الحقل"الرقم" تساوي قيمة السجل الحالي ...... هنا هو طلبك في الموضوع ...... 3. انهاء الجملة الشرطية (End If) السطر السادس:قم بانهاء الحدث (في الحالي) من خلال جملة (Exit Sub)

الملاحظة الرابعة: (لماذا غير نوع البيانات في سجل الرقم للجدول من ترقيم تلقائي الى رقم!!) لأن الترقيم التقائي يزداد الرقم فيه حتى ولو تم حذف السجل (يعني لا ينفع معه ترتيب الأرقام 1 2 3 4 5 6 7 8 9 10 11 ....... الخ)

بالنسبة للملاحظة الثانية: (عند الحذف ... لا يعطيني البرنامج رسالة تاكيد بالحذف !!) ساصنعها لك الملاحظة الثالثة: (عندما يبقى آخر سجل فإن البرنامج يعطيني رسالة تأكيد وبعدها تحذف جميع محتويات النموذج بما فيه الازرار فيبقى النموذج فارغا !!!) لأنه في خيارات النموذج قمت أنا بجعل خاصية (السماح بالإضافة) تكون "لا" حولها إلى "نعم" وتنتهي المشكلة

الرد على الملاحظة الأولى: ........................ (زر الحذف يحذف آخر سجل وليس السجل الذي اختاره !!!) ....................... زر الحذف يقوم بحذف السجل الذي تختارة وليس السجل الأخير لأنه بعد حذف السجل الذي تختاره وليكن مثلا (5) تنتقل بيانات السجل رقم (6) ليصبح رقمها (5) اوضح لك أكثر: 1 محمد 2 خالد 3 عمر 4 سعيد لو حذفت السجل الثاني (خالد)....... ماذا سيحدث سيصبح ترتيب السجلات كالتالي: 1 محمد 2 عمر 3 سعيد يعني اصبح اسم عمر في السجل الثاني ولم يتم حذف السجل الأخير.

قمت بتحويل نوع الحقل (ID) من "رقم تلقائي" إلى "رقم" وبعدها قمت بعمل طريقة وهي أنه بعد الضغط على زر "جديد" في نموذج "طيبة" يتم إضافة رقم زيادة بعد الرقم الأكبر يعني (اذا كان آخر رقم عندك هو 5 سيضاف رقم 6 ......وهكذا ) لتتاكد ان الطريقة قد نجحت معك ... قم بحذف كل الحقول وبعدها قم بالضغط على زر "جديد" في نموذج "طيبة" ستجد أن تم إضافة رقم (1) اعد الكرة مرة أخرى ستجد أنه تم إضافة رقم(2) .... وهكذا حتى لو مسحت كل الحقول مرة أخرى ورجعت وعملت إضافة للحقل ستجد أن الرقم المضاف هو (1) لكن الطريقة التي عملتها توجد بها عيب واحد وهو: إذا كان عدد الحقول التي وضعتها (على سبيل المثال) هي (5) وهي (1 2 3 4 5) وأردت أن أن تحذف الحقل رقم (3) ستبقى الحقول (1 2 4 5) فإذا أردت إضافة سجل جديد سيكون السجل الجديد رقمه(6) وستكون الحقول هي (1 2 4 5 6) يعني الرقم (3) ضاع اذا اردته قم بادخاله يدوياً الذي ذكرناه هي طريقتي الأولى توجد طريقة أخرى ستكون الأرقام فيها مرتبة وبدون أرقام ضائعة (اتوقع أنها لن تعجبك) لكن هناك عيب وهو: كما في المثال السابق عندنا خمس حقول وهم: رقم الحقل الاسم 1 محمد 2 خالد 3 عمر 4 سعد 5 ناصر إذا قمنا بحذف الحقل رقم (3) ...... انظر ما الذي سيحدث سيتحول رقم الاسم (سعد) إلى (3) رقم الحقل الاسم 1 محمد 2 خالد 3 سعد 4 ناصر فهل هذه الطريقة صالحة لك ....... توجد طريقة ثالثة وهي أن يتم نقل ارقام حقل (ID) في حال حذف السجل إلى جدول جديد منفصل ومن ثم يتم استدعائه في إضافة سجل جديد لنعطي مثالا على ذلك :كما في المثال السابق عندنا خمس حقول وهم: رقم الحقل الاسم 1 محمد 2 خالد 3 عمر 4 سعد 5 ناصر إذا تم حذف السجل رقم (3) تصبح الحقول كالتالي: 1 محمد 2 خالد 4 سعد 5 ناصر في حال إضافة سجل جديد سيكون رقم السجل الجديد هو (3) ويكون ترتيب الحقول على النحو التالي: 1 محمد 2 خالد 4 سعد 5 ناصر 3 سلمان ما رأيك بهذا الترتيب هل يعجبك :p على العموم المثال الذي ارفقته لك يحتوي على الطريقة الاولى أرجو ان تراه ..... إذا لم يعجبك اصنع لك الطريقة الثانية او الثالثة ونحن في الخدمة والله يوفقك akar.rar

تم تعديل الملف... ارجو ان اكون قد لبيت طلبك ___________.rar

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

اصنع نموذج جديد وضع فيه أزرار عددها على حسب عدد تقاريرك أو اصنع مربع تحرير وسرد(كومبو بكس) واجعل قائمته عبارة عن اسماء التقارير ومقابله زر "موافق" ليتم فتح التقرير والشفرة التي يتم عن طريقها فتح التقرير هي : DoCmd.OpenReport "اسم التقرير", acViewPreview

اخي في الله الاخ /شاهر لم اخدمك اول مرة (للاسف) واريد ان اخدمك للمرة الثانية (اتمنى ذلك) ان امكن ارفق الملف لكي احاول تلبية ما تطلبه

اخي في الله الاخ نضال.... تم التعديل على الملف أرجو ان تشاهده وتعطيني رأيك db1.rar

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