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

أخي الكريم اذا كان الكود محمي ، فصاحب الكود لديه كلمة السر لفتح الكود ، إلا اذا كنت انت صاحب الكود ونسيت كلمة السر شروط المنتدى لا تسمح بالتعدي على حقوق الملكية الفكرية لصاحب البرنامج. جعفر

أخي عبدالعزيز رجاء التجربة ، واذا كان هو اللي تريده ، اخبرني حتى اعمل عليه تعديل اخير وهو: بدل ان نجلب هذا الكم الهائل من البيانات (21690 سجل) الى النموذج ومن ثم تصفيته من النموذج ، فالافضل انه نصفيه من الاستعلام ونوصل الى النموذج الكم المطلوب فقط مع بعض الايضاحات عن كيفية تم العمل جعفر 14.1.البرنامج المميز.mdb.zip

تم معالجة الأمر تاريخ تلقائي معدل.rar

السلام عليكم إخواني الكرام .. كل عام وأنتم بخير .. كل عام وأنتم إلى الله أقرب أحب أن أقدم سلسلة دروس بسيطة للمبتدئين فيما يخص القوائم المنسدلة ..راجيا من الله عزوجل أن ينتفع بها كل مسلم إليكم إخواني الجزء الأول .. إنشاء القوائم المنسدلة 1.rar إليكم إخواني الجزء الثاني وهو لا يختلف كثيرا عن الجزء الأول .. إنما هو مثال آخر تأكيدي بشكل مختلف قليلا إنشاء القوائم المنسدلة 2.rar الأخوة الكرام أقدم لكم الجزء الثالث متمنياً لكم دوام الصحة والعافية وكل عام وأنتم بخير إنشاء القوائم المنسدلة 3.rar كل عام وأنتم بخير إخواني الكرام إليكم الجزء الرابع من القوائم المنسدلة في هذا الجزء سنتناول كيفية عمل قوائم منسدلة لقوائم غير ثابتة إنشاء القوائم المنسدلة 4.rar

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الأغر ... هل ....؟ سؤال موجه لكم وليس لي هل .....؟ والإجابة على السؤال بهل إما بـ "نعم" أو بـ "لا" هل قمت يوماً ما بتحميل مصحف كامل لأحد القراء المحببين إليك؟ إذا كانت الإجابة بنعم انتقل للسؤال الثاني وإذا كانت الإجابة بـ "لا" .. مش عيب عليك تحمل أفلام ومسلسلات وألعاب وناسي كتاب الله السؤال الثاني : هل بعد عملية التحميل وجدت أن المجلد الذي يحتوي على السور مرقمة من 001 و 002 إلى 114 بدون أسماء السور؟ إذا كانت الإجابة بـ "نعم" فإليك الحل السحري مع الإكسل .. الحل هو دمج أسماء السور مع الاحتفاظ بالرقم أيضاً من أجل ترتيب السور ، لتصبح في النهاية بهذا الشكل 001 - الفاتحة ، 002 - البقرة وهكذا!! خطوات العمل : ************** قم بنسخ المصنف الذي سأقوم بإرفاقه في نفس مسار المجلد الذي يحتوي على السور القرآنية .. افتح المصنف .. اضغط زر الأمر .. وشكراً لكم على حسن تعاونكم معنا أترككم مع الملف :fff: Rename Quran Files.rar

السادة الأفاضل أقدم لكم اليوم كود لعمل حفظ ذانى لملف الإكسيل يوضع الكود فى ThisWorkbook Sub workbook_beforeclose(cancel As Boolean) If Me.Saved = False Then Me.Save End Sub أتمنى أن يستفاد منه الجميع وشكرا مرفق ملف للتجربة قم بعمل أى تغيير داخل الشيت وأغلق الملف دون عمل حفظ وإفتحة ثانيا Auto Save Excel.rar

