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

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

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

تم معالجة الأمر تاريخ تلقائي معدل.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

السلام عليكم المثال ده من مكتبتى الرجاء الدعاء لمصمم هذا العمل الجميل بارك الله فيه ياريت يكون مفيد فى حوار الكبار ده ((((((((( خلينه كدا مش فاهمين هههه))))))))) اخفاء واظهار الجداول المنتدي.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

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

حياك الله انت تريد الجدول بهذه الطريقة الاسم :::::: تاريخ التفويض ::::: تاريخ نهاية التفويض :::: ملاحظات :: وقبل نهاية التفويض ب 15 يوم ينبهك بالأشخاص اللي اقترب انتهاء تفويضهم .. هل اتفقنا ؟؟؟؟ ولو ان العرب لا يتفقوا انتظر ردك ..

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

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

اخي ابا اسماعيل اليك هذا الملف الذي يمسح كل شيئ من الورقة ويحافظ على المعادلات keep formulas.rar

السلام عليكم أخي بعد البحث عن هذا الموضوع ، اتضح انه لا يمكن اخفاء الجداول المرتبطة بهذه الطريقة ، وهذا الرابط الاجنبي يعطي ظل اكثر على الموضوع http://www.utteraccess.com/forum/index.php?s=a6e80171c5960e148b04279d22dfa28f&showtopic=1526084&st=20 جعفر

قد يفيدك هذا الرابط http://www.officena.net/ib/index.php?showtopic=40930

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

السلام عليكم معذرة ليس لدي وقت للمعادلات الآن الأسهل بالأكواد بالمرفق إن شاء الله يكون كل ماتريد ============= بالمناسبة يتم الرفع علي الموقع عن طريق 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

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تجد ردا على طلبك في حلين، الحل الأول باستعمال الدالة INDEX والحل الثاني باستعمال الدالة VLOOKUP... أرجو أن يفيا بالمطلوب... أخوك بن علية المرفق : _vlokup __ - 1.rar

جزيت خيرا استاذ جعفر النسخة صيغة mdb ليكون في متناول الجميع

شروحات أكسس الصوتية والمرئية دروس الأستاذ عبدالفتاح كيره شرح 3 طرق لفتح نموذج من داخل نموذج آخر الاستفادة من خاصية القيمة الافتراضية للحقول شرح التحقق من عدد أرقام الرقم القومى شرح استخلاص ت الميلاد من الرقم القومى دالة mid-val شرح دالة DateSrial شرح البحث عن اسم يتضمن أى حروف البحث بمعلومية شرطين باستخدام استعلام و كود شرح استعلام إلحاق استعلام الإلحاق بدون تكرار مع تعديل بعض الحقول الملحقة كيف تفتح نموذجا على سجل محدد كيفية التحكم فى حقل بنموذج فرعى من خلال النموذج الرئيسى كيفية البحث عن السجلات و الانتقال إليها التنقل بين السجلات في نموذج أكسيس بخطوات محددة التخطيط لإنشاء قاعدة بيانات ======================================================== تعلم الاكسيس ( باللغه العربيه صوت و صوره ) لــ admiral http://www.officena.net/ib/index.php?s=c6d3bad3a53a5ac634ea791d48f6472c&showtopic=31301 ======================================================== شرح اكسس 2003 فيديو (1)... لقنديل الصياد http://www.officena.net/ib/index.php?showtopic=48569 شرح اكسس 2007 (2) http://www.officena.net/ib/index.php?showtopic=51147 شرح اكسس 2010 (3) http://www.officena.net/ib/index.php?showtopic=51150 ======================================================== تعليم برنامج أكسس 2010 لـــ ALSHAMAL http://www.officena.net/ib/index.php?showtopic=54641 ======================================================== أكسيس 2013 شروحات متنوعة الاستاذ عبداللطيف طراقجي شرح برنامج مايكروسوفت أكسيس 2013 http://www.officena.net/ib/index.php?showtopic=59950&hl= الدرس الأول إنشاء و إدارة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=59961&hl= الدرس الثاني: إدارة العلاقات و المفاتيح في برنامج الأكسيس http://www.officena.net/ib/index.php?showtopic=60073&hl= الدرس الثالث: التنقل من خلال قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60177&hl= الدرس الرابع: حماية و صيانة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=60261&hl= الدرس الخامس: طباعة و تصدير قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=60376&hl= الدرس السادس: إنشاء الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60468&hl= الدرس السابع: تنسيق الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60584&hl= الدرس الثامن: إدارة السجلات في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60681&hl= الدرس التاسع: إنشاء و تعديل الحقول في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60809&hl= الدرس العاشر: إنشاء الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60893&hl= الدرس الحادي عشر: إنشاء الاستعلامات الاجرائية في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60988&hl= الدرس الثاني عشر: تعديل الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61086&hl= الدرس الثالث عشر: استخدام و تجميع الحقول المحسوبة في الاستعلام http://www.officena.net/ib/index.php?showtopic=61177&hl= الدرس الرابع عشر: إنشاء النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61265&hl= الدرس الخامس عشر: تعيين عناصر تحكم النموذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61351&hl= الدرس السادس عشر: تنسيق النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61409&hl= الدرس السابع عشر: إنشاء التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61468&hl= الدرس الثامن عشر: تعيين عناصر تحكم التقرير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61561 الدرس التاسع عشر و الأخير: تنسيق التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61634

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