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

السلام عليكم 🙂 واصبح البرنامج مستعد يأخذ اي عدد 🙂 وبواجهة جديدة : . . جعفر 1158.2.mdb.zip

السلام عليكم 🙂 اذا تسمحي اخوي ابو خليل ، واخوي محمد ابوعبدالله 🙂 مشاركتي لا تؤدي العمل بضغطة زر ، وانما تقدر تستفيد منها لتوزيع الغرف لاحقا ايضا 🙂 الاختيار ليس تلقائي ، ولكنه يسهل العمل كثيرا 🙂 ومن تجربتي مع الحجاج ، بعض الاوقات في مجموعة تحب ان تكون مع مجموعة اخرى في الباص ، فطريقتي سوف تسهل عليك 🙂 العمل كله بيكون في الجدول tbl_Groups ، والعمل بالمجموعات ، لذا : 1 و 2. استعلامات الحاقية ، فقط لاخذ بيانات الجدولين tbl_Tsjeel والجدول tblSub_Tsjeel الى الجدول tbl_Groups . 4. نموذج العمل هو frm_Main تختار من قائمة "في انتظار التوزيع" (وفي الواقع الاختيار عن طريق userid) ، العدد الذي تريده ، وفي الاسفل بتشوف عدد اختياراتك ، ومجموع الاشخاص اللذين اخترتهم ، تختار الى اي باص تريد ان تلحقهم ، باختيار رقم الباص ، ثم النقر على الزر الاول (السهم من القائمة الى الباصات) ، وتلقائيا تشوف النتائج ، واذا اردت ارجاع اي مجموعة ، فالاختيار يكون من قائمة الباص ، وتنقر على الزر بالاسفل (السهم من الباصات الى القائمة) ، وتلقائيا تشوف النتيجة 🙂 . هي لعبة اكثر منها عمل 🙂 جعفر 1158.haj.mdb.zip

شكرا جزيلا اخوي كاسر 🙂 الظاهر بالغلط لعبت في اعدادات الاكسس ، وما كانت تطلع لي رسائل التحذير !! بالاضافة الى حلك ، ولكني افضل إخفاء هذه الرسائل بإستعمال : DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True و DoCmd.SetWarnings False DoCmd.RunSQL ("Delete * From tbl_Groups") DoCmd.OpenQuery "qry_Append_Tsjeel" DoCmd.OpenQuery "qry_Append_sub_Tsjeel" DoCmd.SetWarnings True وقد تم تحديث الملف المرفق في مشاركتي السابقة ، شكرا لك 🙂 جعفر

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

حياك الله اخوي ابوخليل 🙂 بسبب انك عامل مجموعات في البرنامج ، والبرنامج يشتغل عليه ، والمسميات اللي تشوفها هي عبارة عن مسميات المجموعات ، وعليه ، المجموعات 1 و 2 و 3 ، وزعهم يدويا على الباصات (عن طريق البرنامج طبعا) ، ومو لازم يملؤا الباصات ، وبعديت اعمل توزيع تلقائي ، فيضيف لك بقية العدد للباص ، ويكمل باقي الباصات 🙂 اما رقم 4 ، فما شاء الله تخصصك 🙂 جعفر

جرب هذه المعادلة =IF(A2="","",CHOOSE((COUNTIF($L$2:$L$50,A2)>0)+1,"عام","خاص")) الملف مرفق count+ cHOOSE.xlsx

جزاك الله خيرا اخى محمد على مشاركتك اخى الفاضل افرغ الجدول الثانى اللى هيتنقل فيه وشغل الاستعلام وشوف النتائج واخبرنا كل اللى عملته بالمرفق انى افرغت الجدول وشغلت الاستعلام Database1_up(1).mdb

افتح النموذج واضغط على نقل جداول طلاب الفراغات ..... ربما هو المطلوب ... Database1 (1).mdb

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

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

السلام عليكم للاسف لم استطيع تحميل ملف الاخ kha9009lid اخي ahmed s metwally جرب المرفق بعد التعديل فهو يعمل عندي بصورة صحيحة تحياتي فواتير الفروع (1).rar

جرب الان فواتير.accdb

السلام عليكم اتفضل هل هذا ماتريد على قد ما فهمت السؤال تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم Database1_up.mdb

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

جرب هذا اماكرو Option Explicit Sub HYPER() Dim My_Sheet As Worksheet For Each My_Sheet In Sheets With My_Sheet .Range("A1").ClearContents .Hyperlinks.Add Anchor:=.Range("A1"), _ Address:="", SubAddress:=.Name & "!A400", _ TextToDisplay:="GOTO :" & .Name & " A400" .Range("A1").Columns.AutoFit End With Next End Sub

