ابو جودي

طلبت منه ذات مرة ولكن يبدو انه لا يجد الوقت الكافى

جزانا الله واياكم خير الجزاء يا دكتور @SEMO.Pa3x ممكن طلب يا دكتور ان سمح وقتكم الثمين ممكن شرح استخدام WebBrowser من البداية على هيئة دروس قصيرة لانى حاولت البحث على الانترنت ولم اتوصل لاى شئ

السلام عليكم ورحمة الله تعالى وبركاته قائمة ديناميكية طى وتوسيع لهواة تصميم واجهات مودرن اترككم مع التجربــة collapse menu.zip

الف مبروك 👍 استاذ @Moosak ما شاء الله عليه لا يقصر فى تقديم يد العون والمساعدة كما انه له مشاركات متميزة يستحق الترقية الى درجة خبيـر عن جدارة مبروك علينا الرفقة الطيبة ومبروك التشريف والتكليف اهلا بك بين اخوانك بارك الله فيك يا دكتور كل الشكر و التقدير والعرفان لحضرتك يا دكتور@محمد طاهر

أتمنى لك المزيد من التألق ، وأتطلع إلى إبداعاتك دائما

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

ممكن توضيح اكثر انا مش فاهم انت فاتح قاعدة بيانات تريد عمل زر امر عند الضغط عليه يقوم باغلاق القاعدة الحالية وفتح قاعدة بيانات اخرى مشفرة بكلمة مرور دون كتابة كلمة مرور القاعدة المشفرة عند فتحها

راجع الموضوع الاتى لو تعذر عليك التطبيق ارفق قاعدة بياناتك

من هنا من نفس مكان تحميل الملف السابق معلومات الملف قراءات38 Downloads6 تمت الاضافه منذ 18 ساعات Publishedمنذ 16 ساعات تم التحديث منذ 16 ساعات حجم الملف 5.26 ميجا بايت من نفس مكان تخميل الملف السابق

يا سيدى الفكرة تم تنفيذها قبل فترة هنا وشرحها

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

اهاهاهاهاهاهاها انا اضحك على نفسي بعد ان تمعنت فى السؤال مرة أخرى لا اعتقد اننى فهمت السؤال جيدا هل تريد ان تفتح قاعدة بيانات محمية بكلمة مرور ؟ من قاعدة اخرى دون الحاجة لكتابة كلمة المرور فى كل مرة ام تريد اجابتى السابقة وهى انشاء قاعدة بيانات جديدة فى مسار محدد وتشفيرها بكلمة مرور من خلال الكود

وحضرتك والاسرة الكريمة بخير وسعادة وهناء ودائما فى طاعة الرحمن يا باش مهندس 🌹💕

اتفضل يا سيدى الفانك ده يحقق كل رغباتك اولا تستدعى القانك بأسمة من اى مكان وفى اى حدث على حسب هواك بالسطر التالى Call MkDbByPassword وتغير فى الفانك بس على التوالى المسار , اسم القاعدة الجديدة التى تريد انشاءها . كلمة المرور التى تريدها فى المتغيرات strDbPath >>>---->> المسار strNewDbName >>>---->> اسم قاعدة البيانات الجديدة ولا تنسى الامتداد strPassNewDb >>>---->> كلمة المرور التى تريد تشفير القاعدة بها Public Function MkDbByPassword() Dim wrkDefault As Workspace Dim dbsNew As DAO.Database Dim strDbPath As String Dim strNewDbName As String Dim strPassNewDb As String strDbPath = CurrentProject.Path & "\" strNewDbName = "NewDB.mdb" strPassNewDb = "00" Set wrkDefault = DBEngine.Workspaces(0) If Dir(strDbPath & strNewDbName) <> "" Then Kill strDbPath & strNewDbName Set dbsNew = wrkDefault.CreateDatabase(strDbPath & strNewDbName, dbLangGeneral & ";PWD=" & strPassNewDb) End Function

نعم يوجد 😉

