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

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

أخي عبدالعزيز رجاء التجربة ، واذا كان هو اللي تريده ، اخبرني حتى اعمل عليه تعديل اخير وهو: بدل ان نجلب هذا الكم الهائل من البيانات (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

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

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

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

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

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

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

أخي ابو الآء برنامجك لا يخفي الجداول المرتبطة ولكنك جعلتني افتش ملفاتي القديمة ، ووجدت الحل جعفر 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

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

جزيت خيرا استاذ جعفر النسخة صيغة 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