صالح حمادي

السلام عليكم و رحمة الله تعالى و بركاته: هذا الكود لمنع التعديل على بيانات النموذج: Form.AllowEdits = False و هذا الكود للسماح بالتعديل على بيانات النموذج: Form.AllowEdits = True

السلام عليكم و رحمة الله تعالى و بركاته. قم بإنشاء وحدة نمطية جديدة و ألصق بها الكود التالي: Function ap_DisableShift() 'This function disable the shift at startup. This action causes 'the Autoexec macro and Startup properties to always be executed. On Error GoTo errDisableShift Dim db As DAO.Database Dim prop as DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb() 'This next line disables the shift key on startup. db.Properties("AllowByPassKey") = False 'The function is successful. Exit Function errDisableShift: 'The first part of this error routine creates the "AllowByPassKey 'property if it does not exist. If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowByPassKey", _ dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox "Function 'ap_DisableShift' did not complete successfully." Exit Function End If End Function Function ap_EnableShift() 'This function enables the SHIFT key at startup. This action causes 'the Autoexec macro and the Startup properties to be bypassed 'if the user holds down the SHIFT key when the user opens the database. On Error GoTo errEnableShift Dim db as DAO.Database Dim prop as DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb() 'This next line of code disables the SHIFT key on startup. db.Properties("AllowByPassKey") = True 'function successful Exit Function errEnableShift: 'The first part of this error routine creates the "AllowByPassKey 'property if it does not exist. If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowByPassKey", _ dbBoolean, True) db.Properties.Append prop Resume Next Else MsgBox "Function 'ap_DisableShift' did not complete successfully." Exit Function End If End Function خلف زر تعطيل مفتاح الشيفت ضع الكود التالي: ap_DisableShift خلف زر تفعيل مفتاح الشيفت ضع الكود التالي: ap_EnableShift

و فيك بارك الله

تفضل أظن أن هذا هو المطلوب إظهار البيانات.rar

تفضل التعديل أخي إظهار البيانات.rar

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

قم بإجراء التعديل التالي على الدالة dlookup: Me![id] = DLookup("[id]", "[Test]", "[Pcdigit]=" & Forms![frm_Test1].[Pcdigit]) Me![Mname] = DLookup("[Mname]", "[Test]", "[Pcdigit]=" & Forms![frm_Test1].[Pcdigit]) أما بالنسبة لكتابة الحرف m قبل الرقم فأنت لا تحتاجه يكفيك كتابة الرقم فقط و سوف تظهر النتيجة. و مع هذا كله فإن نتيجة الحقل في التقرير يظهر بها الرقم و الحرف كما هو مكتوب في الجدول test تماما

السلام عليكم و رحمة الله تعالى و بركاته: بعد إذنك أستاذ محمد. هذه طريقة أخرى للبحث يمكنك إستعمالها و هي تلبي طلبك أخي محمود. البحث.rar

آمين يا رب العالمين و لك بالمثل أستاذي و أخي محمد أيمن و لكل أعضاء منتدانا الغالي

السلام عليكم و رحمة الله تعالى و بركاته: قم بالتعديل على كود الدالة dlookup لتصبح كالتالي: Me.Text17 = DLookup("[Avg]", "QryZvalue2", "[Code]='" & Me.Code1 & "'")

السلام عليكم و رحمة الله تعالى و بركاته: أستاذ محمد حياك الله و بعد إذنك. هناك فكرة ممتازة قدمها لنا الأستاذ جعفر توضع في الجدول و قد قمت بإضافتها إلى النموذج و تم حل المشكلة بنجاح بإذن الله تعالى. 1- إذهب إلى خصائص مربع النص حاسب في خاصية تنسيق و أجري التعديلات التالية كما في الصورة: و سوف تصبح كالتالي: 2- قم بنفس التعديلات على الحقل حاسب في جدول test على خاصية تنسيق كالتالي: 3- ثم إذهب إلى الكود خلف زر ترقيم و عدل عليه كالآتي: Me.حاسب = AutoNumber("Test", "حاسب") و هذا هو التعديل على المرفق: AutoNumber.rar

السلام عليكم و رحمة الله تعالى و بركاته. يجب عليك تغيير تنسيق الصورة إلى jpeg لقد جربت ذلك و نجحت معي الفكرة

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

