مساعدة في تصحيح كود واضافة أوامر

السلام عليكم

1- لا تظهر لك النتيجة لأن الرقم يسبقه صفر وأنت جعلت مربع البحث (رقم) ؛ فعند كتابتك 0304 يحذف تلقائيا الصفر وتصبح 304 لذلك تظهر لك رسالة بأن السجل غير موجود ، وتم حله بتعديل مربع البحث وجعله نص وليس رقم

2- تم إدراج زر بالنموذج لعمل نسخة احتياطية وهو للامانة منقول من الاخت الاستاذة الفاضلة زهرة ويوجد نموذج آخر frmBackupCompact منقول من الاستاذ الفاضل Maxxin

3- اظن ان هذا الامر طبيعي جدا لان أول ضغطة إنتر يتم بها تحديد الزر والضغطة الثانية هي الأمر

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

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

تحياتي

record.rar

أخي الحبيب عبد الرحمن هاشم   وفقك الله

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

تفضل اخي الكريم

ملفك بعد التعديل

za-Record-UP.rar

بالتوفيق

أهلا ومرحبا بك أختي زهرة تشرفت بمرورك وتعليقك لا حرمك الله الأجر

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

ملحوظة : كنت اتمنى أيضاً معرفة السبب لأنني جديد من باب العلم لعدم الوقوع في الخطأ مستقبلاً.

نفعك الله بما علمت.

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

Private Sub t1_Change()
Dim vSearchString As String
vSearchString = Me.t1.Text
Me.t2.Value = vSearchString
Me.Requery
End Sub

أختي العزيزة zahrah وفقك الله 

أولاً شكر الله لك سعة صدرك ..

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

سؤال: أنا استخدمت الكود في برنامج آخر فيه نفس الحقول تقريباً مع زيادة بسيطة وعمل معي بشكل جيد واستخرج البيانات دون مشكلة لكن المشكلة تفريغ حقل البحث لا يتم بعد الضغط على زرار البحث انما يبقى الرقم مكانه ولا بد من ازالته يديويا مالمشكله هل هي من الفورم ام الكود. وفقك الله .

اخي الفاضل : ماجد

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

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

لا تقم بحذف الماكروات الضمنه والحاصة بألأزرار انما فقط الماكرو المضمن الموجود في حدث النموذج

ثالثا : تأكد بارك الله بك انك قمت بتخفيض أمان الأكسيس حسب النسخة التي تستخدمها

/index.php/topic/272088-%D8%A7%D8%AF%D8%A7%D8%A9-%D8%AA%D8%AE%D9%81%D9%8A%D8%B6-%D9%85%D8%B3%D8%AA%D9%88%D9%89-%D8%A3%D9%85%D8%A7%D9%86-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D9%8A%D8%B3-%D8%A7%D9%84%D9%89-%D8%A7%D9%84%D8%AD%D8%AF-%D8%A7%D9%84/

بالتوفيق

شكراً جزيلا لك من الأعماق أختي زهرة تم عمل الكود معي بشكل ممتاز في جميع البرامج التي حاولت تشغيله عليها جزاك الله خير الجزاء.

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

طبعاً أنا عملت تصدير للفورم من المثال للبرنامج الخاص بي وتصدير للمودل ونسخت المودل كما هي واضفتها للبرنامج ويقوم بعمل باك أب بشكل جيد إذا عملت الباك أب عن طريق أمر باك أب من البرنامج الخاص بي لكن عند تطبيقها من الفورم الخاص بالاستاذ /Maxxin لاتعمل بالشكل المطلوب كما اسلفت.

اخي الفاضل

تفضل الملف بعد التعديل

1. قم بحذف النموذج القديم الخاص بالنسخ الإحتياطي وإستبداله بالجديد الذي موجود في هذه القاعدة بعد التعديل

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

الموجوده في القاعدة القديمة الى القاعدة الخاصة بك .

za-Record-LAST.rar

بالتوفيق

جزاك الله خير الجزاء أختي زهرة  العمل جاري على تنفيذ توجيهاتك .. لك خالص الشكر.وسأوافيكم بالنتائج.

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