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

خيارات الاكسس ---------> اعدادات العميل ---------> التقويم الهجري

اكبر خطأ ربط ارقام تلقائية مع بعض ....... راجع الربط في حقول ID واضح أن الارقام غير متشابهة فلذلك لن يظهر بيانات لعدم توفرها

لاحظ المرفق وعليك بتنسيق التقرير ...... moh.accdb

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

وعليكم السلام ورحمة الله أخي @محمد خالد السعيد كم عدد السجلات القصوى لهذا النموذج الفرعي ؟؟؟؟؟

للفائدة يمكن تحميل قاعدة بيانات القرآن كاملا من موقع qurandatabase باكثر من صيغة http://qurandatabase.org وهنا قاعدة بيانات القرآن كاملا من موقع تنزيل tanzil يمكن تحميل الملف بصيغة txt ثم نسخه الى ملف اكسيل ثم نسخه الى اكسيس ان شاء الله بكل سهولة http://tanzil.net/download تحياتي

من خصائص زر الامر

السلام عليكم اخي ابو عبد الرحمن 🙂 رجاء لا ترفق مرفق فيه بيانات خاصة وحساسة ، لذلك فقد قمت بحذف المرفق (شكرا لأحد اخوتنا على الاشارة الى محتويات المرفق 🙂 ) ، واذا اردت ان ترفق شيء ، فرجاء حذف البيانات الحساسة واستبدالها ببيانات وهمية 🙂 جعفر

السلام عليكم من المفترض أنني وضعت درس التعامل الأنترنت باستخدام FTP و لكن بعض الظروف منعتني من ذلك إن كنت مستعجلا فسوف أقوم بالتعديل على ملفك و إن كنت غير ذلك فسوف أضع الدرس غدا بإذن الله

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

اهلا وسهلا اخي الفاضل محمد سلامة النسخة البيتا الاخيرة بعد اختبارها في بيئة عمل حقيقية تبين وجود بعض الملاحظات البسيطة و لم اقم باصلاحها ربما اطرح اصدار بخصائص محدودة بعد انهاء الملاحظات تحياتي 🌹

بارك الله فيك استاذ محمد وزادك الله من فضله

abo jood أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!💙

وبما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة ... فكان عليك استخدام خاصية البحث بالمنتدى فبه طلبك -تفضل جمع وعد الخلايا الملونة بلون واحد فقط

بعد اذن الاستاذ عبدالفتاح في بي اكسيل واثراء للموضوع جرب هذه الطريقة اليك هذا الماكرو Sub pastespcolwid() ' Keyboard Shortcut: Ctrl+q ActiveCell.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveSheet.Paste End Sub ضعه في مديول ثم اهب الى Macro ثم Options ثم ادخل حرف Q لاختصار الماكرو انظر الصورة الماكرو ينفذ عملية اللصق عن طريق لوحة المفاتيح والطريقة هي : حدد النطاق الذي تريد ثم نسخ ثم اذهب الى مكان اللصق ثم على لوحة المفاتيح اضغط زر CTRL+Q وهذا المرفق Book1.xlsm

وعليكم السلام .. وبما انك لم تقم بتصميم الفورم بنفسك ,كان لزاما عليك استخدام خاصية البحث بالمنتدى فبه طلبك تكملة وتسجيل بيانات العمال من خلال فورم تسجيل بالرقم القومى

وعليكم السلام-لك ما طلبت جمع يوم + مورد1.xlsx

تفضل تم المطلوب بمعادلات المصفوفة خلاصه1.xlsx

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

الطريقة الثانية هنا الاستبدال بالاختيار ، عن طريق بلوكات يتم حفظها و تستدعي يدويا او كما يسمي Building Block و الطريقة كالتالي لنفرض أنك تريد توفير وقت كتابة جملة السلام عليكم و رحمة الله وبركاته اكتبها فى الملف لاول مرة ثم اخترها و اضغط ALT+F3 سيظهر لك المربع التالي و سنحفظها باسم السلام ضمن العبارات المحفوظة Building Block و هكذا تم حفظها و لاستدعاءها من قائمة Insert اختار Quick Parts Building Blocks organizers ثم اختار الجملة التي تريد ادراجها و سيتم ادراج الجملة المحفوظة المطلوبة و طبعا يمكنك اختصار الخطوات عن طريق اضافة ال quick Parts الى قائمة الاختصارات السريعة فتظهر كايقونة يمكن الوصول اليها سريعا و اختصار الخطوات السابقة كما هو مبين فى الصورة التالية ثانياً : من ناحية اخرى ستجد الوورد يقترح عليك الاستبدالات المسجلة عندما تكتب بعض الجروف دون الحاجة لادراج المكونات يدويا مثلما هو مبين فى الصورة التالىة و كل ما عليك هو ضغط Enter ليتم ادراج الجملة بالكامل 😄 ثالثاً: أيضا هناك حل آخر اذا لم يظهر لديك الاقتراح كما سبق ان تكتب كلمة السلام ثم تختارها دون زيادة مسافات فى النهاية ثم تضغط F3 و سيتم الاستبدال مباشرة من القائمة المخزنة

