ابو جودي

نعم يوجد 😉

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

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

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

ممكن المرفق

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

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

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

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