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

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

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

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

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

السلام عليكم ورحمة الله وبركاته فورم لاجراء قرعة لبيانات معينة وهوطلب لاحدهم في الرابط ادناه 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 يوم ينبهك بالأشخاص اللي اقترب انتهاء تفويضهم .. هل اتفقنا ؟؟؟؟ ولو ان العرب لا يتفقوا انتظر ردك ..

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

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

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

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

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

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

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

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

حياك الله عفوا من القلب بالتوفيق

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

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

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ياسر خليل اعمالكم في قمة الروعة والاروع اسلوب العرض المشوق انا جربتها في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