اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نجوم المشاركات

  1. ابوآمنة

    ابوآمنة

    الخبراء


    • نقاط

      19

    • Posts

      713


  2. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      15

    • Posts

      9,724


  3. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      13

    • Posts

      11,621


  4. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      7

    • Posts

      8,723


Popular Content

Showing content with the highest reputation on 31 مار, 2020 in all areas

  1. بناء على مقترح الأخ الكريم محمد البرناوي بإمكان المستخدم الآن تحديد عدة صور وتحويلها إلى pdf مع نقل جميع الصور إلى مجلد البرنامج آلياً . PDFv20.2.zip
    5 points
  2. السلام عليكم الوصول الى البيانات سحابيا ليست مشكلة أمام ميكروسوف ، ففي الاصدار 2003 يوجد تبويب خاص بانشاء صفحات الوصول ، وقد تم الغاؤها في الاصدارات الحديثة ، وانا تعاملت معها واذكر عملت برنامجا يجلب بيانات لحظية من السوق المالي . المشكلة الحقيقية تتمثل في الواجهات
    3 points
  3. أقدم لكم هدية متواضعة عبارة عن برنامج لتحويل الصور إلى pdf بطريقة سهلة وبدون برامج خارجية مع الشكر لكل من استفدت من أكوادهم . PDF.zip
    3 points
  4. وعليكم السلام-فقط يمكنك استخدام هذه المعادلة وتم اضافة قائمة منسدلة لسهولة اختيار الإسم بالإنجليزية ولحسن عمل المعادلة لضمان مطابقة الإسم =IFERROR(INDEX(Sheet1!$B:$B,MATCH($B2,Sheet1!$C:$C,0)),"") move arabic name1.xlsx
    3 points
  5. اخواني الكرام بصراحة لاغنى عن الاكسس مهما ابحرتوا في لغات البرمجة الاخرى فهي اسهل واكثر متعة من غيرها كما ان تطبيقاتها مطلوبة الى يومنا هذا خصوصاً لمن يتعامل مع مؤسسات حكومية سيعرف قصدي اما اللغات الأخرى مثل php فهي لمن يبحث عن برنامج يمكن الدخول اليه من اي مكان في العالم يعني باختصار موقع الكتروني او منظومة تسجيل بيانات تتطلب الدخول اليها من عدة جهات موزعة جغرافياً في عدة مدن .. هذا النوع من البرمجة يتطلب مهارات في السيكيورتي عالية وذلك لانك معرض للإختراقات من اي مكان في العالم تحياتي
    2 points
  6. أحسنت استاذ صالح هدية بالطبع مقبولة وعمل ممتاز جعله الله فى ميزان حسناتك
    2 points
  7. عليكم السلام جرب تبحث داخل المنتدى يوجد الكثير حول تحريك الصور وهذا واحد منها وهذا مثال من مكتبتي سرعة_سيارات.mdb
    2 points
  8. أستاذى الكريم-حاول دائما توضيح المطلوب بكل دقة فهل عمود التاريخ المطلوب الإستعلام من خلاله هو تاريخ Start أى العمود D وان كان الأمر هكذا فكان عليك محاولة عمل هذا بنفسك كما تم بالملف السابق حتى تتمكن من تعلم هذا ,فالهدف الأساسى من المنتدى التعلم دائما وليس تقديم الحل الجاهز تفضل هذه المرة ايضا لك ما طلبت , واتمنى محاولتك تتم بنجاح بالإعتماد على نفسك فى المرات والطلبات القادمة استعلام2.xlsm
    2 points
  9. تفضل -بعد اذن استاذنا حسين -لك ما طلبت بمعادلات المصفوفة 1استعلام.xlsm
    2 points
  10. وعليكم السلام ,وهذا يتم بهذه الطريقة بالضغط على : File ثم Option ثم بعد ذلك Advanced ثم الضغط على Edit Custom Lists ثم بعد ذلك عليك بلصق القائمة التى تريدها ثم الضغط على Add ثم ok ورقة عمل Microsoft Excel جديد __.xlsx
    2 points
  11. أخي @ابوآمنة ماشاء الله تبارك الله ...... هدية جميلة .... ولكن اقتراح تطوير البرنامج بحيث يعمل على صور المجلد بالاضافة الى الاختيار ( بعض الصور وليس الجميع )
    2 points
  12. أخي الكريم .... تابع الشرح ونفذ .... حسب طلبك كل 22 سجل برقم معين ...... اليس هذا هو المطلوب ؟؟؟؟؟؟
    2 points
  13. كود ممتاز استاذ حسين لكن اسمح لي بهذه الملاحظة ،اذ لا لزوم للحلقات التكرارية لتعبئة الكومبوبوكس هذا الكود يفي بالغرض Option Explicit Private Sub ComboBox1_Change() End Sub Private Sub CommandButton1_Click() Dim lr, ctr As Object Dim sh As Worksheet Set sh = Sheets("المستفيد") lr = sh.Cells(Rows.Count, "a").End(xlUp).Row + 1 If TextBox1 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or TextBox2 = "" Then _ MsgBox "عفوا يجب تعبئة جميع الحقول", vbInformation: Exit Sub With sh.Range("A" & lr) .Value = TextBox1.Value .Offset(, 1) = ComboBox1.Value .Offset(, 2) = ComboBox2.Value .Offset(, 3) = TextBox2.Value End With 'يجب التوضيح هنا ربما يكون لدينا 50 كومبوبوكس و تكس بوكس فهل نذكرها كلها؟ For Each ctr In Me.Controls If TypeName(ctr) = "TextBox" Or _ TypeName(ctr) = "ComboBox" Then ctr.Value = vbNullString End If Next End Sub '++++++++++++++++++++++++++++++++++++++++++++++++++ Private Sub UserForm_Initialize() Dim sh As Worksheet Dim sh2 As Worksheet Set sh2 = Sheets("الشهر") Set sh = Sheets("المستفيد") ComboBox1.List = sh.Range("H5", sh.Range("H4").End(4)).Value ComboBox2.List = sh2.Range("A2", sh2.Range("A1").End(4)).Value End Sub
    2 points
  14. السلام عليكم اخى @صلاح بلعلا مشاركه مع اخوانى @ابوآمنة و @rey360 جزاهم الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق القائمة والمربع.rar
    2 points
  15. أجذر من كذبة نيسان البيضاء في هذا الملف Poisson D'April.xlsm
    1 point
  16. اخى سليم انت مبدع استاذى اشكرك على الاضافة (ظهور اسماء الشيتات ) جزاك الله خيرا
    1 point
  17. للحفاظ على الترتيب افعل كما في الصورة
    1 point
  18. وعليكم السلام اخوي وضاح 🙂 الكود اللي وضعته مافيه شيء غلط ، ويمكن انك تخليه على اي حدث تريد ، ولكن الحدث "عند التغيير" نستعمله في حالات جدا خاصة ، ومن الخطأ الفادح ان نستعمله في البحث ، وخصوصا اذا كان البرنامج على الشبكة ، لأنه على كل كبسة زر ، يضطر الكود انه يجلب البيانات من الجداول مرة بعد اخرى ، وفي معظم الاوقات يجعل البرنامج جدا بطئ . جعفر
    1 point
  19. تعديل بسيط على الماكرو ليظهر اسماء الشيتات Sub Uniq_items_With_Sh_Names() Dim R As Worksheet, Sw As Worksheet Dim Nme$, Rg As Range Dim cop_rg As Range Dim dic As Object, I%, m% Dim arr(), ky, t% Set R = Sheets("report") Set dic = CreateObject("Scripting.Dictionary") Set cop_rg = Range("B4").CurrentRegion Nme = R.Range("C2") If cop_rg.Rows.Count > 1 Then cop_rg.Offset(1).ClearContents End If m = 5 For Each Sw In Sheets If Sw.Name <> R.Name Then Set Rg = Sw.Range("G5", Sw.Range("G4").End(4)) For I = 1 To Rg.Rows.Count If Rg.Cells(I).Offset(, 2) = Nme Then dic(Rg.Cells(I).Value) = _ Rg.Cells(I).Offset(, 2).Value End If Next If dic.Count = 0 Then GoTo Next_Sheet For Each ky In dic.keys ReDim Preserve arr(t) If t = 0 Then arr(t) = dic(ky) & ": Sheet " & Sw.Name Else arr(t) = dic(ky) End If t = t + 1 Next With R.Cells(m, 2).Resize(dic.Count) .Value = Application.Transpose(dic.keys) .Offset(, 1) = Application.Transpose(arr) m = m + dic.Count: dic.RemoveAll: Erase arr: t = 0 End With End If Next_Sheet: Next Sw End Sub الملف من جديد Unique_item_1.xlsm
    1 point
  20. - اين مكان هذا المجلد ، في الشبكة ؟ - كيف ترتيبه ، نريد صورة منه علشان نعرف المجلد والمجلدات اللي داخلة وطريقة ترتيبهم ، - اي نموذج نستعمل علشان نوصل للمطلوب ؟ رجاء ، اعمل مثال كامل (سواء بالوورد او الاكسل او بصور) على العمل اللي تريد ، وهذا المثال يجب ان يكون من بيانات برنامجك ، حتى نعرف كيف نعمل مثله 🙂 رجاء اعطنا معلومات اكثر وبالتفصيل الممل ، وإلا ، فانا ممكن اعمل لك مثال من عندي ، وعليك تطبيقه على برنامجك ، ولن اساعدك في تطبيقه 🙂 جعفر
    1 point
  21. وعليكم السلام 🙂 الظاهر المشكلة في المكتبات !! افتح VBE > Tools > References واعمل صورة لشاشة المكتبات وارفقها هنا . الموقعين يخبرانا المكتبات الصحيحة لكل نسخة من الاكسس ، ولكن الظاهر ان نسخة الاوفيس 365 عملت تغيير في الريجستري ، فلهذا السبب يجب عليك تعديل المكتبات يدويا لبرنامجك 🙂 https://www.access-diva.com/d5.html و http://allenbrowne.com/ser-38.html جعفر
    1 point
  22. وعليكم السلام-اذا كان المطلوب كما قلت فتكون المعادلة كالتالى بالخلية I4 =IFERROR((Y4/X4)*H4,"") New ورقة عمل Microsoft Excel (2).xlsx
    1 point
  23. شكر الله سعيكم وجزاكم الله خيرا ووفقكم لما يحب ويرضى فعلا هذه الفكرة المطلوبة ساحاول تطبيق هذه الاكواد في الملف الكامل للبيانات . نسأل الله التوفيق والسداد واكيد لن استغنى عن توجيهاتكم وافكاركم تحياتي لك ابا امنة ولجميع الاساتذة في هذا المنتدى
    1 point
  24. في اي عمود صفحة data تبحث بتاريخ اليوم وفي اي عمود صفحة data تبحت بين تاريخين departure وفي اي عمود صفحة data تبحت بين تاريخين Reservation
    1 point
  25. تم إضافة عدد لعناصر القائمة القائمة والمربع _102.zip
    1 point
  26. تفضل أخي صلاح القائمة والمربع _101.zip
    1 point
  27. صراحة دلع على مستوى عالي يا ابو امنة اشهد انك مبرمج مبدع ومبتكر . ما شاء الله تبارك الله صحيح ان قائمة كلمات المجال غير موجودة في الملف الاصلي . لكنها اضافية ابداعية استحسنتها كثيرا . وهي حلقة الوصل بين قائمة المجالات ومربع النص . وهي كلمة السر في الوصول الى الحل . شكرا جزيلا من قلبي . كنت متأكد ان البرمجة قادرة على تنفيذ اي فكرة موجودة في الذهن . لكن هذا الامر يحتاج الى مبرمج داهية يفكر خارج الصندوق . هناك ملاحظة صغيرة : سهم نهاية السجل لا يعمل بشكل سليم اذا كان عدد الكلمات في القائمة كبير . لانه ينتقل الى اخر كلمة ظاهرة في القائمة وليس الى اخر كلمة في السجل . وكذلك الحال في سهم بداية السجل تحياتي للجميع
    1 point
  28. اهلا وسهلا بك اخي امين في المنتدى 🙂 رجاء قراءة شروط المنتدى قبل تشارك فيه : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء طرح موضوع جديد بعنوان مناسب. شكرا يُغلق. جعفر
    1 point
  29. أخ يوسف ابوسمره عدد الطلاب هو العدد الذي تريده في كل مجموع وليس العدد الاجمالي لطلاب الموجودين عندك
    1 point
  30. استاد سليم انت معلم ربنا يحفظك ويزيدك من فضله
    1 point
  31. وعليكم السلام يا سيد 🙂 تفضل واحصل على الزبدة جاهزة 🙂 جعفر
    1 point
  32. شكرا اخي @Barna لمرورك و ثناءك واقتراحك وإن شاء الله يكون في الحسبان.
    1 point
  33. جرب هذا الماكرو Option Explicit Sub Uniq_items() Dim R As Worksheet, Sw As Worksheet Dim Nme$, Rg As Range Dim cop_rg As Range Dim dic As Object, I%, m% Set R = Sheets("report") Set dic = CreateObject("Scripting.Dictionary") Set cop_rg = R.Range("B4").CurrentRegion Nme = R.Range("C2") If cop_rg.Rows.Count > 1 Then cop_rg.Offset(1).ClearContents End If m = 5 For Each Sw In Sheets If Sw.Name <> R.Name Then Set Rg = Sw.Range("G5", Sw.Range("G4").End(4)) For I = 1 To Rg.Rows.Count If Rg.Cells(I).Offset(, 2) = Nme Then dic(Rg.Cells(I).Value) = _ Rg.Cells(I).Offset(, 2).Value End If Next If dic.Count = 0 Then GoTo Next_Sheet With R.Cells(m, 2).Resize(dic.Count) .Value = Application.Transpose(dic.keys) .Offset(, 1) = Application.Transpose(dic.items) m = m + dic.Count: dic.RemoveAll End With End If Next_Sheet: Next Sw End Sub الملف مرفق Unique_item.xlsm
    1 point
  34. هذا ماأشار اليه الأستاذ jjafferr على ما أظن ssa.accdb
    1 point
  35. ولا يهمك ..... تفضل واعلمنا بالنتيجة ..... ترقيم مجموعه (1).accdb
    1 point
  36. وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى-تفضل تفقيط مساحة ارض
    1 point
  37. اهلا وسهلا بك اخي اشرف في المنتدى 🙂 رجاء قراءة شروط المنتدى قبل تشارك فيه : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء طرح موضوع جديد بعنوان مناسب. شكرا يُغلق. جعفر
    1 point
  38. ما شاء الله عليك يا استاذي جعفر طلعنا مثلك في وسط المعمعة
    1 point
  39. صحيح هناك خطأ مطبعي في استعلام القائمة [Formulaires]![show]![maharat] الصحيح [Forms]![show]![maharat]
    1 point
  40. يمكن طريقة عملي هي السبب !! انا عادة اشتغل على مشروع/ملف ، ولما اتملل/اتعب منه ، آخذ استراحة بذهابي الى المنتدى لأرد بسرعة على اكبر عدد من الاسئلة ، وبعض الاوقات اثناء العمل على سؤال ، يجي سؤال آخر سهل ، فأرد عليه ايضا !! يعني يكون عندي 3-4 ملفات مفتوحة في نفس الوقت ، هذا غير اذا ذهبت ابحث عن شيء معين !! وسط هذه المعمعة ، اولوية الرد يكون للأسئلة الواضحة 🙂 1. طلب مبهم !! مادام البرنامج يشتغل صح ، فهو صح ، والسلام 🙂 2. كذلك غير واضح !! رجاء التوضيح اكثر ، والافضل ان تعطينا مثال من برنامجك ، خطوة بخطوة 🙂 الله يعين الجميع ان شاء الله على هذا البلاء 🙂 جعفر
    1 point
  41. تفضل فقط قمت بتغيير مصدر سجلات القائمة إلى الحقل نوع السكون. إن شاء الله يكون هذا ما تريد . القائمة والمربع.rar
    1 point
  42. ابحث في المنتدى هناك الكثير من طرق توزيع الطلاب على اللجان .....
    1 point
  43. عندما ضغطت على الزر اول مرة قام البرنامج بترتيب الصفحات واذا ضغطت مرة ثانية انت تطلب منه ان يرتبها ، لكن هي مرتبة فعلا ولذلك لا يفعل شيئاً جرب اعادة خربتتها بشكل عشوائي واضغط الزر وترى ما أقصده
    1 point
  44. هممم في هذه الحالة ، خلينا نجمع جميع العمليات مع بعض ، الحشو ، التنظيف ، الخلع ، .... بحيث لما تنقر مرتين على الضرس ، ويعمل البرنامج سجل جديد ، فيجب ان يكون هناك كومبوبوكس يختار الدكتور العمل الذي يقوم به على الضرس (الحشو ، التنظيف ، الخلع) ، وعلى حسب الاختيار (رقم الضرس ونوع العمل على الضرس) نخفي الضرس ، او نجعل لونه ازرق ، تبدأ من آخر سجل وتنتهي بأول سجل 🙂 مخمخها في دماغك ، بحيث يكون عندك في النموذج الفرعي سجل كامل بأسنان الزبون ، وطبعا لاحقا في المستقبل ، اكيد ستزيد حقول النموذج الفرعي ، حتى تتأقلم وطلبات الدكتور 😁 جعفر
    1 point
  45. سيدي الفاضل 🙂 1. تم حذف جميع هذه الكائنات : . 2. تم حذف النموذج Tooth ، 3. تم اخذ الصور وبقية الكائنات كجزء من النموذج الرئيسي All_P ، 4. هذه الكائنات اصبحت غير مرتبطة بجدول : . 5. عند النقر المزدوج ، جميع هذه الكائنات تنادي الوحدة النمطية f_Remove_a_Tooth : . 6. هناك جدول فرعي جديد stbl_All_P ، يرتبط بالجدول All_P ، عن طريق الحقل PCode ، وفيه الحقول التالية : dDate ، Tooth_Number ، Remarks ، 7. هناك نموذج فرعي sfrm_All_P (نموذج مستمر) والذي يأخذ بياناته من الجدول stbl_All_P ، وعمل هذا الجدول تسجيل الضرس/الاضراس التي يتم قلعها ، بالوقت والملاحظات ، بحيث يبقى هذا كتاريخ لجميع الاضرس التي قلعها الدكتور ، 8. عند النقر مرة على الضرس ، يتم تحويل لونه الى اللون الازرق ، وعند النقر مرتين على الضرس ، فالوحدة النمطية f_Remove_a_Tooth تقوم بعمل التالي : أ. عمل سجل جديد ، ويكتب في السجل رقم الضرس ، والوقت ، ويقف التركيز على حقل الملاحظات ، ب. اخفاء الضرس من الصورة ، 9. يمكن اضافة اي عدد من الاضراس في النموذج الفرعي ، 10. في حدث الحالي للنموذج الرئيسي ، فأنه بقراءة الاضراس المقلوعة من النموذج الفرعي ، ويقوم بإخفاء هذه الضروس من الصورة ، Private Sub Form_Current() On Error GoTo err_Form_Current Dim rst As DAO.Recordset Dim i As Integer Set rst = Me.sfrm_All_P.Form.RecordsetClone rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount For i = 1 To RC Me("A_" & rst!Tooth_Number).Visible = False rst.MoveNext Next i Exit_Form_Current: Exit Sub err_Form_Current: If Err.Number = 3021 Then Resume Exit_Form_Current Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub والنتيجة: . 11. تم العمل على الصورة التي على اليمين ، ويجب ان تعمل نفس الشيء للصورة على اليسار ، 12. الوحدة النمطية f_Remove_a_Tooth : Public Function f_Remove_a_Tooth() Dim frm As String Dim fld As String frm = Screen.ActiveForm.Name fld = Screen.ActiveControl.Name 'add a new Record, and add the Tooth number in to Forms!All_P.SetFocus Forms!All_P!sfrm_All_P.SetFocus DoCmd.GoToRecord , , acNewRec Forms!All_P!sfrm_All_P!DDate = Now() Forms!All_P!sfrm_All_P!Tooth_Number = Replace(fld, "A_", "") Forms!All_P!sfrm_All_P!Remarks.SetFocus 'now hide the tooth Forms(frm)(fld).Visible = False End Function . جعفر 1188.Dental.accdb.zip
    1 point
  46. اخر تحديث يمنع اضافة الاقساط اكثر من مرة تمت الاضافة بواسطة الاخ @kha9009lid اقساط.accdb
    1 point
×
×
  • اضف...

Important Information