نجوم المشاركات

السلام عليكم ورحمة الله وهذا حل بالمعادلات في الملف المرفق... أخوكم بن علية المعكوس.rar

برنامج المتابعة اليومية للطلاب يحتوي عل التالي : 1- الغياب اليومي للطلاب 2- تسجيل الملاحظات لكل طالب اثناء الحصة من تأخر - آداء الواجبات - السلوك الذي يصدر من الطالب اثناء الحصة .... 3- طباعة تقارير لكل طالب على حده 4- طباعة تقارير خاصة بكل شعبة 5- طباعة احصائيات عن الغياب والسلوكيات المختلفة لكل طالب. 6- استمارة تحويل الطالب على لجنة السلوك بالمدرسة 7- يمكنك حفظ السجل على شكل ملف اكسل. اتمنى ان يحيز اعجابكم ويساعد المعلمين على متابعة الطلاب Follow-Up.rar

أخي العزيز السلام عليكم أرجو أن يكون امطلوب في المرفق Book1.rar

Public Function zaImportAllSheets() Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 blnHasFieldNames = True strPathFile = txtPath strTable = "Sheet" blnReadOnly = True Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, 8, strTable, strPathFile, False, colWorksheets(lngCount) & "$" Next lngCount Set colWorksheets = Nothing End Function أستاذنا الكبير الغالي : استفدت الفكرة التي قد يحتاج إليها السائل لاستيراد عدد محدد من أوراق الأكسل من أستاذتنا الكريمة : زهرة . وما تضمنه الملف السابق من استيراد نتائج الفترات أو نهاية الفصل (للمرحلتين المتوسطة والثانوية [عام - فصلي - مقررات- تحفيظ] أو جداول المقررات ، أو الكشوف و بيانات الطلاب ، و استيراد الأسماء وإعادة تصديرها للبرامج القديمة الداعمة لمعارف)

السلام عليكم أخي الشمال من تجربتي لبرنامج Nitro انه غير متوافق مع اللغة العربية ، يعني لما تصدر التقرير العربي ، صحيح انك تشوف النتيجة بالعربية ، لكن ما تقدر تبحث فيه!! جعفر

السلام عليكم هذه طريقة اخرى باستخدام الكود ومن ثم اختيار مكان لحفظ الملف على صيغة PDF MM - 1.rar

جرب الملف التالي عله يفي بالغرض Grouping Tabs Or Sheets YasserKhalil Officena.rar

مفيش اي معادله خلي تنسيق الخلايا عام وخلصت كدا تمام

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

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

السلام عليكم ورحمة الله أخي الكريم، الدالة VLOOKUP2ALL غير ضرورية في ملفك لأنك تستعمل العمود الأول من النطاق كعمود بحث في الدالة، وهذه تقوم بها الدالة VLOOKUP العادية، فهي إذا كافية... وإذا كان عمود البحث غير العمود الأول فيمكن استبدال الدالة VLOOKUP2ALL بدوال أخرى تقوم مقامها مثل الدالتين INDEX و MATCH أو غيرها.... بن علية

شكرا حبيبي علي الهدية الجميلة والحمد لله ان ال SKIN اشتغلت معاك كل الشكر والتقدير لك اخي الغالي ولمن يعاني من تسجيل الادوات هذه اداة اخرى لتسجيل الاداوات http://up.top4top.net/downloadf-559jzni1-rar.html

بعد اذن الاخ ياسر و الاخ بن علية زيادة في اثراء الموضوع حل اخر المعكوس salim.rar

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " ياسر العربي " على الإرشادات التّصويبات التي دومًا تمنحنا إياها .. جزاك الله خيرًا و زادها بميزان حسناتك هديّة صغيرة مني لك .. فائق إحتراماتي السكين.zip

أخي الحبيب مختار المغوار إليك حل آخر باستخدام المصفوفات عشان لو وصل عدد الأعمدة لألف يبقى الأكواد المقدمة مسبقاً هتكون بطيئة في التعامل (وأهو تدريب لينا على استخدام المصفوفات arrays) Sub ReverseUsingArrays() Dim myArray As Variant, Temp As Variant, LastCol As Long, I As Long, J As Long LastCol = Cells(4, Columns.Count).End(xlToLeft).Column myArray = Range(Cells(4, 4), Cells(4, LastCol)).Value ReDim Temp(1 To 1, 1 To UBound(myArray, 2)) For I = UBound(myArray, 2) To 1 Step -1 Temp(1, J + 1) = myArray(1, I) J = J + 1 Next I Range("D5").Resize(, UBound(Temp, 2)).Value = Temp End Sub تقبل تحياتي