مرحبا بك أستاذ جعفر أفكارك ممتازة و لهذا نحن نعتز بمداخلاتك معنا بارك الله لك و عليك و جعل مثواك الجنة إن شاء الله

السلام عليكم و رحمة الله تعالى و بركاته أما بعد: 1-الخطأ الأول و الذي يقوم بإظهار الرسالة هو لأنك في جدول Avactions نوع الحقل ID جعلته ترقيم تلقائي بل يجب أن يكون نوعه رقم. 2- في الإستعلام qq يجب أن يكون الحقل ID مصدره الجدول Avactions و ليس Emp. 3-قبل القيام بهذا كل يجب أن تقومي بربط الجدولين علاقة رأس بأطراف بمعنى أن يكون الربط بين الحقل ID من جدول Emp بالحقل ID من جدول Avactions 4- أن لا يكون الحقل ID من جدول Avactions مفتاح اساسي و في نفس الوقت يجب أن يكون يقبل التكرار. إتبعي هذه الخطوات و إن شاء الله سوف تصلين إلى الحل.ثم أطلعيني على النتائج. هذا هو الملف مع التعديل اضافة اجازة محددة لاكثر من موظف.rar

ربما أنك ي لم تنسخي الكود كاملا أو أن النموذج الذي تنقلين له الموظفين غير مفتوح تأكدي من هذا الكود جيدا: DoCmd.GoToRecord , , acNewRec و إلا فأرسلي المرفق و سوف نرى

السلام عليكم و رحمة الله تعالى و بركاته أخوي أذهب إلى خصائص العناصر و غير خاصية الإرتساء الأفقي في تبويب تنسيق و اجعلها يسار أو يمين لكل العناصر

و أنا في إنتظارك أستاذ رمهان. أنا الآن في جهازي رفعت مستوى الأمان يعني أن جميع التعليمات البرمجية معطلة و تستطيع استخدام مفتاح الشيفت كما تريد. و كنت أتابع دروس الأستاذة أم عهود جزاه الله كل خير حول حماية البرامج برقم الهارد ديسك. http://arabteam2000-forum.com/index.php?/topic/56706-حماية-قاعدة-البيانات-برقم-الهارد-دسك/&do=findComment&comment=281373 و في أحد الأمثلة التي طرحتها رغم أني رفعت مستوى الأمان و أستعملت مفتاح الشيفت و لكن البرنامج لما يفتح يقوم بعرض النموذج الأول مباشرة. و هذا هو النموذج أحببت أن أعرف الطريقة رغم إجرائي للعديد من المحاولات لكنها باءت كلها بالفشل. LEVEL2.rar مع العلم أني أستخدم أكسس 2010

جزاك الله خيرا أستاذ رمهان

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

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام حياكم الله هل يوجد برنامج يقوم بإضافة الحماية لملفات أكسس 2010 برقم اللوحة الأم مثل برنامج القلعة لكن برنامج القلعة لا يعمل مع أكسس 2010 و لكم مني جزيل الشكر

أستاذ جعفر جزاك الله خير لقد توصلت إلى كود يمكنني من عمل ضغط لأي قاعدة بيانات FileCopy "f:\100.accdb", "e:\100.accdb" Kill "f:\100.accdb" Set acc2007 = CreateObject("DAO.DBEngine.36") acc2007.CompactDatabase "e:\100.accdb", "f:\100.accdb", Nothing, Nothing Set acc2007 = Nothing Kill "e:\100.accdb" MsgBox "لقد إنتهت المهمة بنجاح" Quit أتمنى أن تعطيني رأيك في هذا الكود

الكود التالي يقوم بعملية ضغط قاعدة بيانات من داخل قاعدة بيانات أخرى. DBEngine.CompactDatabase "e:\100.mdb", "f:\100.mdb", dbLangGeneral, dbEncrypt لكن المشكل لا يعمل على قواعد البيانات 2007 و 2010 إمتداد accdb

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

أنا أريد إنشاء برنامج و أجعل قاعدة البيانات منفصلة على البرنامج. يعني لما أريد ضغط و صيانة قاعدة البيانات لا أذهب لملف القاعدة و إنما أريد ضغطه من خلال برنامج الواجهة.