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

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

أحسنت استاذ وجيه بارك الله فيك وزادك الله من فضله .. عمل ممتاز

الدرس الاول في UserForm عناصر الدرس 1- اضافة التبويبات الرئيسية للفورم 2- اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module اولا : اضافة التبويبات الرئيسية 1- نقوم باضة userForm ثم نضيف اطار Frame ونضيف داخله عدد 5 Lebel بالنسبة لعنوان اكتب ما تشاء عربي انجليزي لكن المهم Label Name ( Btn1-Btn2-Btn3-Btn4) ا BackStyle =0 BorderStyle=0 واليبل الخامس لتغير خلفية النص Name=AnlBtn BackColor=&H8000000E& ثم نضيف ليبل خاص بالعنوان نسميه PageNo ثم نضيف MultiPage ونضيف في ال Page1 ثانيا ربط التبويبات بالفورم نضيف Class Module نكتب داخله الكود التالي Public WithEvents LblBtn As MSForms.Label Private Sub LblBtn_Click() ' للحركة بين التبويبات UserForm1.AniBtn.Left = LblBtn.Left 'ربط صفحات المالتي بيج مع التبويبات UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1 'شريط العنوان UserForm1.PageNo.Caption = "Page No " & UserForm1.MultiPage1.Value + 1 & " ( " & LblBtn.Caption & " )" End Sub وفي الفورم Dim LblEvent(3) As New Class1 Private Sub UserForm_Initialize() With Me.MultiPage1 'لتغير استايل المالتي بيج .Style = fmTabStyleNone: .Value = 0 End With 'عدد التبويبات 4 من صفر الي 3 For AddEvent = 0 To 3 Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1) Next AddEvent End Sub الملف بالمرفقات ياريت ننفذ الخطوات ولو اي استفسار ماتترد اتمني من الله اكون بسط الشرح ويكون فيه الاستفادة مع تحياتي MultiPage Officana.xlsm

السلام عليكم ورحمة الله وبركاته ❤️ أخي الحبيب وجيه شرف الدين زادك الله شرفا ورفعة,أسأل الله تعالى أن يبيض وجهك وييمن كتابك وييسر حسابك آمين.

شكرا اخى واستاذى على واستاذى ابراهيم الحداد لمروركم الكريم

السلام عليكم و رحمة الله عمل يليق بك و بموهبتك الرائعة جعله الله فى ميزان حسناتك

طريقة اخرى عن طريق متغير عام اولا نعلن عن متغير في اي وحدة نمطية حتى لو كانت فارغة Public x As Byte في النموذج form1 في حدث عند الفتح نضع الامر x=1 في نفس النموذج في حدث عند الاغلاق نضع الامر x=0 في نموذج frm3 نضع الامر If x = 0 Then MsgBox "لايمكن فتح النموذج", vbCritical, "تنبية" Cancel = -1 Exit Sub End If مرفق مثال mm(1)(2).mdb

في النمودج 2 في حدث عند الفتح نضع الامر التالي If (Application.CurrentProject.AllForms("form1").IsLoaded) = False Then MsgBox "لايمكن فتح النموذج", vbCritical, "تنبية" Cancel = -1 End If مرفق مثال حاول تفتح نموذج frm3 لن يفتح معك افتح نموذج form1 ثم جرب فتح frm3 سيتم فتحه اخي احمد لسهولة الاجابة على استفساراتك مستقبلا قم بوضع مثال تسهيلات على من يرغب الاجابة تحياتي mm(1).mdb

مشاركة مع الاستاذ @kanory باستخدام كود فلترة بمعيارين وبدون معايير الاستعلام Dim strWhere As String strWhere = "" strWhere = strWhere & " [السائق] like '*" & Text1 & "*'" strWhere = strWhere & " and " & " [الشهر] like '*" & tx2 & "*'" Me.frm1.Form.Filter = strWhere Me.frm1.Form.FilterOn = True ولطباعة تقرير نتيجة الفلترة DoCmd.OpenReport "re1", acViewPreview, , Me.frm1.Form.Filter مرفق الملف mm(1).mdb

