طلال

الأخ أبو حمود السلام عليكم ورحمة الله وبركاته وبعد ارجو كرماً كما عودتنا ان ترسلي المثال مع الشكر

نعم اضم صوتي اليكم فهو يستاهل أكثر من ذلك بكثير وفقه الله ورعاه

الأخوة الزملاء السلام عليكم ورحمة الله وبركاته ارجو ممن لديه خلفية عن كيفية تشغيل برنامج دلفر أكسس 2000 و الذي يقوم بتحوبل قاعدة البيانات على الأكسس في ظل بيئة الأكسس إلى الاستقلاليه عن البرنامج وتحميلها عن طريق setup

الظاهر يا ابو حمود ارسلك القاعدة بها النموذج المحمي باسم نموذج3 على البريد

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

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

الأخ ابو حمود لم يعمل مرة أخرى هل مطلوب تغيير كلمة نموذج محمي بكلمة سرية إلى اسم النموذج الذي لدي اما الكود الذي وضعتة بعد تعديلك كالتالي في نموذج الكلمة السرية Private Sub Form_Close() If تأكد_عند_الإغلاق = False Then DoCmd.Close acForm, "نموذج محمي بكلمة سري…

الأخ ابو حمود لقد حملته عن طريق حفظ الهدف باسم

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

الكود في نموذج الكلمة السرية Private Sub Form_Load() Option Compare Database Dim تأكد_عند_الإغلاق As Boolean Private Sub Form_Close() If تأكد_عند_الإغلاق = False Then DoCmd.Close acForm, "نموذج محمي بكلمة سرية" End Sub Private Sub Form_Open(Cancel As Integer) …

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

لقد عملت جميع الخطوات التي ذكرتها ولكن عند التنفيذ ظهرت رسالة run-time error 2501 تم الغاء الإجراء open form وعندما عملت debug ظهر اللوحة النمطية عند السطر docmd.openform"نموذج الكلمة السرية" باللون الأصفر هذا ما حصل

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

ارجو ذلك يا ابوحمود وحبذا لو كان بمثال

لدي كود من صنع الأستاذ مسافر وهو يخص فتح نموذج برقم سري كما يلي Private Sub أمر29_Click() On Error GoTo Err_أمر29_Click MsgBox "لا يمكن الدخول إلا للمصرح لهم فقط", vbInformation, " حركة النقل " Dim password, Pword password = "1383" Pword = InputBox("من فضلك اد…

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

ارسلت لك نسخة من البرنامج على البريد

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

ممتاز يا مسافر ودائم افكارك جميله

شكراً على الرد السريع