نجوم المشاركات
Popular Content
Showing content with the highest reputation on 06/11/19 in all areas
-
3 points
-
يأخي طبق على مثالك الثقيل وليس من المثال المرفق ...... جرب على برنامجك ......؟؟؟؟؟؟؟3 points
-
3 points
-
أجل المشكلة في مصدر ذلك النموذج ...ما هو مصدر النموذج ( جدول أو استعلام ) ... وقد يحتاج تحميل النموذج لوقت3 points
-
3 points
-
3 points
-
أهلا @qathi أرجو أن يكون المثال سهل الفهم D3.accdb3 points
-
طيب شوف الحل الموجود في الملف دا وطبق على مثالك بالحرف الواحد ... ورد بالنتيجة وأن شاء الله خير ... Test.mdb2 points
-
يا أستاذ كانورى بص انا هفهمك هو عاوز ايه هو عنده مثلا نموذج A النموذج ده هو عاوز يفتح عليه البرنامج وبعد 13 ثانية تقريبا يقفل ويروح ل نموذج B طيب ايه المشكله بقه المشكله رقم 1 ان الرنامج فى الـ 13 ثانيه دول بيخضر استعلامات المشكلة رقم 2 خو عاوز شريط التقدم يبدأ شغل مع الثانية الاولى وينتهى لحد 100% عند الثانية ال 13 اللى خى نهاية الانتهاء من تحصير الاستعلامات المعضله زى ما فهمت قبل كده من ابو جودى ان الاكسس ما يقدرش يعمل حاجتين فى نفس اللحظه يعنى لازم يخلص الاستعلامات وبعدين كود التحميل2 points
-
تفضل هذا مثال بطريقتين تصدير مصدر الى ملف اكسل موجود تصدير مباشر مع انشاء ملف اكسل === بالنسبة للخطأ خطأ في تعريف المتغير الكود ينقصه ذلك Dim strQry As String TestDB.mdb2 points
-
2 points
-
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 -
لأحظ انك تفتح نموذجين يا أخ محمد وكود الأخفاء في الاثنين موجود بعطيك مثال الان ونشوف صبر اجهز ونشوف تختفي أو لا1 point
-
1 point
-
طب انت بتضحك ايه مش فاهم يعنى عجبك المرفق والفكرة بتاعته واللا بتضحك لانك مطلع عينا بقلنا كتير لا انا مش هفكر تانى من غير مثال انا طلع عينى ومش عارف انت عاوز ايه1 point
-
طيب بص انا عملت لك خدعة في تعديل ودمج مثالين من بتوع أبو جودى جرب وبص لو معجبش متتعبناش يا عم انت ارفع قاعدتك على موقع خارجى وهات الرابط احنا تعبنا progress bar.zip1 point
-
جب فعلا أن يعمل النموذجين معا نموذج Start يعمل حتى يظهر نموذج DataMasterForm إذا فهمي صح أنت برنامجك يعتمد على النموذج الثاني DataMasterForm يكون مفتوح بالخلفية ويظهر امامه النموذج start ويختفي النموذج start ويبقى النموذج DataMasterForm مفتوح لأنه هو أساس في البرنامج عليه الازرار1 point
-
انت تبي يفتح النموذجين معا في نفس الوقت ؟ يعني يكون النموذج الثاني خلف نموذج التايمر ؟1 point
-
1 point
-
1 point
-
1 point
-
منا قلت له الحل ده في المشاركة دى والشرح تفصيلا كمان من موضوع أبو جودى بس هو مش عاجبه ده1 point
-
1 point
-
اهو المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=158567 والشرح هنا1 point
-
طيب ممكن سؤال علشان اقدر افهم حاجه هو ال 13 ثانيه دول ليه يعنى ليه النموذج بيتأخر لان مثلا بيحضر استعلام واللا انت اللى حابب كده بس من غير اى شئ1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
استاذنا الكبير شكر لك تم العمل على الكود المرسل من قبلك تحياتي1 point
-
يعطيك العافية استاذ عادل الف شكر لك انا الي قصدتة احط بيانات الاسبوع كامل جنب اسم الطالب في صف واحد ولا ارغب في حذف الاعمدة الفارغة من الملف الاصلي ولا اقوم بفك التجميع لانه كل فترة اقوم بسحب ملف جديد من نظام المدرسة الف شكر ليكم الف شكر استاذ سليم مجهودكم جبار انا الي ابيه اسم مع بياناته طول الاسبوع في صف واحد بدون الغاء الدمج وبدون الغاء الاعمدة الزائدة الف شكر لكم1 point
-
تفضل اخى الكريم حسن -تم عمل قائمة منسدلة بأسماء العملاء ثم بعد ذلك عمل معادلات مصفوفة بمجرد اختيار اسم العميل سوف يتم جلب كل بياناته ولكن كان لزاما عليك من البداية رفع مشاركة مستقلة بما تريد فقد تم فصل مشاركتك ووضعها بمشاركة جديدة مستقلة Book1.xlsx1 point
-
استاذي اباجودي بعد التحبة عند كتابة اسم المريض نضغطenter ننتقل إلى كود التحليل لكي نسجل للمريض نوع التحليل المطلوب احيانا انسي تسجيل التحاليل واقوم بلف بكرة الماوس انتقل الي سجل جديد علشان انا مبرمج البرنامج في حدث عند لف بكرة الماوس ينتقل إلى سجل جديد وبالتالي انتقل إلى سجل جديد دون تسجيل تحليل للمريض في السجل السابق أرجو عدم الانتقال الي سجل جديد طالما لاتوجد تحاليل مكتوبة في النموذج الفرعي requedt ارجو الافادة وياريت اكون قدرت اوصل لحضرتك طلبي1 point
-
بعد اذن الاستاذ عادل هذا الكود ربما كان أسرع (يدون الكثير من الحلقات التكرارية) تم تغيير اسناء الصفحات (تفادياً لظهور احرف غير مفهومة اثناء نسخه) فقط شيت المصدر ( 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.xlsm1 point
-
السلام عليكم الموضوع المذكور هو طلب عمل مشروع وليس نقاشا حول نقطة محددة للعلم يوجد اكثر من موضوع متكامل في المنتدى حول ارسال رسائل sms عبر اكسس فقط ابحث وستجد مطلوبك ، وفقك الله1 point
-
اولا للتوضيح انا لا املك صلاحيات اغلاق او فتح الموضوعات انا لست عضو من اعضاء فريق الموقع ثانيا هذا القسم من المنتدى للتعليم ولتناول الاسئلة والشرح يوجد اقسام اخرى تخص الطلبات والاعلانات كما ان موضوع حضرتك هذا ايضا هنا مخالف لانه هناك اقسام للشكاوى والاقتراحات تغليب المصلحة العامة مقدم على المصلحة الخاصة والمصلحة العامة والتى هى فى المقام الأول حق للموقع المضيف الذى يقدم خدمه بلا مقابل ثم لـــــــــــرواد الموقع الكرام وهى كالاتى - احترام الموقع المضيف لنا بالحفاظ على القوانين واللوائح المنظمة كما يطلبها -اختيار القسم المناسب قبل طرح الموضوع للعامة -اختيار العنوان الدال على الموضوع بسلاسة واختصار -وضع سؤال واحد فى كل موضوع اى ان كل موضوع سوف يكون مخصص للتحاور او التشاور حول نقطة واحدة -حق الرواد فى سهولة الوصول اثناء البحث داخل المنتدى لمبتغاهم ان لم نلتزم كرواد حتما سوف يصبح هذا عبئ ثقيل على كاهل اعضاء الفريق المنظمين للمشاركات والتى ام لم ينظموها هم سوف لن يكون من السهل للرواد البحث عما يريدون ويصلون اليه بسهولة من وجهة نظرى المتواضعة عمل فريق الموقع واساتذتنا الكرام الذين يقدمون المساعدة هو عمل تطوعى فرجاء التيسير والتسهيل عليهم وكما انك لك حقوق ولا تحب التهاون والتنازل عنها ارجوك تذكر ايضا ان عليك واجبات يجب ان تراعيها بنفس القدر الذى تحفظ به حقك1 point
-
1 point
-
تفضل يمكنك استخدام هذا الكود 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.xlsm1 point
-
1 point
-
جرب هذا الكود 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 Sub1 point
-
ان كنت تستخدم هذا الامر في البحث والذي يبنيه المعالج الافتراضي DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 استبدله بهذا DoCmd.RunCommand acCmdFind او هذا RunCommand acCmdFind واذا لم يفلح الامر ضع قاعدة تجريبية بالمشكلة وان شاء الله ستجد الحل :: تحياتي1 point
-
تقوم هذه الدالة على تحويل القيم سالبة الإشارة الى قيم موجبة الإشارة و ABS هى إختصار لكلمة Absolute ورياضياً تسمى هذه العملية بالمقياس فمقياس -5 ويشار إليها بالرمز |-5| وتكون النتيجة هى 5 مثلا Abs(-50) النتيجة سوف تكون 501 point
-
🎈عيد سعيد🎈 هديــــة العيد : تحويل التاريخ يحتوى المرفق على بعض الاكواد المجمعة فى موديولات لا غنى عنها تحويل التاريخ.zip1 point
-
السلام عليكم 🙂 أخي الوزير قام بالعمليات مرتين، فلهذا السبب يأخذ برنامجه وقت لعرض النتائج ، وانا عملت تغيير في الاستعلامات فقط ، وابقيت واستعملت نفس وحدته النمطية ، ونتيجتي كانت اسرع 🙂 استعمل الاستعلام qry_Results_New 🙂 وعيدكم مبارك 🙂 جعفر 1057.Lab 2019-waz.accdb.zip1 point
-
1 point
-
أستاذ قدور المثال المرفق ليس به بيانات ولا توجد علاقات! على أي حال في المثال المرفق نموذج به ثلاثة مستويات للجداول: الجدول الرئيسي --> الجدول الفرعي --> الجداول المتربطة بالجدول الفرعي.. بمعنى: يمكن استخدام جدول رئيسي واحد فقط، وجدول فرعي واحد فقط، وجداول متعددة مرتبطة بالجدول الفرعي كما في الصورة هذا في تصوري مقبول.. كمثال يمكن البدء به.. للأهمية يجب أن يكون بين الجداول المطلوب تصديرها علاقة قائمة وإلا لن تكون البيانات منضبطة النسق.. إليك المثال: ExportToXML.accdb1 point
-
السلام عليكم تفضل إليك هذا المثال به ما تريد إن شاء الله منع تعديل تاريخ الجهاز.rar1 point
-
بعد اذن الأستاذ // علي محمد علي والأستاذ // أبو عيد الأخ الكريم الخطأ رقم 1004 إليك توضيح بسيط عنه بإيجاز (أسبابه) ------------------------------------------------------------------------------------------------------------------------ تعريفه : خطأ في التطبيق أو تعريف الكائن الوصف : هذه رسالة خطأ catch-all شائعة جدًا. لماذا يحدث ؟ : يحدث هذا الخطأ عندما لا يتطابق أحد الأخطاء مع الخطأ المحدد بواسطة VBA . بمعنى آخر ، يتم تعريف الخطأ بواسطة Excel (أو بعض الكائنات الأخرى) ويتم نشر مرة أخرى إلى VBA. ---------------------------------------------------------------------------------------------------------------------- وبما أنك لم تحدد ما هو الخطأ بالكود ال حضرتك كاتبه بطريقة النسخ واللصق ( لذا الكود غير واضح ) فالأفضل رفع الملف لتسهيل العمل عليه ----------------------------------------------------------------------------------------------------------------- أو اذا اردت التعامل مع الخطأ بنفسك قم بتشغيل الكود وعندما تظهر لك رسالة الخطأ اضغط على كلمة Debug سيقوم بفتح المحرر وسيقوم قاريء المحرر تلقائيا بتحديد سطر ووضع خلفية باللون الأصفر عليه قم بإلغاء التحديد بالضغط على أيقونة Reset ( شكلها مربع بلون ازرق) بجوار زر الـ Run الأخضر من شريط المهام بالأعلي بأيقونة ثم حاول تصحيح الخطأ1 point
-
1 point
-
رمضان كربم ومبارك عليكم بعد اذن اخي مصطفى لعل كان المقصود بالسؤال هذا الملف tekrar by_choise.xlsx1 point