ابوخليل

تفضل استيراد متكرر ضمن جدول واحد استيراد بيانات.rar

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

تفضل لاحظ الوحدة النمطية العامة وايضا المعيار في استعلام مربع التحرير في النموذج2 sample2.rar

وعنك وعن اخينا يوسف صاحب الموضوع وشكر خاص للاستاذ Bluemind ثم الحمد لله اولا واخيرا

انظر التطبيق ونتيجة التعديل على الحقل النصي حيث وضعت التسمية في قيمة العلامة Log File_up4.rar

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

ممكن اذا كانت المعادلة خارج الحقل ( في صفحة المحرر)

هو اسم الحقل في النموذج ، ويمكنك تغييره من : خصائص الحقل/غير ذلك/ الاسم ولكن الاشكالية فيما لو كان الاسم مرتبطا بحدث فيلزم مراعاة ذلك كما يمكن كتابة اسم الحقل كتسمية توضيحية في احد قيم الحقل ضمن الخصائص مثلا في القيمة الافتراضية او في العلامة (Tag) ثم الاشارة الى ذلك في الوحدة النمطية باستبدال ctlC.name بالقيمة الجديدة

ارفق الجداول حيث ان الرسم اعلاه لا يعطي تصور واضح

من الضروري وجود بيانات مناسبة في الجداول من اجل التطبيق ورؤية النتائج

لا يمكن اضافة بيانات في مربع القائمة بينما يمكن ذلك في مربع السرد والتحرير

نعم ، انظر الى المثال السابق المعدل اجعل الكود في النموذج الفرعي في حدث قبل التحديث

وشكر لك اخي ابا عمر

هنا تكملة للموضوع http://www.officena.net/ib/index.php?showtopic=45823#entry271553

وهذا تعديل بسيط على المثال لاظهار اسم الجدول الذي تم التعديل عليه Log File_up2.rar

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

وجدت لك شيئا قد ينفعك

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

طربقة اخرى مع تلافي الخطأ sample_up.rar

احدى الطرق هي استخدام القائمة Attendance_up.rar

تفضل منع تكرار الرقم في جدولين ، مع رسالة بموقع الرقم . new_up.rar

http://www.officena.net/ib/index.php?showtopic=37777#entry203485

ضع هذا الكود في حدث نقر الزر Dim stLinkCriteria As String Dim str_Title, str_Prompt As String 'Dim mypass As Integer 'mypass = DLookup("[Password]", "tblUsers") str_Title = "كلمة المرور" str_Prompt = "ادخل كلمة المرور" If InputBox(str_Prompt, str_Title) = 123 Then '123 or mypass stDocName = "MainForm" DoCmd.OpenForm stDocName, , , stLinkCriteria Else MsgBox "ادخال غير صحيح", , "لا يمكنك الدخول" Exit Sub End If

قم بتخفيض أمان أكسس إلى الحد الأدنى

تم التعديل اكتشف خطوات العمل طباعة_up.rar