ابو جودي

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

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

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

اتفضل يا سيدى الفانك ده يحقق كل رغباتك اولا تستدعى القانك بأسمة من اى مكان وفى اى حدث على حسب هواك بالسطر التالى 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

بعد اذن اساتذتى الكرام فى الكود غير السطر FiledName.ForeColor = vbRed الى FiledName.ForeColor = vbGrayText

اولا اسف ع التاخير ثانيا محتاج اشوف شئ وقت تكون اونلاين نظبطها سوا ان شاء الله

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

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

بتحصل معايا هههههههه

طيب مبدئيا كده ركز فى الكود انت بدأت الكود بـ If IsNull(Me.cbAproved) Then وبعد كده عاوزة يجلب البيانات من App1 = Me.cbEmpNo.Column(1) ركز كده مع اللون الاحمر طب ايه اللى جاب القلعة جمب البحر Dim str As String If IsNull(Me.cbAproved) Then Me.App1 = "" Me.App2 = "" Me.App3 = "" Me.App4 = "" str = "Select * from QryforREP_ALL_EMP" Me.RecordSource = str Exit Sub Else App1 = Me.cbEmpNo.Column(1) App2 = Me.cbEmpNo.Column(2) App3 = Me.cbEmpNo.Column(3) App4 = Me.cbEmpNo.Column(4) str = "Select * from QryforREP_ALL_EMP where [Emp_No]=" & Me.cbAproved.Column(0) Me.RecordSource = str End If الكود الصحيح يكون كالاتى ... وياريت نركز شوية واحنا شغالين ماشى Dim str1 As String If IsNull(Me.cbAproved) Then Me.App1 = "" Me.App2 = "" Me.App3 = "" Me.App4 = "" str1 = "Select * from QQQQ" Me.RecordSource = str1 Exit Sub Else App1 = Me.cbAproved.Column(1) App2 = Me.cbAproved.Column(2) App3 = Me.cbAproved.Column(3) App4 = Me.cbAproved.Column(4) str1 = "Select * from QQQQ where [Emp_No]=" & Me.cbAproved.Column(0) Me.RecordSource = str1 End If وهذا ملفك بعد التعديل test1001 -Update.accdb

طيب المثال من عندى والشرح من عندك ♥ Menu.mdb

ان شاء الله خيــــــــر بشراكم

وعليكم السلام ههههههههه شوق ولا تدوق

ممكن المرفق