سألني صديق عن اعداد ماكرو يساعده فى توفير وقت عدة جمل يحتاج لكتابتها كثيرا فى الوورد واول ما خطر ببالي أن أبدأ كما طلب فى كتابة بعض الاكود، و تطرق ذهني أيضا لاعداد نموذج يحوي الجمل المتكررة، ليختار منه و لكن بفضل الله تذكرت حل يعرفه الكثير ، و لكن ربما لا يستخدمه الكثير، فاحببت مشاركتكم به ساضيف حلان الاول فى هذه المشاركة يخص الاستبدال الالى دون تدخل منك و الثاني ساضيفه فى مشاركة تالية هنا فى نفس الموضوع يخص الاستبدال يدويا اولا الاستبدال الالي فعلى سبيل المثال مثلا بدلا من كتابة جملة "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" اريد ان اختصر كتابتها على سبيل المثال ، و عليه فاختار كلمة لا تحتاج كتبتها كثيرة و يحبذ كونها مزيج من كلمة و حرف مثلا نختار هنا هذ1 لنكتبها كمفتاح للحصول على الجملة أو أي عبارة يسهل عليك استخدامها على الا تكون عبارة يتوقع استخدامها فى الكتابة العادية. مع ملاحظة أن الحد الاقصى لعدد حروف الجملة هو 255 حرف و الخطوات كالتالي: File Options ثم اتباع الخطوات التالية: 1- Proofing 2- Auto correct 3- نكتب هنا هذ1 4- نكتب الجملة الكاملة : "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" 5-add و نكرر ذلك لما نرغب من حالات ثم 6- ok و الان فى الوورد اذا كتبت هذ1 يليها مسافة أو Enter ستستبدل اليا ب "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" و هذا طبعا يوضح لماذا اخترنا جملة عبارة غير معتادة مثل هذ1 حتي لا يتم عمل استبدالات غير مرعوب بها اذا اخترنا جملة عادية و في المشاركة التالية ساضيف الطريقة الثانية

السلام عليكم ورحمة الله وبركاته🌹 هذا الاصدار شبهه الاخير ان شاء الله تقريبا من وجهة نظرى البسيطة والضئيلة واطرحه بين اياديكم للاطلاع والتجربة والرد بما ترونه مناسبا من تعديلات واضافات المميزات الاضافية امكانية وضع مجلد القارئ داخل مجلد الصوت بمسار القاعدة فقط والباقى على البرنامج ، ملاحظة يتم مسح اى مجلدات فارغة من مسار مجلد الصوت اليا كنا يتم اضافة اسم القارئ والرابط اليا الى الجدول دون تدخل من المستخدم الاصدار السابق كان لابد من ان تكون ملفات الصوت mp3 بفضل الله تم التحايل بالكود حتى يتم تشغيل ال wav يوجد مجلد منافع يتم إدراجه اليا بمجرد فتح القاعدة تجدون فيه برنامج تغيير اسماء ملفات الصوت للمصحف دفعة واحدة طبعا لابد من الحرص قبل اضافة المجلدات ان تكون اسماء الملفات الصوتية مثل المرفق السابق والمثال الموجود بالمرفق الحالي كما تم اضافة امكانية تعديل الوان التطبيق ارضاء لجميع الاذواق وبذلك اكون بفضل الله تعالي اضفت كل ما تم تناوله وطرحه فى الموضوع السابق استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل يعلم الله لم انم منذ ردكم بان المرفق لا يعمل عند حضرتك تاكدت من الاكواد جميعا بالسطر والكلمة والحرف اسال الله ان لا تواجه مشكلة هذه المرة لا يوجد كود بلا داع ولا توجد كلمات عربية داخل المحرر وتم التصميم على النواة ٣٢ بايت استاذى الجليل ومعلمى القدير الاستاذ @Gamal.Saad 🙏 لكم جزيل الشكر والعرفان بالجميل جزاكم الله خيرا 🌹 وضعت بهذا التطبيق عصارة ما لدى من افكار على طريقة كل من اساتذتى الافاضل الاجلاء الاستاذ @ابوخليل والاستاذ @jjafferr والاستاذ @رمهان وكل من تعلمت منهم وعلى ايديهم حتى لا اخطئ بنكران فضل لاحد فى هذا الصرح الرائع اتمنى ان شاء الله ان تنال رضاكم الذكر_الحكيم_V.__3.0.1.zip

السلام عليكم أولا: أخي أحمد لم تضع مثالا لأقوم بالتعديل عليه أنت وضعت جدولا فقط لقد قمت بإضافة حقل لهذا الجدول اسمه value_web سوف توضع فيه القيمة المستوردة من الويب و أضفت نموذج به نموذج فرعي البرنامج يعتمد على قراءة الكود من النموذج الفرعي لكل سجل ثم يجلب القيمة من الويب و يضعها في الحقل value_web Suppliers-Copy-1.rar

دائما سباق على الخير اخي خالد باركك الرحمن تعالى

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

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