السلام عليكم اتمنى ان تجد في الملف المرفق طلبك لا تغير اسم ملف الاسماء ولا اسم الشيت الكود للسيد مختار من اعضاء المنتدى المميزين _import _name.xlsm name.xlsx

السلام عليكم مشروع حملة حج خيرية .. طلب مني توزيع آلي للركاب حسب شروط محددة عدد الباصات 5 يتسع الباص لـــ 49 كرسي لكل باص مشرف خاص عدد المشرفين 5 مع عائلاتهم كل حاج معه مرافقين يختلف عددهم من حاج لآخر ، ويمكن ان يكون الحاج وحيدا المطلوب بضغطة زر التوزيع على الباصات حسب الشروط التالية 1- توزيع المشرفين الخمسة على الباصات الخمسة كل حسب رقم الباص المسجل امامه . 2- توزيع بقية الحجاج على الباصات بشرط مهم وهو ان يكون كل حاج وعائلته ضمن باص واحد . وينطبق ذلك على المشرفين ايضا 3- تعبئة الباصات الاول ثم الذي يليه حتى اكتمال الباصات بالركاب المرفقات : جدولان : رئيسي وفرعي الرئيسي سجل فيه بيانات الحاج والفرعي سجل فيه بيانات المرافقين له يشترك الحاج والمرافقين له بمعرف موحد بينهم : userid ينفرد كل فرد بمعرف خاص به : cardID الشكر مقدما .. لكم جميعا احبتي haj.mdb

استاذي / @kha9009lid الله الله عليك استاذى كود صغير وجميل ويحقق المطلوب الله يبارك فيك ويجعله في ميزان حسناتك والله لم اجد كلمة تعبر عن ما تفعله حضرتك في اكسس وانا كم استفيد من اكواد وطريقة تفكيرك فى الحلول كما اشكر استاذنا / احمد الفلاحجى على متابعته للموضوع ومحاولته لايجاد حل شافي ربنا يجزاه كل خير واشكر الاستاذ @husamwahab على مشاركته وتقديم المساعده لى جزاه الله خيرا والى الجميع كل التقدير والاحترام

انظر للمرفق اخي الكريم/اتمنى يكون طلبك DBdb.rar

السلام عليكم أحيانا يكو ن اكثر من مستخدم للبرنامج وأنت كمسؤول يهمك معرفة من عمل على البرنامج حسب الوقت لذلك فانك تحتاج لمعرفة تسجيل الدخول والخروج اقتطعت هذا الامر من احد برامجي متمنيا لكم الفائدة وأنتم تعلمون انني لا ابخل عليكم بأي معلومة تسجيل الدخول والخروج.accdb

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

تفضل اخي الكريم تحياتي DBdb.rar

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

السلام عليكم 🌹 الف مبروك على الترقية اخوية @خالد سيسكو موفق لكل خير.

السلام عليكم اخي العزيز ماقي مشكلة ليس لها حل ان شاء الله تفضل اخي الكريم طلبك : 1-البرنامج يحسب لك تاريخ استحقاق العلاوة الجديدة بصورة تلقائية لمدة سنة واحدة عند ادخال تاريخ العلاوة السابق. 2- عند وجود شكر للموظف يتم اختياره من القائمة المنسدلة ويقوم البرنامج بتقديم تاريخ استحقاق العلاوة الجديده لمدة شهر واحد. 3- اقصى حد للتشكرات التي تقوم بتقديم تاريخ العلاوة السنوية هو (3) . 4- عملت لك رسالة تنبيه باللون الاحمر (وميض متحرك) نعمل قبل 5 ايام من تاريخ الاستحقاق الجديد ويمكن زيادة مدة التنبيه الى اكثر من ذلك. 5- عملت لك تقرير بالعلاوات السنوية / في حالة وجود اي علاوة بقتح التقرير بصورة طبيعية / وفي حالة عدم وجود اي علاوة تظهر لك رسالة / لاتوجد علاوات هذا اليوم. اعلمنا النتائج ؟؟؟؟؟ تحياتي test.rar

الف الف مبروك وتمنياتي القلبية بالتوفيق للجميع ان شاء الله

السلام عليكم أعضاء المنتدي الكرام أقدم بينا يديكم كتاب جميل لكريستوف وارين عن معالجة البيانات بواسطة DAO ftp://ftp-developpez.com/warin/ArticleDAO_ar.pdf أرجو أن يعجبكم

بارك الله فيك