جرب المرفق وانظر ......... عند كتابة البحث انقل المؤثر خارج منطقة البحث .... mm.mdb

ان شاء الله احاول تكون الشروحات فيديو

بسم الله الرحمن الرحيم الكتير منا بتجيله فكرة وعاوز ينفذها لكن عدم مقدرته علي الامساك بالخيط المناسب فيتراجع ويكبت افكاره مرة تلو الاخري لحد مايصل الي مستخدم غير قادر علي الابداع في مجاله المعذرة اني بكتب بالعامية لكن حبيت اشارككم بما في خاطري من فترة كنت بتصغح موقع هندي عجبتني فكرة الموقع في طرح المواضيع المحاضر يقوم بنشر الفكرةوينفذها مع المتابعين عن طريق درووس مدة كل درس حوالي 40 دقيقة يبدا بتصميم اليوزفورم وشرح الكود سطر سطر بيعمل ايه وليه ويرفق مع الشرح الكود فقط ويترك للمتابع المجال انه ينفذ هو ويحيك اليوز بنفسه ويركب الكود ويخطيء ويسال ويتعلم الاحساس بالتفاعل بين الاطراف بيولد طاقة ورغبة في المواصلة علي العطاء والشرح وكلنا بنتعلم من بعضنا البعض حسيت انه ده هو المهم اننا بنعمله في المنتدي ونتخلص من مشكلة الارشفة عند طرح الموضوع تلاقي نسبة المشاهدة 600 ونسبة تحميل الملف 400 والمشاركات تلاقيها 3 او 4 مشاركات عند طرح الموضوع ليس بقصد التقييم انما بقصد المشاركة نتفاعل ... نتعلم .... لكن للاسف معظمنا بحمل الملف ويحفظه في الارشيف دون التطرأ لما فيه او المحاولة لفهمه وده خلاني اطرح الموضوع الحالي واعتذر عن الاطالة الموضوع هو الفورم التغاعلي UserForm interactive التخلص من الشكل التقليديVisual Basic كلنا متفقين انه الـ Visual Basic موارده الجمالية محدودة لكن غير محدود في الخداع البصري وده يلي هانتعلمه دمج Infographics والبيئة التفاعلية مع الVisual Basic بحيث المستخدم لا يحس بالملل عند استخدامه بالمرفقات الملف يلي هانشتغل عليه خطوة خطوة في حالة قبول التفاعل مع بعضنا البعض لنتعلم ونبدع , الملف لا يحتوي الا علي الوظائف التفاعلية UserForm interactive.xlsm رابط الدرس الاول في الفورم التفاعلي اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module رابط الدرس الثاني في الفورم التفاعلي Advance Data Entry Software مدخل للدرس الثالث How to Generate and Preview PDF File in Userform Create Dynamic Drop-Down Menu In Excel Userform قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها رابط الدرس الثاني ListView Right to Left الدرس الثاني Create Dynamic Drop-Down Menu In Excel Userform Dark Mood App Officana Business Application Final Template Generate QR Code برنامج ادارة الاشتراكات مع شاشة دخول متعددة المهام ZAD IPTV Subscriptions Create Drill Down Data Entry

بارك الله فيك استاذنا الكريم ومتابعين سلسلة الشروحات ومنتظرين المزيد بالتوفيق دائما للمبدع @ضاحي الغريب والقائمين على المنتدي العظيم

بارك الله فيكم اخوتي الكرام kanory مبرمج متقاعد و جزاكم الله كل خير 💜

وعليكم السلام ورحمة الله تعالى وبركاته اسماء الاعمدة غير متطابقة ... حاول توضح طلبك اكثر او وضع نمودج للنتيجة المتوقعة لكي نستطيع مساعدتك

بما انك لم تقم بارفاق ملف للتوضيح اكثر ممكن تجرب هدا الحل بالمعادلات للحصول على عدد الاختلافات للصنف الواحد وممكن تضيف عليه تنسيق شرطي لو احببت =SOMME(SI(A3=$B$6:$B$201;1/(NB.SI.ENS($B$6:$B$201;A3;$A$6:$A$201;$A$6:$A$201));0)) TEST.xlsx