أنا أقترح عليك .. تعيد إنشاء الجداول جيدا كما تريد . مع الأخذ بعين الاعتبار تكون أسماء الحقول بالانجليزي

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

جزاك الله خيرا استاذ @أبو إبراهيم الغامدي

أهلا بكم.. أقترح عليكم استخدام الشفرة التالية بدلا من السطر الأول Public Sub ExportToTextFile(ReportName) Dim RS As DAO.Recordset Dim TextFile As Integer Set RS = CurrentDb.OpenRecordset("استعلام4") TextFile = FreeFile Open CurrentProject.Path & "\" & ReportName & ".txt" For Output As #TextFile Do Until RS.EOF Print #TextFile, RS![LIGNECD] RS.MoveNext Loop Close #TextFile MsgBox "Done" End Sub Trans CD.mdb

بعد اذن استاد علي واثراء للموضوع هذا ملف يوجد به دوال لعد وجمع الالوان count and sum color1‬.xls

هذه احدى البرامج من المنتدى .... انظر .....

السلام عليكم ورحمة الله فى محاولة يائسة جرب هذه ="TickerChart|Live!'QO."&A2&".TAD$lasttradeprice'" ثم اسحب نزولا للصف الذى تريد

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بامكانك حذف هذه الاسطر اخى @radwan1991 MsgBox "جميع مربعات النص بها قيم " On Error GoTo Erra Dim stDocName As String stDocName = "t1" DoCmd.OpenReport stDocName, acNormal Exit_Erra: Exit Sub Erra: MsgBox Err.Description Resume Exit_Erra بالتوفيق ان شاء الله

من العمود a الى العمود m هناك 13 عامود اي أعمده تريد منها

فى انتظار اعمال جديدة

https://www.officena.net/ib/topic/61529-كود-إخفاء-وإظهار-الإستعلامات/ انظر الى هذا الرابط http://arabteam2000-forum.com/index.php?/topic/271876-طلب-كود-اخفاء-الاستعلام-او-التقرير-او-الماكرو-او-وحدة-نمطية-داخل-النموذج/

المصحف الرقمى - مجمع الملك فهد 2.zip

طيب انا عملت نصف المهمه والحمد لله انظر الى ترتيب ايات سورة الفاتحة tblAyaat Aya سُورَةُ الفَاتِحَةِ بِسۡمِ ٱللَّهِ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝ ٱلۡحَمۡدُ لِلَّهِ رَبِّ ٱلۡعَٰلَمِينَ ۝ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝ مَٰلِكِ يَوۡمِ ٱلدِّينِ ۝ إِيَّاكَ نَعۡبُدُ وَإِيَّاكَ نَسۡتَعِينُ ۝ ٱهۡدِنَا ٱلصِّرَٰطَ ٱلۡمُسۡتَقِيمَ ۝ صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ وَلَا ٱلضَّآلِّينَ ۝ انظر الى باقى الايات تجد الاية قد تكون مقسمة فى اكثر من سجل المطلوب تجميع كل اية فى سجل خاص بها كما فى سورة الفاتحة المصحف الرقمى - مجمع الملك فهد.mdb

أقترح حذفها بصورة نهائية وتنشئها فقط عند الحاجة اليها ثم تحذفها قبل غلق القاعدة ، طبعا هذا كله برمجيا . وابحث بالمنتدى عن أكواد الانشاء والحذف تلك.

ربما كا المطلوب Khoulassa.xlsx

يبقى انت كده ما شوفتش الرابط ...مفيش مشكلة نقول لك تانى - من فضلك اتبع الخطوات الموجودة بالصورة وعليك بتنفيذها

تفضل يمكنك جعل المعادلة هكذا =IF(C1=1,RIGHT(A1)+LEFT(A1),"") 1.xlsx

بارك الله فيك استاذ محمد وزادك الله من فضله

بارك الله فيك استاذ وجيه بالطبع هدية مقبولة وزادك الله من فضلك ... وكل عام وانتم بخير

عليك بإستخدام هذه المعادلة =IFERROR(IF(INDEX($A$2:$A$7,MATCH(E2,$B$2:$B$7,0))<>"",1,""),"") نسخة 1من الوقت الحالى.xlsm

بارك الله بكل مجهود طيب ... ان شاء الله في ميزان حسناتكم

عدد الكلمات و ايضا عدد الصفحات يظهر اليا فى اسفل يسار الشاشة فى برنامج الوورد ايضا راجع هذا الموضوع

انقر على التبويب (مراجعة) ثم اختر زر تلميح شاشة الترجمة.....أضف الكمات الغير موجودة في قاموس word والسلام عليكم

صباح الخير اليك شرح احد المعادلات على صفحة "شرح" في نفس الملف و المعادلات الباقية نفس الشرح و لكن بشروط اخرى بالنسبة للنتيجة (ناجح ،راسب ،غائب )لماذا لا تدع اكسل وحده ينفذها بواسطةمعادلة IF للمساعدة في الفرز ارفق لك ملفاً ثانياً لعله يساعدك ترحيل ناجح وراسب وغ.rar علامات الامتحان 1.rar