السلام عليكم أخي الامير انا لم انزل برنامجك ، وهذه اجابات عامة عن اسئلتك: بالنسبة للسؤال الاول ، فاعتقد بان العمل كما هو في الرابط التالي افضل لك ، وانا استعمل هذه الطريقة في جميع برامجي تقريبا: http://www.officena.net/ib/topic/65568-تفعيل-ضغط-القاعدة-عند-الاغلاق/?do=findComment&comment=426819 والسؤال الثاني ، انظر الرابط التالي: http://www.officena.net/ib/topic/66017-مشكله-في-التقارير/?do=findComment&comment=429531 واذا لازلت محتاج مساعدة ، فتفضل واترك سؤالك هنا جعفر

السلام عليكم ورحمة الله وبركاته أساتذتى الكرام : اللذين أدين لهم بالفضل والعرفان بكل ما تعلمته فى الإكسيل أحبابى وأصدقائى : أعضاء منتدانا العريق ( منتدى أوفيسنا ) أقدم لكم أحدث تعديل فى كنترول الإعدادى رجب جاويش الإصدار رقم 15 للترمين والدور الثانى 2016 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى شيت كنترول الإعدادى رجب جاويش الإصدار 15.rar

لقد حملت هذا البرنامج من موقعنا الموقر لكن اريد طلب بسيط هو ان يتم ترقيم الفواتير وحفظها في البرنامج اي عندما اكتب رقم الفاتورة تظهر لي الفاتورة المخزون.rar

اقدم لكم برنامج مساعد لمحرر الاكواد لـ vba قم بتحميل البرنامج أولا ثم افتح ملف اكسل وافتح محرر الاكواد الخاص بك . ستجد انك تكون لك شريط قوائم جديدة .. منها تقوم بأختيار الكود وهو يقوم بكتابة الكود عوضا عنك . اترك لكم الرابط http://codevba.com/download.htm#.VoVBeybUjIU طبعاً انا جربتة لأول مرة اليوم واخذت منه تجربة المسج بكس أدخلت فقط نص الرسالة وتنفذ الكود تمام 100%

مشكووووووور أستذنا الغالي رمهان أولا بخصوص الملف قمت بإرفاقه فارغا بعد تعبي من المحاولات و لاعتقادي بأني غيرت قيم كثيرة ثانيا كنت أعتقد بأن الكود مدمج داخل الأكسس ويتم توليد الأشهر تلقائيا ولا يحتاج إلى مصدر الصف بخصوص الحدث والله لا أدري أين أضعه ، وضعته في البداية في "cboMonth Click" ثم "form open" ثم "form current" -------------------------------------------------------------------------------------------------------------------------------------- إذا أمكن أستذنا زيارة هذا الموضوع http://www.officena.net/ib/topic/66084-كيف-يمكن-الحصول-على-رسالة-msgbox-ديناميكية/ لذا فكرت بعمل فورم أقوم بفلتر التقرير ثم من خلال زر أقوم بالطباعة -------------------------------------------------------------------------------------------------------------------------------------- كل ما أريده هو إظهار السنوات داخل مربع سرد إظهار الأشهر داخل مربع سرد آخر إذا أمكن طريقة بسيطة وسهلة أكن لك من الشاكرين بالشرح الممل لو تكرمت علينا بارك الله فيك وفي علمك ورزقك من حيث لا تحتسب

أخى الكريم وأستاذى // ياسر بارك الله فيكم ، وهذا من طيب أصلكم الكريم طبتم وطابتم أيامكم لكم ،، وكل عام وأنتم وأسرة منتديات أوفيسنا بألف خير وتقبل خالص تحياتى وتقديرى

أخى الكريم جرب الملف بعد تعديل بعض الأمور البسيطه form1.1.1.rar

دا اللي قدرت اوصله اتمني يكون هو المطلوب

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

