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

السلام عليكم ورحمة الله وهذا حل بالمعادلات في الملف المرفق... أخوكم بن علية المعكوس.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

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

أنا بستخدم أوفيس 2013 وإنت شفت الفيديو بنفسك .. وشفت الخطوات اللي قمت بيها

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

حاولت اعدل شوية في اوجه المقارنة تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته ليه يتم استخدام برامج خارجية لما ممكن نعمل نفس الشيء باستخدام الاكواد انا بستخدم الكود التالي DoCmd.OutputTo acOutputReport, "Q", acFormatPDF, , True, , , acExportQualityPrint

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

أساتذتي الكرام الأفاضل : أحببت أن أضيف بعض التجارب (بما أن الموضوع لاستيراد بيانات ملفات الأكسل المصدرة من نور) . http://www.mediafire.com/download/yhcina9l4mdz0vl وقد تم التعديل على غالبها بعد ذلك مرارا .

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

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

السلام عليكم إخوتي الكرام: إصدار Windows 8 نظام تشغيل 64 بت لم تتوافق النسخة الكاملة معه مطلقاً ...فاضطررت إلى العمل على الـ Portable الذي يفتقد إلى الكثير من المكتبات بنظري أما الأوفيس 2007 حتى الآن بما أنني ضمن العمل فإنني أخاف أن تتضرر بعض البرامج عند الترقية ولذلك سأراوح مكاني حتى يقضي الله أمراً كان مفعولاً... والسلام عليكم.

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

أخي الكريم قلم الإكسيل (لم نتشرف باسمك الحقيقي بعد) إليك الكود التالي عله يؤدي الغرض 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. وتعتبر هذه إحدى طرق الحماية لقاعدة البيانات . أملا لك التوفيق في المحاولة مع وافر الاحترام