بسم الله والصلاة والسلام على أشرف خلق الله سيدنا محمد عليه أفضل الصلاة والسلام سجل مقياس درجة التقوى لعصرنا الحالى انخفاضاً كبيراً في مستوى الإيمان و هذا يرجع إلى شدة البرودة التي سادت جميع أرجاء ضمائر الناس كما سجلنا هبوب رياح محملة بالعلمانية و الإنحلال وتبين أيضاً تسرب تيارات غربية على الوطن الإسلامى فى الأوساط الفكرية و العقائدية ... و عن طريق الصور التى التقطناها من القرآن و السنة . لاحظنا تشكل غيوم من الفتن كقطع الليل المظلم كما لاحظنا أيضاً نشوء زوابع من البدع و الخرافات شوهت وجه الإسلام مما أدى ذلك إلى توليد براكين من الأحقاد و زلازل من الشحناء بين المسلمين أما توقعاتنا لغداً إن شاء الله ، فإنه سيعود الصفاء لعقول الشباب المسلم ما إن تمسك بكتاب الله و سنة رسوله ... و سينقشع الضباب على الطريق مما يجعل رؤية فجر الإسلام واضحة و في الصباح ستسقط بعض الأمطار الخفيفة على القلوب المؤمنة لتزيل بعض البغضاء والحقد و اخيراً ...... ننصح أخواتنا المسلمات بارتداء الحجاب الإسلامى نظراً لشدة الرياح المحملة بالإنحلال و الضلال . كما ننصح الشباب المسلم بارتداء نظارات غض البصر عند الخروج صباحا. مع تمنياتنا بقضاء اوقات سعيدة على كوكب الأرض خاليه من الكره والحقد والبغضاء و الإستمتاع بأيام جميلة في ظل الاسلام السلام عليكم ورحمة الله تعالى وبركاته اترككم فى رعاية الله وحفظه يارب إن كان إدراك الحكمة صعباً.. فاجعل برحمتك الصبر والرضا سهلاً.

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

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

بارك الله فيك استاذ / ياسر ونفعك الله بعلمك وفاض الله عليك من كرمه

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

انت بالفل ملك الأعمال الرائعة سلمت يمينك بارك الله فيك وجزاك كل الخير

تم اظهارهم بنجاح جعفر الحمدلله اولا وآخرا وجزاكم الله خيرا ،،،

Dim dbs As Database, tdf As TableDef اختصار لـ Dim dbs As DAO.Database, tdf As DAO.TableDef يعني الكود معتمد على DAO Library لهذا السبب يجب ان يكون مختارا. وثانيا ، انت لما تعمل البرنامج اصلا ، تكون مضبط جميع الامور فلن تحدث لك هذه المشكلة!! المشكلة ظهرت لديك لأنك استورت برنامج اظهار الجداول المخفية الى برنامج الاخ ابوخليل (ولم يكن الكود في برنامجه اصلا) ، لذا ، مع استيرادك للكود ، يجب ان "تستورد"/تضبط الامور الاحرى معه. ولكنك لو استوردت كائنات برنامج الاخ ابوخليل لبرنامجك ، لما كان في حاجة لتغيير الكود جعفر

جزاك الله خيرا

حتى تعم الفائده كانت المشكله مع الكود لاظهار ملفات الاستاذ ابو خليل فى السطر Dim dbs As Database, tdf As TableDef قمت بازاله هذا السطر من الكود من مرفق الاستاذ جعفر وعمل جيدا وقمت باظها الملفات وها المرفق بعد الاظهار aa_up.rar

أخي ابو الآء برنامجك لا يخفي الجداول المرتبطة ولكنك جعلتني افتش ملفاتي القديمة ، ووجدت الحل جعفر Show_Hide_Tables.zip

السلام عليكم المثال ده من مكتبتى الرجاء الدعاء لمصمم هذا العمل الجميل بارك الله فيه ياريت يكون مفيد فى حوار الكبار ده ((((((((( خلينه كدا مش فاهمين هههه))))))))) اخفاء واظهار الجداول المنتدي.rar

يمكنك ذلك 1-افتح الجدول على التصميم 2- حدد(ظلل) الحقلين جميعا ، ويمكنك ذلك بضغط زر Ctrl باستمرار اثناء التحديد 3- اضغط بزر الفارة الأيمن واختر علامة المفتاح ستلاحظ ان الحقلين اصبحا مفتاحين هنا لا يمكن تكرار الحقلين مجتمعين A2.rar

طيب اخوي جعفر افحص المثال المرفق يوجد داخله جدولين واحد منها مرتبط ... حاول اظهارها من الخيارات يمكن اكسس الذي عندي يوهمني .. تراها دايم تحصل احب أتأكد .. جزيت خيرا aa.rar

السلام عليكم ورحمة الله وبركاته فورم لاجراء قرعة لبيانات معينة وهوطلب لاحدهم في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=55244 جعلته هنا لتعم الفائدة ملاحظة : تم اضافة امكانيات اخرى لهذا المرفق المرفق 2003 قرعة.rar ================================================================= وردني هذا السؤال على الخاص المرفق 2003 قرعة متعددة الاختيار.rar

