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 ثواني ايا كان الوقت التي تظهر وتختفي فيه الرساله

بارك الله فيك

السلام عليكم ورحمة الله وبركاته

اعزائي مشرفين ومشتركين هذا الصرح الاكثر من رائع والذي استفدت منه كثيرا جعله الله في ميزان حسناتكم 

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

وشكرا