الأب الحبيب الأستاذ القدير / محمد حسن المحمد كل عام وحضرتك بألف خير كما موضح Field Settings لا يوجد بها كلمة Number Format للدخول منها إلى القسم Custom والقسم Custom عند الدخول فيه لا يوجد به مكان للكتابة فهو فقط إختيارات تقبل تحياتى

حبيبى الغالى أستاذى ومعلمى القدير / ياسر خليل كل سنة وحضرتك بألف صحة وسلامة وربنا يجعلها سنة سعيدة عليك قمت بعمل الخطوات ولكن عند إختيار Field Settings لم يظهر لى نافذة فيها كلمة Number Format ولكن يظهر لى الشاشة الأتية ولم أجد القسم Custom واكتب mmm ويوجد فى الصورة السابقة Custom ولكن ليس بها إختيار للكتابة الرجاء الإفادة

السلام عليكم ورحمة الله أخي الكريم، قمت باستبدال الدالة VLOOKUP2ALL بمعادلة صفيف باستعمال الدالة INDEX مرفقة بالدالة SMALL بمرتبتين... أرجو أن يكون المطلوب... أخوك بن علية برنامج توزيع اللجان مزدوجة ومشتركة.rar

أخي الغالي ياسر في نافذة Pivot Table Fields روح للحقل المسمى Billing Date واعمل كليك عليها هيظهر لك قائمة اختر منها Field Settings هيظهر لك نافذة فيها كلمة Number Format روح للقسم Custom واكتب mmm تقبل تحياتي

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

تفضل ... البرنامج3.rar

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

اخ الغالي سأبحث لك في هذا الموضوع لاني لم اقم بتثبيت البرنامج علي نظام 10 سواء 32 او 64 وارجو من الاخوة المتابعين ان يذكرو نظام التشغيل لديهم لنعرف مدى عمل البرنامج ولا اظن انه يوجد نسخه محمولة بكل ادواتها ومكتباتها ومراجعها لان البرنامج يقوم بزرع هذه الاداوت داخل نظام التشغيل وتسجيلها في الريجستري فظني انه اذا جائت نسخه محمولة بردو ستجد مشكلات المكتبات والاداوت ممكن تريح دماغك حاليا وتعمل نسخة اكس بي فير(شوال) علي ويندوز 10 ايه رأيك وتسطب عليها البرنامج لانه مثل هذه البرامج فات عليها زمن احنا متأخرين جامد انا كنت بشتغل علي ويندوز ميلينوم و98 وكان الفيجوال6 ساعتها له بريقه ولمعانه اما الان فهذا هو الموجود VB.NET والتي تعتمد في عملها علي مجموعات النت فريم وورك باصداراتها بجانب انك تستطييع اضافة بعض الادات الاخرى ايضا ومن المعلوم ان اصدارات انظمة التشغيل الاخيره كلها تعتمد علي حزم النت فريم وورك بذلك تتجنب نقص الادوات وتسجيل الادوات والكلام دا كله

أخي الكريم ياسر العربي حاولت تنصيب البرنامج على ويندوز 10 64 بت ولكنه لم يفلح .. هل جريت تنصيبه على هذا النطام ؟ هل يوجد نسخة محمولة كاملة فيها كلها المراجع References حيث جربت النسخة المحمولة ولكن صادفتني مشكلة المرجع Excel Library (نفس مشكلة أخي الحبيب أبو يوسف)؟

مشكوووووووووووور رائع تم فهم الموضوع وحل المشكلة وشكرا

السلام عليكم ورحمة الله أخي الكريم، لقد قدّم لك أخونا أبو البراء الكثير والكثير في الموضوع وطلب منك طلبا بسيطا وهو التعرف عليك بالاسم ولم توفّ طلبه... المهم أقدّم لك العمل التالي في الملف المرفق والذي تم بالمعادلات (معادلات صفيف لاستخراج الثنائيات التي تتحقق فيها الشروط) وقد تم الاستغناء عن المجاميع غير الضرورية والتعديل على معادلات المجاميع في الجدول (والتي جعلت الجدول على شكل مثلث لتجنب التكرارت في الثنائيات -مثلا الثنائية (b,c) هي نفسها الثنائية (c,b) نحتسبها مرة واحدة-) وهذا حسب فهمي للمطلوب والشروح التي قُدّمت... أرجو أن يكون كذلك وأن يفي بالغرض... أخوك بن علية مطلوب تعديل.rar