وعليكم السلام أخي أبوخليل ولي الشرف ان تمر علينا هنا الكود اللي وضعته انت ، هو بدلا عن (اضغط على اسم الجدول بالفأرة اليمين ، خصائص ، ثم تختار إخفي) ، وطبعا يمكن للمستخدم ان يظهر جميع جداول النظام ، وبالتالي سترى الجداول التي اخفيتها بالكود اعلاه. اما الكود الذي وضعه الاخ أسير الشروق ، فلا يمكن إظهار الجداول إلا بكود آخر ، فإظهار جداول النظام لن يُظهر هذه الجداول جعفر

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

السلام عليكم يسعدني المشاركة معكم وحسب فهمي ان كان القصد اخفاء واظهار الجداول المرتبطة في قاعدة بيانات ما ،، فهذا للاخفاء : If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 وهذا للاظهار : If tdf.Attributes = 1073741824 Then tdf.Attributes = 0

وعليكم السلام أخي الآن اشتغل على موضوعك ان شاء الله جعفر

بارك الله فيك اخي الكريم وتمنياتي لك بالتوفيق إن شاء الله في كل مجالات الحياة تقبل خالص تحياتي

السلام عليكم الملف الاخير بعد التعديل وتصحيح الاخطاء واي استفسارات انا في الخدمة تحياتي للجميع النص التنبئي معدل.rar

الأخ الغالي ياسر (اسمك على اسمي فأكيد تكون غالي ..) بارك الله فيك .. وفي انتظار المزيد من مثل هذه الإبداعات .. أحب أن أرى المنتدى شعلة نشاط ، وليس مكان للطلبات وفقط .. هكذا نرتقي بالمنتدى .. وهذا أيضاً يجعل من عملية البحث أمر سهل وميسور ويوفر الوقت ، حيث أن الباحث عن حاجة ما إذا وجدها لم يرهق المنتدى بكثرة الطلبات (المكررة غالباً)

السلام عليكم معذرة ليس لدي وقت للمعادلات الآن الأسهل بالأكواد بالمرفق إن شاء الله يكون كل ماتريد ============= بالمناسبة يتم الرفع علي الموقع عن طريق 3 خطوات اضغط الملف باستخدام winrar أو winzip ثم إختر الملف المضغوط زرChoose File ثم إرفع الملف المضغوط زر رفع الملف ارشيف الاستلام2.rar

استاذنا الكريم لقد تطوعت بتعبئة الدرجات حسب الاسماء الموجوده وتركت اسم فقط فارغ سؤالي بهذه الطريقه تعبئة الدرجات متعب وخاصه اننا نلجأ للجدول للتعبئه وايضا لابد من كتابة كود الطالب وكود الماده معا فلماذا لايظهر اسم الطالب والماده المقترن بها تلقائيا تحياتي ADrjat2.rar

اخي آخر الارض جزاك الله خيرا ما دامت الحقول غير منضمة الى جدول فلا بد ان نعرف قيمتها كعدد حتى تتم المقارنة اعد كتابة الكود بما يشبه هذا : Dim i, x As Integer x = Me.XX i = Me.M_SM If i > x Then MsgBox ("المبلغ الاصلي اكبر من الرصيد") Exit Sub End If

جزاكم الله خيرا

الاجابة على الشق الثالث من السؤال يتطلب زيادة جدول ونموذج فرعيين وهذا ما سيتم شرحه ان شاء الله في الجزء الثاني من هذا الدرس http://www.officena.net/ib/index.php?s=818b325877d034b9a763dc666124fcb2&showtopic=59344

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ياسر خليل اعمالكم في قمة الروعة والاروع اسلوب العرض المشوق انا جربتها في36 صف لثمان اعمدة حسب المواد للترقيم السري للدفاتر الامتحانية وكانت تتغير جميع الاعمدة بمجرد ان اغير في خليه واحدة من اي عمود عمل يستحق التقدير والاحترام كشخصكم الكريم تقبلوا وافر احترامي وتقديري

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ العزيز ابا الاء جزاكم الله خيرا دائما سباقا لعمل الخير وفقكم الله ورعاكم تقبلوا وافر احترامي وتقديري

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

بارك الله فيك