جعله الله فى موازين اعمالكم ان شاء الله وشكر الله لكم وجزاكم كل خير واسمح لى انا عدلت على الملف - ضغط واصلاح فتم تقليص حجم القاعدة من 29 ميجا الى 12 ميجا فقط تقريبا ثم قمت بضغط القاعدة كذلك فأصبح الحجم تقريبا 5 ميجا ليسهل اولا تحميلة لمن يريد . كما أن الحجم الصغير افضل للسيرفر لعدم الضغط عليه

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

اى نعم كما ان البخور لن يجدى نفعا لاننا على اعتاب الشهر الفضيل

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

الاستاذ الفاضل @meshaal2322 💕 تحية طيبة عطرة 🌹💐 فضلا وكرما الالتزام قدر الامكان بقواعد المشاركات من اجل المصلحة العامة 1- عنوان الموضوع لا يدل على محتوى الموضوع والسؤال ..... ذلك مستقبلا يعرض الموضوع للاغلاق 2-يا حبذا لو تضع مرفقكم تسهيلا على اساتذتنا الذين يحاولون تقديم المساعدة مراعاة لوقتهم وجهدهم

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

وهذه مشاركتى المتواضعة يتم وضع الكود فى موديول ويتم استدعاء الكود من خلال السطر الاتى مع الاخذ فى الاعتبار كتابة اسم النموذج الفرعى frmSub Call SwitchDefaultView(Me, "frmSub") Public Sub SwitchDefaultView(frm As Form, ByVal strSubFrmName As String) Dim sFrm As String Dim sFrm2 As String On Error Resume Next frm.Dirty = False If Err.Number <> 0 Then MsgBox Err.Description: Exit Sub On Error GoTo 0 sFrm = frm.Name DoCmd.Close acForm, sFrm, acSaveYes sFrm2 = strSubFrmName DoCmd.OpenForm sFrm2, acDesign, , , , acHidden If Forms(sFrm2).DefaultView = 1 Then Forms(sFrm2).DefaultView = 2 DoCmd.Close acForm, sFrm2, acSaveYes ElseIf Forms(sFrm2).DefaultView = 2 Then Forms(sFrm2).DefaultView = 1 DoCmd.Close acForm, sFrm2, acSaveYes End If DoCmd.OpenForm sFrm, acNormal, , , , acWindowNormal End Sub SwitchViewsubForm.accdb

يا هلا

السلام عليكم تابع الشرح الاتى بقليل من التركيز فى قاعدة البيانات المرفقة الجدول باسم ج الحروف تم اضافة حقل جديد فى الجدول باسم CharacterName لابد من كتابة اسم الملف الصوتى بالامتداد الخاص به سواء كان WAV , MP3 كما هو موجود تماما بجوار قاعدة البيانات فى المجلد Vocalise للتجربة فقط من مربعات السرد فى النموذج جرب الاستماع الى الاتى ألف مدية ب ت يساوي ضمة * لاعادة الاستماع نفس صوت الحرف مرة اخرى اضغظ مرتين داخل مربع السرد الخاص به ملاحظة هامة جدا جدا : الاصوت التى قمت باضافتها الى الجدول من خلال اسمها غير صحيحة كانت لتجربة الاصوات فقط للتأكد من فاعلية الاكواد فى تشغيل الاصوات من النوعين MP3 , WAV تنبيه حرف التاء فى المقطع الثوتى المرفق من قبلكم غير صحيح المقطع يقول >-->> تانية تالتة رابعة سادسة وهذا خطأ - والصحيح هو تانية تالتة رابعة خامسة نركز فى شغلنا شوية Braille_Final.zip

اتفضل الكود يكون كالأتى : Private Sub Form_Error(DataErr As Integer, Response As Integer) 'to know error number use next line 'MsgBox DataErr & vbCrLf & Err.Description Response = acDataErrContinue If DataErr = 3314 Then Response = True: MsgBox "You can write the of message here as you like" End Sub وهذا التطبيق على مرفقكم id primary key.accdb