اذهب الي المحتوي
أوفيسنا

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

  1. kanory

    kanory

    الخبراء


    • نقاط

      16

    • Posts

      2331


  2. A7MD M7MD

    A7MD M7MD

    02 الأعضاء


    • نقاط

      8

    • Posts

      60


  3. Barna

    Barna

    الخبراء


    • نقاط

      6

    • Posts

      1073


  4. مسفر

    مسفر

    الخبراء


    • نقاط

      6

    • Posts

      365


Popular Content

Showing content with the highest reputation on 06/11/19 in all areas

  1. للاسف اجاباتنا كلها اصبحت نظرية ... دون ارفاق ملف من برنامجك .......
    3 points
  2. يأخي طبق على مثالك الثقيل وليس من المثال المرفق ...... جرب على برنامجك ......؟؟؟؟؟؟؟
    3 points
  3. انظر هذا وطبق .... عساه يكون المطلوب .... Test.rar
    3 points
  4. أجل المشكلة في مصدر ذلك النموذج ...ما هو مصدر النموذج ( جدول أو استعلام ) ... وقد يحتاج تحميل النموذج لوقت
    3 points
  5. انظر للصورة واشرح اين الثواني المطلوب ازالتها ..... هل عند تشغيل الاكسس هل بعد ظهور النموذج الذي يحوي المؤثر هل بعد ظهور النموذج الاخير ؟؟؟؟؟ ليست هناك سوى ثواني بسيطة بين النموذجين ؟؟؟
    3 points
  6. طيب شوف الحل الموجود في الملف دا وطبق على مثالك بالحرف الواحد ... ورد بالنتيجة وأن شاء الله خير ... Test.mdb
    2 points
  7. يا أستاذ كانورى بص انا هفهمك هو عاوز ايه هو عنده مثلا نموذج A النموذج ده هو عاوز يفتح عليه البرنامج وبعد 13 ثانية تقريبا يقفل ويروح ل نموذج B طيب ايه المشكله بقه المشكله رقم 1 ان الرنامج فى الـ 13 ثانيه دول بيخضر استعلامات المشكلة رقم 2 خو عاوز شريط التقدم يبدأ شغل مع الثانية الاولى وينتهى لحد 100% عند الثانية ال 13 اللى خى نهاية الانتهاء من تحصير الاستعلامات المعضله زى ما فهمت قبل كده من ابو جودى ان الاكسس ما يقدرش يعمل حاجتين فى نفس اللحظه يعنى لازم يخلص الاستعلامات وبعدين كود التحميل
    2 points
  8. تفضل هذا مثال بطريقتين تصدير مصدر الى ملف اكسل موجود تصدير مباشر مع انشاء ملف اكسل === بالنسبة للخطأ خطأ في تعريف المتغير الكود ينقصه ذلك Dim strQry As String TestDB.mdb
    2 points
  9. 2 points
  10. Version 1.0.0

    197 تنزيل

    السلام عليكم ورحمة الله وبركاته برنامج عملته في 2007 ، لإختيار الكلمات من بين حوالي 618 الف كلمة ، لأعمل قافية لأبيات الشعر الواجهة: 1. اكتب الحرف/الحروف التي تريد ان تكون عليها القافية (اي ان تنتهي الكلمة بهذا الحرف/الحروف) ، 2. اكتب الحرف/الحروف التي تبدأ الكلمة بهذا ، 8. كلمات البحث في #1 و #2 تظهر هنا ، 3. عند كتابة الحروف في #1 او #2 ، فالبحث يكون عن طريق هذا الزر ، (وتستطيع الكتابة في #1 او #2 ، و رقم 4) ، 4. اكتب الكلمة التي تريدها ، وستظهر لك الكلمات المرادفه لها ، 5. للبحث للرقم 4 ، 9. كلمات البحث في #4 تظهر هنا ، 6. لحذف جميع كلمات البحث ، بالاضافة الى انه يمكن النقر مرتين على #1 او #2 او #4 لحذف الكلمة/الحرف/الحروف من الحقل ، 7. نريد ان نختار من الكلمات الموجودة في #8 ، فننقر على #7 لحفظها مؤقتا في نموذج جديد . البحث في الكلمات التي تنتهي بالحروف ليل . وعند النقر على الزر A فتنتقل الكلمة الى النموذج هذا . البحث في الكلمات التي تبدأ بالحروف خل . البحث عن الكلمات المرادفة لكلمة شجاع . البحث عن الكلمات المرادفة لكلمة شجاع ، والتي تنتهي بالحرف ت . وعند الانتهاء من اختيار الكلمات ، وعند النقر على زر Copy to Notepad ، سيتم حفظها في ملف باسم Poem.txt في نفس مجلد البرنامج ، . المربع الاحمر: الكلمات في النموذج اعلاه يتم البحث عنها في الحقل #2 ، وإظهار نتائج الحقل #1 ، ومعاني الكلمات موجودة في الحقل #3 ، المربع الازرق: الكلمة في #4 هي عكس الكلمة في الحقل #2 ، والحقل #5 فيه معنى هذه الكلمة . بدأت بأخذ كلمات القرآن الكريم ، ثم بكسر الحماية من ملف الكلمات/القاموس في برنامج Ms Word واخذ كلماته ، فأصبح عندي حوالي 48 الف كلمة ، ولكن لم تكن الكلمات كاملة ، فأنزلت من الانترنت جميع القواميس العربية ومعانيها ، وادخلتها جميعا في البرنامج ، فوصل عدد الكلمات الى حوالي 618 الف كلمة ، عملت عدة كودات (والتي تركتها في البرنامج للذي يريد ان يستفيد منها) لتصفية الكلمات و اكواد اخرى للتعامل مع MS Word ، حيث ارسل الكلمة للوورد ، ثم آخذ المعاني منها ، وكذلك لمعرفة مقلوب الكلمة ، اذا كان لها معنى ، وإلا فلم اكتب الكلمة. ارجوا ان تستفيدوا من البرنامج ، مثل ما انا استفدت منه يوما ما جعفر
    1 point
  11. لأحظ انك تفتح نموذجين يا أخ محمد وكود الأخفاء في الاثنين موجود بعطيك مثال الان ونشوف صبر اجهز ونشوف تختفي أو لا
    1 point
  12. هااااه وصلنا والا موصلناش والا باقي لسا مشوار طويل معانا الليلة
    1 point
  13. طب انت بتضحك ايه مش فاهم يعنى عجبك المرفق والفكرة بتاعته واللا بتضحك لانك مطلع عينا بقلنا كتير لا انا مش هفكر تانى من غير مثال انا طلع عينى ومش عارف انت عاوز ايه
    1 point
  14. طيب بص انا عملت لك خدعة في تعديل ودمج مثالين من بتوع أبو جودى جرب وبص لو معجبش متتعبناش يا عم انت ارفع قاعدتك على موقع خارجى وهات الرابط احنا تعبنا progress bar.zip
    1 point
  15. جب فعلا أن يعمل النموذجين معا نموذج Start يعمل حتى يظهر نموذج DataMasterForm إذا فهمي صح أنت برنامجك يعتمد على النموذج الثاني DataMasterForm يكون مفتوح بالخلفية ويظهر امامه النموذج start ويختفي النموذج start ويبقى النموذج DataMasterForm مفتوح لأنه هو أساس في البرنامج عليه الازرار
    1 point
  16. انت تبي يفتح النموذجين معا في نفس الوقت ؟ يعني يكون النموذج الثاني خلف نموذج التايمر ؟
    1 point
  17. هل جربت المثال اللي ارسلته لك ولا ضبط معاك
    1 point
  18. 1 point
  19. منا قلت له الحل ده في المشاركة دى والشرح تفصيلا كمان من موضوع أبو جودى بس هو مش عاجبه ده
    1 point
  20. هدايا رمضانية الصور الملف هدايا رمضانية.rar
    1 point
  21. اهو المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=158567 والشرح هنا
    1 point
  22. طيب ممكن سؤال علشان اقدر افهم حاجه هو ال 13 ثانيه دول ليه يعنى ليه النموذج بيتأخر لان مثلا بيحضر استعلام واللا انت اللى حابب كده بس من غير اى شئ
    1 point
  23. @ابو البشر @ابو البشر ممكن الشرح رحم الله والديك
    1 point
  24. تفضل استاذى الكريم بالتنسيق الشرطى ساقية.xls
    1 point
  25. استاذنا الكبير شكر لك تم العمل على الكود المرسل من قبلك تحياتي
    1 point
  26. يعطيك العافية استاذ عادل الف شكر لك انا الي قصدتة احط بيانات الاسبوع كامل جنب اسم الطالب في صف واحد ولا ارغب في حذف الاعمدة الفارغة من الملف الاصلي ولا اقوم بفك التجميع لانه كل فترة اقوم بسحب ملف جديد من نظام المدرسة الف شكر ليكم الف شكر استاذ سليم مجهودكم جبار انا الي ابيه اسم مع بياناته طول الاسبوع في صف واحد بدون الغاء الدمج وبدون الغاء الاعمدة الزائدة الف شكر لكم
    1 point
  27. تفضل اخى الكريم حسن -تم عمل قائمة منسدلة بأسماء العملاء ثم بعد ذلك عمل معادلات مصفوفة بمجرد اختيار اسم العميل سوف يتم جلب كل بياناته ولكن كان لزاما عليك من البداية رفع مشاركة مستقلة بما تريد فقد تم فصل مشاركتك ووضعها بمشاركة جديدة مستقلة Book1.xlsx
    1 point
  28. استاذي اباجودي بعد التحبة عند كتابة اسم المريض نضغطenter ننتقل إلى كود التحليل لكي نسجل للمريض نوع التحليل المطلوب احيانا انسي تسجيل التحاليل واقوم بلف بكرة الماوس انتقل الي سجل جديد علشان انا مبرمج البرنامج في حدث عند لف بكرة الماوس ينتقل إلى سجل جديد وبالتالي انتقل إلى سجل جديد دون تسجيل تحليل للمريض في السجل السابق أرجو عدم الانتقال الي سجل جديد طالما لاتوجد تحاليل مكتوبة في النموذج الفرعي requedt ارجو الافادة وياريت اكون قدرت اوصل لحضرتك طلبي
    1 point
  29. بعد اذن الاستاذ عادل هذا الكود ربما كان أسرع (يدون الكثير من الحلقات التكرارية) تم تغيير اسناء الصفحات (تفادياً لظهور احرف غير مفهومة اثناء نسخه) فقط شيت المصدر ( Source) وشيت الهدف ( Target ) Option Explicit Sub Get_Data() Rem ======>>> Created By Salim Hasbaya On 10/6/2019 Application.ScreenUpdating = False Dim DIC As New Dictionary Dim T As Worksheet: Set T = Sheets("Target") Dim s As Worksheet: Set s = Sheets("Source") Dim laste_ro%: laste_ro = Cells(Rows.Count, "b").End(3).Row Dim i%, stp%: stp = 5 Dim K%, my_key T.Range("a2:p5000").ClearContents With s For K = 17 To laste_ro Step stp DIC.Add .Range("q" & K).Value, _ .Range("B" & K).Resize(stp, 15).Value Next End With i = 2 For Each my_key In DIC.Keys T.Range("a" & i) = my_key T.Range("b" & i).Resize(stp, 15) = DIC(my_key) i = i + stp + 1 Next my_key DIC.RemoveAll Application.ScreenUpdating = True End Sub الملف مرفق Data_with_dictinary.xlsm
    1 point
  30. السلام عليكم الموضوع المذكور هو طلب عمل مشروع وليس نقاشا حول نقطة محددة للعلم يوجد اكثر من موضوع متكامل في المنتدى حول ارسال رسائل sms عبر اكسس فقط ابحث وستجد مطلوبك ، وفقك الله
    1 point
  31. اولا للتوضيح انا لا املك صلاحيات اغلاق او فتح الموضوعات انا لست عضو من اعضاء فريق الموقع ثانيا هذا القسم من المنتدى للتعليم ولتناول الاسئلة والشرح يوجد اقسام اخرى تخص الطلبات والاعلانات كما ان موضوع حضرتك هذا ايضا هنا مخالف لانه هناك اقسام للشكاوى والاقتراحات تغليب المصلحة العامة مقدم على المصلحة الخاصة والمصلحة العامة والتى هى فى المقام الأول حق للموقع المضيف الذى يقدم خدمه بلا مقابل ثم لـــــــــــرواد الموقع الكرام وهى كالاتى - احترام الموقع المضيف لنا بالحفاظ على القوانين واللوائح المنظمة كما يطلبها -اختيار القسم المناسب قبل طرح الموضوع للعامة -اختيار العنوان الدال على الموضوع بسلاسة واختصار -وضع سؤال واحد فى كل موضوع اى ان كل موضوع سوف يكون مخصص للتحاور او التشاور حول نقطة واحدة -حق الرواد فى سهولة الوصول اثناء البحث داخل المنتدى لمبتغاهم ان لم نلتزم كرواد حتما سوف يصبح هذا عبئ ثقيل على كاهل اعضاء الفريق المنظمين للمشاركات والتى ام لم ينظموها هم سوف لن يكون من السهل للرواد البحث عما يريدون ويصلون اليه بسهولة من وجهة نظرى المتواضعة عمل فريق الموقع واساتذتنا الكرام الذين يقدمون المساعدة هو عمل تطوعى فرجاء التيسير والتسهيل عليهم وكما انك لك حقوق ولا تحب التهاون والتنازل عنها ارجوك تذكر ايضا ان عليك واجبات يجب ان تراعيها بنفس القدر الذى تحفظ به حقك
    1 point
  32. تفضل يمكنك استخدام هذا الكود Option Explicit Sub page_endings() Dim i As Long Dim searchvalue_for_break_after searchvalue_for_break_after = "الشهود" For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i).Value = searchvalue_for_break_after Then ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Range("A" & i).Offset(1) End If Next i End Sub الشهود - 1.xlsm
    1 point
  33. بارك الله فيك أستاذ محمد وجزاك الله كل خير -توكل على الله
    1 point
  34. جرب هذا الكود Option Explicit Sub Tarhil() Dim My_St: My_St = Sheets("data").Range("b1") Dim My_col% My_col = Sheets("tab").Range("A1:F1").Find(My_St).Column Sheets("data").Range("b2", Range("b1").End(4)).Copy _ Sheets("tab").Cells(2, My_col) End Sub
    1 point
  35. ان كنت تستخدم هذا الامر في البحث والذي يبنيه المعالج الافتراضي DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 استبدله بهذا DoCmd.RunCommand acCmdFind او هذا RunCommand acCmdFind واذا لم يفلح الامر ضع قاعدة تجريبية بالمشكلة وان شاء الله ستجد الحل :: تحياتي
    1 point
  36. تقوم هذه الدالة على تحويل القيم سالبة الإشارة الى قيم موجبة الإشارة و ABS هى إختصار لكلمة Absolute ورياضياً تسمى هذه العملية بالمقياس فمقياس -5 ويشار إليها بالرمز |-5| وتكون النتيجة هى 5 مثلا Abs(-50) النتيجة سوف تكون 50
    1 point
  37. 🎈عيد سعيد🎈 هديــــة العيد : تحويل التاريخ يحتوى المرفق على بعض الاكواد المجمعة فى موديولات لا غنى عنها تحويل التاريخ.zip
    1 point
  38. السلام عليكم 🙂 أخي الوزير قام بالعمليات مرتين، فلهذا السبب يأخذ برنامجه وقت لعرض النتائج ، وانا عملت تغيير في الاستعلامات فقط ، وابقيت واستعملت نفس وحدته النمطية ، ونتيجتي كانت اسرع 🙂 استعمل الاستعلام qry_Results_New 🙂 وعيدكم مبارك 🙂 جعفر 1057.Lab 2019-waz.accdb.zip
    1 point
  39. أستاذ قدور المثال المرفق ليس به بيانات ولا توجد علاقات! على أي حال في المثال المرفق نموذج به ثلاثة مستويات للجداول: الجدول الرئيسي --> الجدول الفرعي --> الجداول المتربطة بالجدول الفرعي.. بمعنى: يمكن استخدام جدول رئيسي واحد فقط، وجدول فرعي واحد فقط، وجداول متعددة مرتبطة بالجدول الفرعي كما في الصورة هذا في تصوري مقبول.. كمثال يمكن البدء به.. للأهمية يجب أن يكون بين الجداول المطلوب تصديرها علاقة قائمة وإلا لن تكون البيانات منضبطة النسق.. إليك المثال: ExportToXML.accdb
    1 point
  40. السلام عليكم تفضل إليك هذا المثال به ما تريد إن شاء الله منع تعديل تاريخ الجهاز.rar
    1 point
  41. بعد اذن الأستاذ // علي محمد علي والأستاذ // أبو عيد الأخ الكريم الخطأ رقم 1004 إليك توضيح بسيط عنه بإيجاز (أسبابه) ------------------------------------------------------------------------------------------------------------------------ تعريفه : خطأ في التطبيق أو تعريف الكائن الوصف : هذه رسالة خطأ catch-all شائعة جدًا. لماذا يحدث ؟ : يحدث هذا الخطأ عندما لا يتطابق أحد الأخطاء مع الخطأ المحدد بواسطة VBA . بمعنى آخر ، يتم تعريف الخطأ بواسطة Excel (أو بعض الكائنات الأخرى) ويتم نشر مرة أخرى إلى VBA. ---------------------------------------------------------------------------------------------------------------------- وبما أنك لم تحدد ما هو الخطأ بالكود ال حضرتك كاتبه بطريقة النسخ واللصق ( لذا الكود غير واضح ) فالأفضل رفع الملف لتسهيل العمل عليه ----------------------------------------------------------------------------------------------------------------- أو اذا اردت التعامل مع الخطأ بنفسك قم بتشغيل الكود وعندما تظهر لك رسالة الخطأ اضغط على كلمة Debug سيقوم بفتح المحرر وسيقوم قاريء المحرر تلقائيا بتحديد سطر ووضع خلفية باللون الأصفر عليه قم بإلغاء التحديد بالضغط على أيقونة Reset ( شكلها مربع بلون ازرق) بجوار زر الـ Run الأخضر من شريط المهام بالأعلي بأيقونة ثم حاول تصحيح الخطأ
    1 point
  42. فكرة ممتازة أخي رمهان ..... تضاف كمعلومة جميلة
    1 point
  43. رمضان كربم ومبارك عليكم بعد اذن اخي مصطفى لعل كان المقصود بالسؤال هذا الملف tekrar by_choise.xlsx
    1 point
×
×
  • اضف...

Important Information