السلام عليكم keys جمع key ومهناها مفاتيح السيغة العامة لتعبئة قاموس Scripting.Dictionary هي key, Item حيث key هو مفتاح السطر ان سحا التعبير كما هو الحال في ال ListView و جداول الاكسيس مثال لدينا اسماء اشخاص واعمارهم Sub Main() Dim keyArray, itemArray, element Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") With dict .Add "rabie", 29 .Add "ali", 33 .Add "mohamed", 20 keyArray = .Keys For Each element In keyArray Debug.Print element Next itemArray = .Items For Each element In itemArray Debug.Print element Next End With Set dict = Nothing End Sub في هذا الجزء .Add "rabie", 29 .Add "ali", 33 .Add "mohamed", 20 ملئنا بيانات القموس باسماء الاشخاص وهو key و اعمارهم وهي Item لكي نملء المصفوفة بالمفاتيح مرة واحدة استخدمنا Keys وهو الذي تسال عنه keyArray = .Keys يعني Keys تسمح لنا نقل جميع Key الى مصفوفة او قائمة دفعة واحدة وهذا الشيئ الجميل فيها اذا اردنا جلب الاسماء الان نستخدم حلقة تكرارية للمصفوفة التي ملئنا بياناتها منذ قليل For Each element In keyArray Debug.Print element Next واذا اردنا جلب اعمارهم من القاموس نستخدم مصفوفة اخرى لاكن هذه المرة مع Items itemArray = .Items ونفس الشيئ لطباعت الاعمار نستخدم حلقة تكرارية For Each element In itemArray Debug.Print element Next لتفريغ القاموس نستعمل Set dict = Nothing ارجو ان تكون الفكرة من القواميس قد وصلت لك اخي الصقر لاتنسى ضغط Ctrl+G قبل او بعد تنفيذ الكود لروئية النتائج على محرر الاكواد تحياتي

دالة رائعة و الأروع من وضعها

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

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

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

أخي الغالي أخوك لا يجيد التعامل مع أكواد البريد الالكتروني .. اعذرني لعدم القدرة على المساعدة

هل تقصد اول سجل أو سجل جديد للأولى : DoCmd.GoToRecord , , acFirst للثانية : DoCmd.GoToRecord , , acNewRec بالتوفيق

حياك الله ,, يوجد تقرير بإسم تقرير1 افتحه وجرب ... الأكواد المستخدمة في حدث عند التحميل للتقرير Option Compare Database Private Sub Report_Load() a = Nz(DSum("[ãÈáÛ ÇáÓäÏ]", "ÇáÓäÏÇÊ ÇáäÞÏíÉ"), 0) b = Nz(DSum("[ãÈáÛ ÇáÝÇÊæÑÉ]", "ãÓÍæÈÇÊ ÝæÇÊíÑ"), 0) c = a + b End Sub الحروف العربية لاتظهر هنا... ولكن ستجدها في المرفق بالتوفيق ان شاء الله .. حسابات عامة تعديل.rar

السلام عليكم تفضل المرفق إن شاء الله يكون هو ماتريد وقد أضفت لك أيضا عمود باللون الأحمر في ورقة "موقف تفصيلي" لاظهار آخر تاريخ تم ذكره للمحطة ارشيف الاستلام.rar

السلام عليكم ورحمة الله وبركاته أشعر أن المنتدى بحاجة إلى دورة تنشيطية .. تجدد الدم في عروقه ... المعظم تقريباً ، يطلب وفقط ، ولا أجد إلا القليل الذين يقدومون ما هو مفيد وجديد .. أقدم لكم اليوم دالة معرفة User Defined Function ، اسم الدالة SumBold ، وتقوم الدالة بجمع الخلايا التي لها تنسيق Bold أي عريض .. يعيب هذه الدالة أنه في حالة قررت أن تقوم بتغيير أحد الخلايا من Bold أو العكس ، فلابد لتحديث النتائج أن تضغط F9 حتى تظهر النتائج بشكل صحيح بعد التعديل .. أترككم مع الملف ، عله يكون ذو فائدة لكم تقبلوا تحياتي Sum Bold UDF Function.rar

السادة الافاضل السلام عليكم ورحمة الله وبركاته الرجا نسخ الدالة فى ورقة عمل ( اليوم الدراسى ) بملف توزيع الحصص وتفعيلها فى ورقة عمل ( اليوم الدراسى ) بملف برنامج الجدول المدرسى الاصدار الثانى 4