السلام عليكم هناك العديد من الطرق و هناك العديد من الأمثلة في المنتدى لهذا الأمر و من بينها هذا الكود: Dim new_Data As String Dim old_Data As String old_Data = CurrentProject.Path & "\DB.accdb" 'اسم و مسار قاعدة البيانات المراد ضغطها new_Data = CurrentProject.Path & "\DB_compact.accdb" Set acc2007 = CreateObject("DAO.DBEngine.36") acc2007.CompactDatabase old_Data, new_Data, Nothing, Nothing Set acc2007 = Nothing Kill old_Data Name new_Data As old_Data MsgBox "لقد تم ضغط القاعدة بنجاح"

اخ عبدالله اشكر اهتمامك هذا ما احتاجه بالضبط هل بالامكان تعديل في الكود بحيث تظهر لي نافذه اختار منها ملف name اي كان موقعه بدلا من المسار المحدد بالكود الذي يجبر المستخدم ان يضع الملف في نفس مسار ملف import_name

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

استاذنا الغالي بزيادة @jjafferr ما شاء الله عليك وزادك الله من فضله وعلمه لكنها اكثر من رائعة تحياتي

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

السلام عليكم تعريف الوحدات النمطية : هي دالة او مجموعة من الدوال مكتوبة بلغة VBA تؤدي غرضاً معيناً او تعيد قيماً محددة بناءً على قيماً مدخلة.ويتم استدعاء الوحدة النمطية في اي موقع في قاعدة البيانات سواءً في الاستعلامات او النماذج او في اشرطة الادوات. الغرض من الدالة : اختصار الوقت والمساحة في قاعدة البيانات مثلاً ربما يكون لدينا كود او مجموعة من الكودات المتشابهة في مواقع مختلفة من قاعدة البيانات فبدلاً من كتابتها في كل مرة نكتبها مرة واحدة في وحدة نمطية ونستدعيها في الموقع الذي نحتاجها . --------------------------------------------------------------------------------------------------------------------------- انشاء الوحدة النمطية بكون بالدخول الى محرر فيجيوال بيزيك: الكود التالي يمثل الدالة الاجرائية وهي ابسط انواع الدوال: Function Function_Name( ) Statement End Function شرح الكود :يجب ان تبدأ الدالة بهذه الكلمة للتعريف بانها دالة وهناك كلمات اخرى للتعريف بنوع الدالة لكن هذا النوع الشائع. (اسم الدالة) Function_Name ويجب مراعاة مايلي عند اختيار اسم الدالة : - اختيار الاسم باللغة الانجليزية - اختيار اسم يدل على وظيفة الدالة - اختصار الاسم قدر الامكان ويفضل ان تكون كلمة واحدة. - في حال استخدام عدة كلمات يجب ان لا تحتوي على فراغ يما بينها ولذلك يتم الفصل بينها بواسطة الشرطة السفلية. - تجنب استخدام الكلمات المحجوزة واذا لزم الامر اضف حرفاً الى بداية او نهاية الكلمة . ----------------------------------------------------------------------------------------------------------------------------------------- - مجموعة الكودات الاجرائية التي نحتاجها (Statement ) - التصريح عن نهاية الدالة (End Function) وتستخدم الدالة الاجرائية في تنفيذ الاوامر مثل فتح واغلاق النماذج , التنقل بين السجلات , التحكم في خصائص النماذج وعناصر التحكم , تشغيل جمل ال SQL , اظهار الرسائل المختلفة ... الخ ويتم استدعاء هذه الدالة كالتالي بالكود: Call Function_Name ( اسم الدالة) هذه بعض التلميحات المنقولة حول الدوال ارجو ان يكون فيها الفائدة هذا نموذج لوحدة نمطية لاخفاء شاشة الاكسس عند الفتح ونموذج رسالة ترحيب test.rar رسالة ترحيب.rar

السلام عليكم اخي العزيز من الافضل ارفاق ملف للتعديل / للسرعة في انجاز المطلوب عملية الجمع بالنماذج او جلب القيم تكون 'بالنسبة للنماذج يتم الجمع داخل الحقل بان يكون الحقل غير منظم وتكتب داخله مثلا =Sum([اسم الحقل]) 'جلب قيمة من نموذج الى آخر يشرط يكون مفتوح =[Forms]![اسم النموذج]![اسم الحقل] ويمكن جلب القيم مباشرة من الجدول او الاستعلام الى النموذج باحدى الدوال

اخي نبراس اطلع على هذة المشاركة

لا يمكن ذلك ولا يوجد حل

اذا كنت تقصد رقم اللون .... فتجد في هذه المشاركة ملف PDF فيه جميع ارقام الألوان .....