بارك الله فيك استاذ ضاحى جعله الله في ميزان حسناتك يوم القيامه

تفضل أخي يمكنك العمل به على نواة 64 بت ( 64 bits ) . Shift Enab .mdb

رابط الدرس الاول في الفورم التفاعلي https://www.officena.net/ib/topic/116889-الدرس-الاول-في-الفورم-التفاعلي/

شكرا شكرا والف شكر ورضى الله عنك وعن والديك الحمد لله موقع جميل

اختار ما تشاء من مجموعة الايقون بما يتناسب مع احتياجاتك https://www.google.com/search?q=employee+icon+png

بعد اذن اخي واستاذي ابو الكرم هذا كود استعلام حذف بمعنى احذف جميع الحقول في جدول YourTbl بدلا عنه اكتب اسم الجدول الذي ترغب في حذف سجلاته RgmRtba اسم الحقل في الجدول الذي سنحددة معيار للاستعلام Me.RgmRtba اسم مربع التحرير والسرد في النموذج لاحظ ان الاستاذ وضع علامة <> اي سيتم حذف السجلات التي لا تطابق الاسم في القائمة ويمكن استبدالها الى = اذا كنت ترغب حذف ما يطابق الاسم في القائمة

CurrentDb.Execute "DELETE * " & _ " FROM YourTbl " & _ " WHERE RgmRtba <>" & Me.RgmRtba

السلام عليك تفضل الملف يعمل ادخاÙ_ بÙ_اÙ_ات غÙ_اب.xlsm

السلام عليكم.. في الحقيقة أن ربط قاعدة البيانات الخلفية بالأمامية إنما هو لوصل البيانات بالنماذج والتقارير! عند استخدامنا لمعالج تقسيم البيانات أو معالج الربط فإن أكسس يقوم بإنشاء جداول نظام يخزن بها البيانات المتعلقة بربط البيانات ومصدرها وآلية ربطها.. الصورة التالية تبين مصدر البيانات وآلية الربط.. نلاحظ في السجل المحدد كيف قام المعالج بتعريف مصدر البيانات المتعلقة بجداول أكسس.. أرجو أن يكون بمقدوركم فهم العلاقة بين مصدر البيانات ومسميات الجداول في المصدر وقاعدة البيانات الأمامية.. لعمل الربط غير المباشر للبيانات عن طريق الشفرة بجداول بيانات أكسس نحتاج إلى الشفرة التالية.. نضع الشفرة التالية في وحدة نمطية عامة Public Function APP_PATH() As String APP_PATH = CurrentProject.Path End Function Public Function DBDAO() As DAO.Database Set DBDAO = OpenDatabase(APP_PATH & "\DB1.ACCDB", False, False, ";PWD=''")'ضع كلمة المررور إذا كانت مطلوبة End Function نضع الشفرة التالية في حدث عند الفتح في النموذج Set Me.Recordset = DBDAO.OpenRecordset("EMPLOYEES", dbOpenDynaset)

بالتوفيق اخي الكريم لا تنسى الضغط على افضل اجابة تحياتي

