ابو جودي

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

وهذه مشاركتى المتواضعة يتم وضع الكود فى موديول ويتم استدعاء الكود من خلال السطر الاتى مع الاخذ فى الاعتبار كتابة اسم النموذج الفرعى 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

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

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

ممكن المرفق

هذه صورة من واقع التجربة وايضا تم وضع المرفق بالتعديل على طريقتكم استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @jjafferr PDF.zip

هأعمل تصوير لحضرتك حالا من جهازى

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

هات ملفات الصوت تبعك كلها 😡 عد كام مرة اطلب منك الطلب ده

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لقد فكرت بوضع الحل بتلك الالية ولكن ترددت لانه لابد من تنصيب الـ Acrobat Reader على الجهاز والا لن يتم استعراض الملف فبدلا من ذلك سوف يتم تحميل الملف

الحل الاول Application.FollowHyperlink CurrentProject.Path & "\" & List1.Column(1) & ".pdf" الحل الثانى Dim OpnPdf As Variant OpnPdf = Shell("explorer.exe " & CurrentProject.Path & "\" & List1.Column(1) & ".pdf", vbNormalFocus) ------------------------ لتلافى الخطأ فى حالة عدم وجود ملف الـ PDF اضافة الروتين الاتى Function IsFile(ByVal fName As String) As Boolean On Error Resume Next IsFile = ((GetAttr(fName) And 16) <> 16) End Function وفى حدث عند النقر على الـ ListBox ضع الكود الاتى Dim pdfPath As String pdfPath = CurrentProject.Path & "\" & List1.Column(1) & ".pdf" If IsFile(pdfPath) Then Dim OpnPdf As Variant OpnPdf = Shell("explorer.exe " & pdfPath, vbNormalFocus) Else MsgBox "File Not found " End If وهذا ملفك بعد التعديل pdf.zip

من عيونى الشرح هنا فى موضوع مستقل

السلام عليكم ورحمة الله تعالى وبركاته الشرح الاتى لا يخص الأكسس بصفة خاصة ولكن لحماية حذف القاعدة او اى ملف داخل مجلد او المجلد الذى يحتوى قاعدة البيانات بالخطأ اولا نقوم بعمل مجلد جديد ونعطيه الاسم الذى نريد على سبيل المثال نضع مجلد جديد داخل القطاع D ونعطى المجلد اسم BackDB نقوم بتحديد المسار ونقوم بنسخه فيكون D:\Test\BackDB ولو كان اسم المجلد من مقطعين مثل Back DB سوف يكون المسار نسخ المسار الى ملف نصى ونقوم بتعديله ليكون D:\Test\Back_DB بعد ذلك نقوم بفتح موجه الاومر DOS ونقوم بكتابة او لصق الامر الاتى cacls D:\Test\BackDB /P everyone:n ولو اسم المجلد من مقطعين يكون cacls D:\Test\Back_DB /P everyone:n ثم نضغط على المقتاح Enter من لوحة المقاتيح ثم نضغط على المفتاح Y من لوحة المفاتيح كما هو موضح فى الصورة بعد ذلك نغلق موجه الاوامر DOS ونذهب الى المجلد ونقوم بالضغط عليه كليك يمين ونختار Properties تظهر لنا النافذة الاتية نحدد التبويب Security ثم نضغط بعد ذلك على Advanced كما هو موضع بالصورة ثم بعد ذلك تظهر لنا النافذة الاتية نقوم بالتحديد اولا كما هو فى الخطوة رقم 1 بالصورة ثم بعد ذلك كما هو بالخطوة رقم 2 نقوم بالضغط على Edit ثم بعد ذلك تظهر لنا النافذة الاتية نقوم بالضعط على Show Advanced Permissions ثم بعد ذلك تظهر لنا النافذة الاتية 1- فى الـ Type نختار Allow 2- فى اختيارات الـ Permissions نقوم بإزالة التأشير من على الاتى Delete Delete Subfolders and files لتصبح الاعدادت كما بالشكل الاتى ثم نضغط OK الان انسخ قاعدة البيانات داخل المجلد او اى ملفات تخاف من فقدانها جرب حذف الملفات لن يتم حذفها حاول حذف القاعدة كذلك لن يتم حذفها كذلك اقتح القاعدة واضف اليها بيانات او عدل او احذف منها اى بيانات سوف تعمل القاعدة بشكل طبيعى جدا لو اردت حذف المجلد او اى شئ بداخلة فقط استخدم الامر الاتى فى موجه اوامر الـ DOS cacls D:\Test\BackDB /P everyone:f وبعد حذف ما تريد يمكنك اعادة الخطوات ان اردت ارجاع الحماية مرة اخرى انتهى الشرح دمتم فى امان الله...

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

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