السلام عليكم ورحمة الله أخي الكريم، لقد تأخرت كثيرا بالرد عنك ذلك لأني لم أفهم المطلوب جيدا... وحسب ما قدمه أخي الكريم أبو البراء بارك الله فيه وجازاه الله خيرا (لا أستطيع حتى أن أبدأ كودا مثل الذي وضعه في الملف -زاده الله من علمه-) وحسب شرحك الأخير اتضح الأمر أكثر لكني لم أجد الطريقة التي أستخرج بها النتائج المطلوبة... الشيء الآخر الذي لم أفهمه ما هو الهدف من التكرارات وكل المجاميع التي وضعتها بالأسفل؟ هل هي فقط للمساعدة؟ وإن شاء الله، سأحاول أكثر في العمل على الملف وأرد عليك لاحقا إن لم يضع أحد الحل قبلي... واعذرني على التأخير... أخوك بن علية

أخي الكريم قلم الإكسيل (لم نتشرف باسمك الحقيقي بعد) إليك الكود التالي عله يؤدي الغرض Sub ReverseRows() Dim I As Long, LastCol As Long, Counter As Long LastCol = Cells(4, Columns.Count).End(xlToLeft).Column Counter = 4 For I = LastCol To 4 Step -1 Cells(5, Counter).Value = Cells(4, I).Value Counter = Counter + 1 Next I End Sub Reverse Values In Row & Results In Another Row YasserKhalil.rar

السلام عليكم مع انشغالي ولكن حبيت ان اوضح نقطة ممكن تخفى على الكثير وهي انه حسب نوع recordset ! قد تحتاج المرور على السجلات فقط اذا كان النوع dynaset مستخدما جملة sql ! بالتوفيق

وعليكم السلام أخي كمال نعم هذا قصدنا انا وأخي عبدالرحمن استعمال الحقل Object OLE في الجدول لتخزين الصور سيبب لك المشاكل. جعفر

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

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

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

وعليكم السلام أخي كامل في عندك خطأ في الاستعلام qryuserpwd . ولكني لم اجد سببا لإستخدامه في النموذج ، فاستخدمت الجدول user مباشرة (يعني تستطيع ان تحذف الاستعلام qryuserpwd) : . وبدل ان نستعمل الاسطر 1-4 ، كان بإمكاننا استخدام السطر رقم 5 فقط ، ولكني جزّأت الدالة حتى يسهل عليك ان تضيف اي عدد من المعايير ، فغالبا هنا يُخطئ الكثير ولا يعرفون الطريقة الصحيحة للمعادلة ، بينما لما جزّأت السطر الى عدة اسطر ، فالمسألة اصبحت سهلة ان شاء الله ولاحظ التنسيق في الكود ، فلم اجعل الاسطر تبدأ من بداية السطر ، وانما عملت TAB وازحت الاسطر لكي تتناسب مع مجموعتها ، فبالطريقة هذه تستطيع ان تقرأ الكود بسهولة وعندما تستخدم DAO.Recordset فيجب عليك ان تأخذ المؤشر الى نهاية الجدول rst.MoveLast ثم تُرجع المؤشر الى بداية الجدول rst.MoveFirst حتى يكون الجدول يتم قراءة محتواه بالكامل ، وإلا rst.RecordCount لن يعطيك النتيجة الصحيحة ، ولا For Next جعفر 328.kamel.accdb.zip

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

في احد برامجي ، والذي كان في الخدمة لمدة 14 سنه تقريبا ، وكان منقسم الى قسمين ، البرنامج كان على الشبكة ويُستعمل طوال اليوم من 5 مستخدمين على الاقل ، كانت خاصية الضغط عند الاغلاق مُفعّلة في جزء الجداول ، وبدون اي مشكلة جعفر