السلام عليكم مرحبا اخي الكريم بالنسبة فكرة عمل نسخة احتياطية للبرنامج لا بد ان تكون دقيق في هذه العملية اولاً : هل المسار ثايت ام يحدده المستخدم في كل مرة اذا كان المسار ثابت فيجب ان يكون دقيق جداً فمثلا انت تكتب في المسار "نسخ احتياطى" ولا يوجد مجلد بهذا الاسم ولكن الاسم الموجود "تسخة احتياطية" وهناك اكثر من خطأ في المسار لديك وانصحك وبشدة ان تستخدم كلمات انجليزية ( علماً بأني ضعيف في الانجليزي لكن من خلال المشاكل التي لا حصر لها التي واجهتني في عملي اضطررت لحفظ بعض الكلمات والاستفادة من خدمة جوجل للترجمه في اوقات كثيرة ) ثانياً : هل النسخ الاحتياطية للجداول فقط ام للبرانامج بالكامل اذا كانت للجداول فقط فستحتاج الى تحديد الجداول مسبقاً وهذا والحمد لله لم نتعرض له لانه يحتاج الى كثير من الاكواد ثالثاً : عملية الاسترجاع يتم تحديد ذلك بناءا على بند ثانياً فانت لم تقم بنسخ الجداول وهذ افضل وبما ان النسخ الاحتياطي تم لكامل البرنامج فما عليك الا نسخ Copy من مجلد النسخ الاحتياطي الى مكان البرنامج الاصلي ولصق Paste وتغيير اسم البرنامج وحذف التاريخ والوقت وارى والله اعلم ان هذا الاختيار به فائدة كبيرة فقد تكون قاعدة البيانات الحالية بها مشاكل فتقوم بنسخ الاحتياطية الخالية من المشاكل وتكمل عملك بنجاح تم تعديل الاكواد والمسارات وسيتم باذن الله عمل نسخة احتياطية لكامل البرنامج حسب تاريخ اليوم في مجلد اليوم الخاص به ( السبت - الاحد ... الجمعه ) اوراق دفع.rar تحياتي