جرب هذه المعادلة =SUMPRODUCT(($C$2:$C$100<>"")*($B$2:$B$100<>""))

وعليكم السلام 🙂 من هنا : https://www.tek-tips.com/viewthread.cfm?qid=900952 يكون الكود: Public Function getMyIP() Dim myWMI As Object, myobj As Object, itm Set myWMI = GetObject("winmgmts:\\.\root\cimv2") Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each itm In myobj getMyIP = itm.IPAddress(0) Exit Function Next End Function ونناديه من النموذج او اي مكان في البرنامج هكذا : A = getMyIP جعفر

تفضل اخي العزيز ارجو ان يكون طلبك IP_Address.rar

السلام عليكم اذا كنت تقصد ان يبدا بترقيم جديد للسنة التالية فهذه محاولة اارجو ان تكون طلبك asd.rar

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

ممكن ان يكون هذا المطلوب Quiz.xlsx

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

الماكرو الصحيح والاسرع Sub Mohamed() Dim my_sh As Worksheet Dim lr With Sheets(1) For Each f In .Range("f2", .Range("f1").End(4)) If f <> "" Then 'هذا السطر للتأكد من وجود الشيت '++++++++++++++++++++++++++++++++++++++++++++++ If Evaluate("ISREF('" & f.Value & "" & "'!A1)") = False Then _ GoTo next_f '++++++++++++++++++++++++++++++++++++++++++++++ Set my_sh = Sheets(f.Value & "") lr = my_sh.Cells(Rows.Count, 1).End(3).Row + 1 my_sh.Cells(lr, 1).Resize(, 6).Value = _ .Cells(f.Row, 1).Resize(, 6).Value End If next_f: Next End With End Sub الملف مرفق ABD KADER.xlsm

انا صادفتني هذه المشكلة ، والحل كان: ازالة التحديث حسب نوع نسخة الاوفيس اللي عندك : اوفيس 2007/2010 – KB4484127 اوفيس 2013 – KB4484119 اوفيس 2016 – KB4484113 جعفر

الاخوة الفضلاء مرفق تطبيق للنسخ الاحتياطي لاي قاعدة بيانات مع حماية النسخة الاحتياطية بكلمة سر ضمن الاجراءات حذف اي قاعدة بيانات في مجلد النسخ الاحتياطية ( يحمل نفس الاسم ) التطبيق أظنه يغني عن الشرح و حال لزوم الشرح نقوم بذلك ان شاء الله و الله من وراء القصد ... BE BackUp & PW.rar

برنامج صغير يحل مشكلة البحث عن "الكلمة" في ملفاتك الوورد مهما كان عددها منقول السلام عليكم ورحمة الله وبركاته من جديد وعودة للأحباب ببرنامج صغير يحل مشكلة البحث عن كلمة أو كلمات في ملفات الوورد التي عندك بالجهاز مهما كان عددها كلنا نعاني من هذه المشكلة: أتذكر كلمة - أو جملة معينة - في ملف وورد ولكنني لا أتذكر أي ملف هو هذا الملف هل أفتح كل الملفات وأبحث فيها؟ ماذا أفعل؟ أخبروني مفيش حل معقول أبدأ الحل اليوم بإذن الله تعالى في برنامج صغير جدًا تجدونه بالمرفقات - كالعادة - يبحث لنا في أي كمية من ملفات الوورد وبمنتهى الدقة ليس هذا فقط، بل بإمكانه أن يفتح لك الملف الذي به الكلمة المختارة، بل ويقوم بتلوين الكلمة أو الجملة وفيه غير هذا من الإمكانيات التي وهبها الله للإنسان وسخَّرها له فقط تابع الصور وقم بالتحميل واستبدال الكراك كما هو مبين بالصور لم أحب أن أضع لكم صور التسطيب لعدم احتوائه على الجديد، فالتسطيب يكون بالطريقة العادية دون اختراعات مني بعد التسطيب لا تفتح البرنامج، بل قم بالذهاب إلى مكان التسطيب واستبدل الكراك ووافق على الاستبدال ثم قبل البحث عن المراد قم باختيار أية لغة عربية من قائمة الفونت التحميل في المرفقات 32exam-setup.rar

يمكنك بعد تصميم الماكرو تحويله الي كود و ذلك باختيار File Save as و اختيار النوع Module أي وحدة نمطية و بذلك تتحول اجراءات الماكرو الي كود بديل ، فتستدعي هذا الكود و تلغي الماكرو الاصلي و بالتحويل الي mde يتم حماية الكود