وعليكم السلام ورحمة الله وبركاته مشاركة مع زملائي وبالتحديد تفعيل الخيار الضغط عند الاغلاق : انا مع ابو خليل وذلك للاسباب التالية 1. لم ياتي الخيار افتراضيا معمول صح ! معناته يوضع في حالات خاصة وهنا اتوقع انه عندما يكون لديك انشاء كائنات وحذف كائنات في نظامك اي هناك تعديلات في البنية او تركيبة القاعدة فهنا تحتاج بالضرورة لتفعيل هذا الخيار ! اما اذا كانت لحجم البيانات فهنا تستطيع ان تفعل الخيار في اوقات تحددها انت ثم تعيد ازالة الخيار ! فمثلا استطيع ان احدده عند وقت محدد او عند وصول حجم القاعدة الى حجم معين ! 2. لو كان من الافضل وضع الخيار دائما لتم وضع هذا الخيار ضمنيا في الاكسس وبدون خيار صريح للمستخدم لاحظ انه تولدت فكره من سؤالك ولضغط القاعدة الحالية وذلك بتفعيل الخيار ثم الاغلاق ثم الفتح وتعطيل الخيار وذلك من الامر : Application.SetOption "Auto compact", true Application.SetOption "Auto compact", False تحياتي

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

انظر في المرفقات ادناه المثال بعد التعديل ان كان مفتوحا سيغلق والعكس صحيح فتح وإغلاق وورد.rar

السلام عليكم ورحمة الله أقدم لأخوتي الكرام ملفين (أو برنامجين) خاصين بفك كلمة السر لأنواع كثيرة من الملفات... ونظرا لحجمهما أرتأيت أن أحملهما في موقع آخر... وإليكم رابطاهما: الأول : http://www.mediafire.com/download.php?zmomzmnmmyj بعد تحميله يتم تنصيبه (وربما سيعلن أن في برنامج منه يوجد فيروس قوموا بحذفه... وهذا لا يؤثر على عمل البرامج الخرى التي يحويها) وهو قوي جدا في إيجاد كلمة السر، وقد قمت بتجربته شخصيا على ملف من نوع إكسيل وضعت فيه كلمات سرية عديدة مثل كلمة سر الملف ككل (كلمة سر فتح الملف)، كلمة سر القراءة فقط، كلمة سر المصنف، كلمة سر المشاركة في المصنف، كلمة سر الحماية لكل أوراقه وقد تم تعيينها كلها... بالنسبة لكلمة السر في VBA يمكن استعمال البرنامج الثاني باستخدام برنامج vbakey.exe الثاني : http://www.mediafire.com/download.php?jntt1dhyq3r هذا يتم استخراجه في دليله الخاص أو في آخر أتمنى أن تعجبكم هذه البرامج... وأخوكم موجود لأي استفسار...

وعليكم السلام ورحمة الله لعمل المطلوب أتبع الخطوات الآتية : 1. قم بإنشاء وحدة نمطية وضع فيها الكود الآتي وخزنها في أي أسم تريد '---------------------------------------------------------------------' ' Module: DisableShiftKey ' ' Date: July 18, 2003 ' ' ' ' Purpose: To stop the user from holding the shift key on startup to ' ' access the database window. ' '---------------------------------------------------------------------' Option Compare Database Option Explicit '---------------------------------------------------------------------- Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If End Function '---------------------------------------------------------------------- Function BypassKey(onoff As Boolean) Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey", DB_Boolean, onoff End Function '----------------------------------------------------------------------- 2. قم بإنشاء ماكروات جديدة هي : اسم الماكرو الأول: ByPassKeyOff الإجراء: Runcode الإقتران: BypassKey(False) اسم الماكرو الثاني: ByPassKeyOn الإجراء: Runcode الإقتران: BypassKey(True) 3. نموذج الدخول للنظام الخاص بك قم بإنشاء مستطيل بدون إطار ولون خلفية نفس خلفية النموذج أو إذا كان عندك صورة في نموذج الدخول يمكن استخدامها مكان المستطيل وعرف حدث عند النقر وقم باختيار الماكرو ByPassKeyOn. 4. قم بتشغيل المكرو ByPassKeyOff خزن وأخرج من قاعدة البيانات. 5. الآن عندما تدخل إلى قاعدة البيانات وأنت ضاغط على Shift لن تظهر لك نافذة قاعدة البيانات . لإظهار قاعدة البيانات اضغط بالماوس حيثما وضعت المستطيل المخفي أو الصورة ثم أعد تشغيل القاعدة مع shift ستظهر ولإعادة المنع كرر الخطوة رقم 4. وتعتبر هذه إحدى طرق الحماية لقاعدة البيانات . أملا لك التوفيق في المحاولة مع وافر الاحترام