momen268268

السلام عليكم ورحمة الله وبركاته في انتظار المساعدة جزاكم الله خير

بعد التحية السلام عليكم ورحمة الله وبركاته قد تقدمت من فترة لهذا الصرح العظيم بسؤال وقد قام احد القائمين على هذا الموقع الاكثر من رائع بالرد الوافي والشافي لسؤالي ولكن اردت بعض التحديث على هذه المعادلة المعادلة المستخدمة حالياً =IFERROR(LOOKUP(1,0/MATCH("*"&Sheet2!$A$1:$A$45&"*",OFFSET(C69,,,COUNTIF(F:F,F69)),0),Sheet2!$B$1:$B$45),"") التحديث المطلوب على المعادلة هو جعل المعادلة تبحث في اكثر من عمود وحاولت اضافة اعمدة للمعادلة ولكن الموضوع لم يضبط معي سوف ارفق المثال مره اخرى المثال الاصلي TEST والمثال المطلوب التعديل عليه TEST2 وجزاكم الله خير الجزاء TEST.xls TEST2.xls

جزاك الله خير وجعله الله في ميزان حسناتك

السادة/ تحية طيبة وبعد كنت قد بحثت عن موضوع هام وبعد ما توصلت الى صيغة المعادلة وقمت ببناءئها وجدت أن الاكسل لا يقبل المعادلات الطويلة واظهر لي رساله ان المعادلة طويله the specified formula cannot be entered because it uses more levels of nesting than are allowed in the current file format تم ارفاق نسخه من الملف المعادلة الطويله فى شيت 3 ما في شيت 1 معادلة مختصرة على 7 معادلات فقط وانا انوي ان تكون المعادلة بها مئات من الكلمات التي يتم البحث عنها ولكن كل ما المعادلة تكون اطول من 7 معادلات تخرج لي رساله ان المعادلة طويله فكره المعادلة انها تبحث عن كلمه داخل العنوان لتعطي المقابل لها من المنطقة التي بقى العنوان وهي طريقة من طرق معالجة البيانات New Microsoft Excel 97-2003 Worksheet - Copy.xls

الاخ العزيز الغالي @خالد سيسكو بعد التحية أشكرك على مجهودك الأكثر من رائع وأرجوا من الله أن يجعل هذا المجهود في ميزان حسناتك

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

اين اهل الخبرة؟

السلام عليكم ورحمة الله وبركاته اعزائي مشرفين ومشتركين هذا الصرح الاكثر من رائع والذي استفدت منه كثيرا جعله الله في ميزان حسناتكم جميع الميديولات لا تعمل في الاكسس عندي لاضافة ملف صوتي للاكسس ليعمل عند فتح فورم او تشغيل زر او اي حدث من احداث الاكسس برجاء الافاده لا هذه الطريقة Option Compare Database Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _ (ByVal filename As String, ByVal snd_async As Long) As Long Function PlaySound(sWavFile As String) ' Purpose: Plays a sound. ' Argument: the full path and file name. If apisndPlaySound(sWavFile, 1) = 0 Then MsgBox "The Sound Did Not Play!" End If End Function ولا هذه الطريقة Option Compare Database Const snd_async = (1) Const SND_NODEFAULT = (2) Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub API_PlaySound(pWavFile As String) Dim LResult As Long 'Make a Windows API call to play a wav file LResult = sndplaysound(pWavFile, SND_NODEFAULT + snd_async) End Sub وشكرا حضور .mdb

كل الاحترام وكل التقدير للاستاذ @صالح حمادي مجهود طيب وممتاز بارك الله فيك وجعله في ميزان حسناتك وقد بحثت فى الانترنت وبفضل الله ونعمته وجدت ضالتي وسوف ارفق البرنامج بعد وجود الحل بفضل الله ليساعد الاخوه ايضا وشرح البرنامج في المشاركة الاولى أسأل الله أن ينفعنا وإياكم بالعلم النافع وأسألكم الدعاء db1.mdb

مفيش حل لمشكلتي؟؟؟

مفيش حل لمشكلتي؟؟؟

مفيش حل لمشكلتي؟؟؟

مفيش حل لمشكلتي؟؟؟

مفيش حل لمشكلتي؟؟؟

بارك الله فيك اخي @Shivan Rekany جعله الله في ميزان حسناتك

السلام عليكم ورحمة الله وبركاته اعزائي مشرفين ومشتركين هذا الصرح الاكثر من رائع والذي استفدت منه كثيرا جعله الله في ميزان حسناتكم اريد عمل انذار وميض لشاشة الاكسس واصدار صوت عند حدث معين وايقافه عند حدث أخر ومرفق شكل الشرح وملف الاكسس وشكرا db1.rar

تم حل المشكله بحمد الله

الكود لا يعمل على اكسس 2003 هل يوجد حل؟ تظهر لي هذه الرساله

جزاك الله خير اخي ونشرته مره اخرى لتعم الفائده message_bakar_el_access.rar

للاسف مجاليش اي ايميلات حتى الان وحاول ترفع مره كمان او ترسل على الايميل جزاك الله خير

فعلا مش بيحمل ممكن ترفعهولي 2003 ده بعد اذنك

اخي صالح مشكور الفكره طبعا بس هو الفكره ان النموذج هيفتح امتى ويقفل امتى هبسطها لحضرتك .... بص معايه على الكود ده Private Sub id_BeforeUpdate(Cancel As Integer) If Not IsNull(DLookup("[id]", "Table2", "[id2] ='" & Me.id & "'")) Then MsgBox "'طلبك قيد التنفيذ برجاء الانتظار" Cancel = True Exit Sub End If DoCmd.SetWarnings False stDocName = "Query1" DoCmd.OpenQuery stDocName, acNormal, acEdit End Sub شرح بسيط ،،، لو If وجد ان الرقم اللي بكتبه مكرر او موجود في جدول تاني هيطلع رساله يقول فيها معلش اسف الرقم ده موجود خلاص وطلبك هيتنفذ طيب لو ملقاش هيكمل الاحداث بانه يشغل استعلام معين المشكله في ان الشاشه اللي بتعرض مفيهاش لا ماوس ولا كيبورد ولا اي شيء غير قارئ باركود فلازم الرساله دي تخرج وتختفي في خلال مثلا خمسة أو عشرة ثواني عشان يشوفها وان طلبه بالفعل قيد التنفيذ ارجوا اني عرفت اوصل الموضوع وجزاكم الله خير

مشكور على اهتمامك ولكن الرساله لا تختفي من تلقائ نفسها فهي تظهر لي مربع موافق ويجب علي اختيار موافق بالماوس او بالكيبور بيدي فالمطلوب هو ان تظهر الرساله وتختفي بعد مثلا 5 ثواني أو 10 ثواني ايا كان الوقت التي تظهر وتختفي فيه الرساله بارك الله فيك

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