بسم الله الرحمن الرحيم قواعد المشاركة بمنتدي أوفيسنا المنتدى مثله مثل أي عمل جماعي لابد أن تكون هناك أسس واضحة للمشاركة فيه، يقرها ويلتزم بها جميع الأعضاء للحصول على الفائدة العامة. وقبول العضوية بالمنتدى تعني ضمناً الموافقة على قواعد المشاركة المعتمدة به. هذه الوثيقة تشمل قواعد طرح الاسئلة التي يرجي مراعاتها لضمان الحصول على أفضل نتيجة، وهذه القواعد لم توضع بهدف تسلط أو تعقيد، وإنما الهدف منها تحقيق المنفعة العامة من المنتدى، وان لم تمثل الوضع المناسب لجميع المشاركين في جميع المواقف، يجب أن يتم الالتزام بما ورد فيها بصورة كاملة، ومخالفة قواعد المشاركة تعرض المشاركة للإلغاء وفي حال تكرار المخالفة قد يتعرض المخالف لعقوبات تصل لإيقاف العضوية. وأخيرا وقبل أن نعرض إلى القواعد، ندعو الله أن يكون ما يبذل من جهد من الجميع هنا من باب "علم ينتفع به "، فكما قال رسول الله صلي الله عليه وسلم: (إذا مات الإنسان انقطع عنه عمله إلا من ثلاثة: إلا من صدقة جارية. أو علم ينتفع به. أو ولد صالح يدعو له). قبل كتابة موضوع جديد 1. استخدم البحث في المنتدى قبل وضع سؤالك فقد يكون مكررا. وذلك لتفادي عواقب التكرار وأهمها أن تكرار الموضوع سيصعب المهمة على من يبحث بعدك كما أنه يمكنك توفير جهد الأعضاء للإجابة على موضوع آخر لم يطرح سابقاً. 2. يتم طرح السؤال باللغة العربية الفصحى لأنها مفهومة للجميع، وتجنب استخدام اللهجات المحلية 3. تأكد أن طرح سؤالك في المكان المناسب لتحصل على أفضل إجابة، لا تسأل في المنتدى العام عن مشكلة في الاكسيل. وإذا كنت تريد الإعلان أو طلب برنامج بأجر أو بمقابل مادي فيجب نشر موضوعك بقسم إعلانات شخصية بأجر للأعضاء. عنوان المشاركة 4. يجب أن يكون عنوان المشاركة يدل على محتواها 5. أن لا يحتوي على عبارات مثيرة مثل " النجدة "، "الحقونا 6. يمنع منعا باتا توجيه السؤال إلى شخص بعينه لان هذا قد يدفع الآخرين إلى عدم الإجابة، والهدف هو التفاعل من الجميع. 7. يرجى إضافة الكلمات المفتاحية تحت العنوان لتسهيل الوصول إلى الموضوع من خلال عملية البحث لاحقاً، كما أن المنتدى يظهر بطريقة آلية المواضيع الشبيهة تحت الموضوع بناء على الكلمات المفتاحية المسجلة. محتوى المشاركة 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. 9. بخصوص التسميات، يُفضل أن تكون أسماء الكائنات والحقول بالإنجليزية، لان العربية تحدث فيها مشاكل مع الأكواد. 10. اذكر في محتوى مشاركتك عن المجهود الذي قمت به لكيلا يأتيك رد قد قمت بمحاولة تنفيذه بالفعل. 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. 12. يمنع وضع سؤال لا علاقة له بالموضوع الموضوع فيه التساؤل أو ليس له مناسبة في وضعه معه. 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية 14. - يجب عند الرد، عدم الاكتفاء بإضافة مرفق بالحل، بل يجب التوضيح و الشرح، و اضافة الكود المستخدم (إن وجد) ، بالإضافة للمرفق، و ذلك لتعم الفائدة 15. يفضل عدم طلب عمل برنامج فهذا المنتدى للتبادل العلمي، وليس للبحث عن البرامج الجاهزة، ولكن ابدأ بالعمل واطرح المشاكل التي تواجهك (بعد البحث في المنتدى منعا للتكرار). وما سبق طرحه من برامج يمكنك الوصول إليها باستخدام البحث، ويفضل ألا تخصص مشاركة لهذا الغرض وإن كان ذلك متاح لكن ممنوع الإلحاح في ذلك. 16. عدم طرح أي اقتراح بخصوص المنتدى أو شكوى في الأقسام العامة، فهناك قسم مخصص لذلك المرفقات 17. إذا لم يكن السؤال يسهل فهمه عن طريق الشرح فقط، يجب إرفاق مثال. 18. المرفقات يجب تحوي مثال مبسط وعينة كافية من البيانات بحيث تعم الفائدة دون الحاجة لتحميل ملفات كبيرة الحجم 19. تجنب نشر بيانات حقيقية يخشى نشرها ويمكن أن تطلب حذفها لاحقاً. المحظورات 20. يمنع منعا باتا نشر أية موارد تخالف حقوق الملكية الفكرية بما في ذلك الكتب والكراك وتبادل السيريال، والمخالفة تعرض المشاركة للإلغاء والعضوية للإيقاف. 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص. كما يمنع ذكر وسائل التواصل الخاص أو البريد الإليكتروني في المشاركات لتعم الفائدة. وسيتم حذف وسائل التواصل أو البريد حال إضافتها. 22. يتم حذف أي مشاركة تحتوي على الفاظ وعبارات وأعمال مخالفة للشرع أو الأخلاق العامة أو التي تحوي عبارات عرقية أو دينية أو أي عبارات قد تجرح مشاعر الآخرين. مع إيقاف صاحب المشاركة نهائياً، وحجب البريد المسجل به. متابعة المشاركات 23. ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق، كما يمنع منعا باتا ذكر أكثر من سؤال في نفس الموضوع، وهذا لكي يسهل البحث والحصول على المعلومة على من بعدك. 24. إذا كان الموضوع استكمالا لموضوع موجود مسبقا في الأرشيف فيرجي وضع رابط الموضوع الذي تريد استكماله أو الإضافة عليه لتسهل على الجميع الوصول إلى الموضوع المشابه. الإشارة لمواقع أخرى 25. لا تأخذ مواضيع أو ردود آخرين وتنسبها لنفسك.. هذه سرقه، إذا كنت قد اقتبست، أذكر أسم صاحب الموضوع، أو على الأقل اذكر أن الموضوع منقول. 26. يمنع الرد على الاستفسارات عن طريق الإشارة لموقع آخر، يجب وضع الحل كاملاً هنا ويمنع أن تكون الإجابة عن طريق الإشارة لموقع آخر فقط. ولا مانع من نشر اسم المصدر دون وصلة في نهاية الرد بعد وضع الرد والشرح كاملاً بعد المشاركة 27. لا تتوقع أن يجاب على سؤالك خلال ساعات قليلة، لكن تأكد أولا تأكد سؤالك يستحق الإجابة (غير مكرر، ويوفر معلومات كاملة).. أحيانا يحتاج من يجيب للوقت لجمع معلومات عن الإجابة 28. إذا تأخرت الإجابة فمن حقك الاستعجال فقط بإضافة عبارة "للرفع" على فترات متباعدة بدون أي عبارات أخري لا داعي لها. 29. يجب أن يكتب صاحب الموضوع في حالة حل مشكلته أن المشكلة قد حلت ليتوقف الأعضاء من الاستمرار في حل المشكلة. 30. من الجميل أن تتبع الإجابة عن سؤالك بشكر لمن ساعدك، وبإخبار عن النتيجة، العديد يتابع الأسئلة، ويود أن يعرف عن النتيجة، فمن واجب السائل أن يشكر من حاول مساعداته بالنقر على زر الإعجاب، وأن يختار خيار أفضل إجابة ليعرف الجميع أن موضوعه قد تم حله بطريقة مرضية. 31. على الجانب الآخر إذا لم يأتيك شكر على موضوع قدمته، فنرجو اعتبار كل قراءة من قراءات الموضوع باقة ورد وشكر لك من المشرفين والأعضاء، ونذكرك بأن الموضوع لا تقتصر فائدته علي من قرأوه في وقته فقط، ولكن تصل إلى كل من يبحث لاحقا في المنتدي وهم ان شاء الله أضعاف من يقرأه في وقته، ونسأل الله عز وجل أن يضاعف لك الجزاء عن كل من يستفيد منه. حذف وتنقيح المشاركات 32. ما يتم نشره ويتفاعل الأعضاء معه لا يمكن طلب حذفه، فبنشره يصبح ملكية عامة. 33. إذا كانت المشاركة تحوي بيانات خاصة فلا تنشرها واستبدلها ببيانات غير حقيقية، حتى لا تطالب بحذف المشاركة لاحقا. 34. يتم تنقيح المشاركات دوريا وحذف المشاركات غير المجدية، ودمج ما يلزم من مشاركات. أسماء الدخول للموقع و الأسماء الحقيقية 35. يرجى مراعاة تجنب الأسماء أو الكنيات الغريبة فيما يخض إسم الدخول للموقع User Name 36. يفضل كون اسم الدخول باللغة العربية و عدم استخدام الأسماء الغريبة او غير المعتادة سواء باللغة العربية أو غيرها. 37. يرجى من الجميع اضافة الاسم الحقيقي باللغة العربية فى الحقل المناظر، والهدف هو تسهيل التواصل الفعال بين الأعضاء ، و ان تعذر فيتم اختيار كنية باللغة العربية فى مكان الاسم الحقيقي. 38. سيتم تعديل أي أسماء دخول أو أسماء حال مخالفتها للذوق العام أو احتوائها على أي إيحاءات غير معتادة. لمعرفة كيفية تعديل الإسم أو إسم الدخول يرجى مراجعة هذا الموضوع وأخيرا يرجى الالتزام التام بقواعد المشاركة وفي حال وجود اقتراحات إضافية بشأن القواعد، يمكن إضافة الاقتراح في قسم الاقتراحات بالمنتدى وسيتم دراستها تباعاً.

نعم وهو الملف الوسيط سيتكفل بهذه المهمة تم التعديل المطلوب ولتسهيل الأمر على مسؤول القاعدة اذا اراد مثلا اظهار الكائنات للتعديل أو الإطلاع تمت اضافة زر أمر لاظهار الكا ئنات وشريط الادوات بدل ما يقوم بألغاء كلمة السر ثم اعادة تفعيل الشفت وفتح القاعدة من جديد فقط نقرة زر كل شي يكون أمامه طبعا زر الأمر لازم يكون مخفي عن المستخدم ونقوم بإيجاد طريقة لاظهاره للمسؤول بالنسبةلي بما اني استخدم نظام صلاحيات مستخدمين أضع هذا الكود عند فتح النموذج لاظهار زر الأمر وتفعيله If MyUser.username() = "Kaser906" Then Me![cmd47].Enabled = True Me![cmd47].Visible = True End If الملف بالمرفقات ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم FreeKaser906.rar