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

اتفضل اليك الكود Private Sub أمر0_Click() Dim sql As String sql = "INSERT INTO tndim ( Rjmfatwra, NoEmp, Atarih, Aljmali, Alhasm, Asafi, Alban )" & _ "SELECT AfwtIar.Rjmfatwra, AfwtIar.NoEmp, AfwtIar.Atarih, AfwtIar.Aljmali, AfwtIar.Alhasm, AfwtIar.Asafi, AfwtIar.Alban FROM AfwtIar " & _ "WHERE (((AfwtIar.Rjmfatwra)=[Forms]![form_1]![Rjmfatwra]));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True End Sub الحاق بكود.accdb

وعليكم السلام ورحمة الله وبركاته أولا: تم تحويل c35 من نص الى رقم تم استخدام الجملة التالية: Daman: IIf([C35]=1,([الاجمالي]*1.125/100),([الاجمالي]*3.75/100)) في الاستعلام الداخلي لنموذج البيايانات33 مع تغيير ما يلزم للعمل والخزانة لضيق الوقت ... اكمل الالحاق بإضافة الحقول الجديدة في جدول البيانات تحياتي ‫شرط استعلام.rar

اتفضل تم استخدام هذا الكود مع استعلامين استعلام الحاق والثاني استعلام حذف Private Sub ÃãÑ7_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "Q21", acViewNormal DoCmd.OpenQuery "Q21del", acViewNormal DoCmd.SetWarnings True DoCmd.Requery End Sub الحاق سجل1.rar

السلام عليكم اخواني واحبائى فى الله . اليوم اتيت لكم بمشروع جديد وحصري وهو التحكم فى العالم الحقيقي باستخدام الاكسس ، كالتحكم فى ( فتح البوبات - تشغيل الاناره - تسجيل قرائات حساسات - العد من العالم الحقيقى وتسجيل البيانات - الخ.....) وهذا فيديو للتحفيز : وللبداية والانطلاق فى هذا المشروع يجب من ان تتوفر لديكم بعض من العتاد الاساسية كـ : 1- برنامج اكسس اصدار 2010 او اعلى . 2- كارت اردوينو وهى كارت مفتوحة المصدر و سهلة البرمجة والاستخدام وسوف اقوم بشرحها بالتفصيل على حلقات والتأكد من تنصيب برنامج البرمجة الخاص بها ممكن تحميله من هنا . ويفضل قراءه هذا المقال الذي يعطي نبذة جيده لهذا الكارت للبدء فى استخدامها يمكنك قراءته من هنا . 3- موديل ريلاى واحد خط او اكثر على حسب الرغبة فى عدد الخطوط المرغوب فى التحكم بها او البوابات . وبرجاء قراءه هذا المقال الذي سوف يوضح ما هذا المفتاح وطريقة استخدامه من هنا . 4- اسلاك توصيل بين الموديل و الاردوينو وهى اسلاك جاهزة كما هو موضح . <-----------------------------------------------------------------------------------------------------------------------------------------> كيف سيتم الاتصال : من اسهل طرق التوصيل واكثرها فاعلية وسرعة واتصال فى الجهاتين اى ( ارسال بيانات - واستقبال بيانات ) هو المنفذ التسلسلي Serial Port او RS232 ولمعلومات عنه بالتفصيل بامكانك قراءه هذا المقال من هنا . برجاء قراءه المقالات الموضحه بعاليه قبل البدء فى اى شئ وللحديث بقيه .

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

نعم اكسل يقوم بهذا الامر بمعادلة مع تنسيق شرطي شرح المعادلة في هذه الصورة الملف مرفق DUP_FORMATdeveloped.xlsx

الحمد لله رب العالمين

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

عن طريق البحث والاستبدال والسلام

وهذه طريقة أخرى مشاركة في الموضوع Ka_1.rar

السلام عليكم اخ حمدي استخدم الدالة (Kh_Father_Name) بدل (getFaterFukkName) في الاستعلام ‫‫‫‫شئون طلاب الاول الابتدائى 2.rar

بالتوفيق

بارك الله فيكم اساتذى الكبار تم الحل والحمد لله

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

يبدو أنك لم تشاهد الدقيقة 12:00 وما بعدها في الفيديو على العموم ادخل على هذا الرابط https://myaccount.google.com/lesssecureapps turn ON وذلك للسماح بالتطبيقات الأقل أمانا بالوصول إلى بريدك واستخدامه فالفيجوال بيسك لدى جوجل تعتبر تطبيقات أقل أمانا

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

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

استاذي الفاضل عملت كما قلت راحت المشكله الاولي بقا يظهر لي كما في الصور

السلام عليكم راجع الملف المرفق لعل فيه ما تريد... ليس لي فكرة أخرى.. بن علية حاجي Book1.xlsx

وهذا بالكود بعد اذن اخي Shivan Rekany زياده خير الحاق سجل1.mdb

اتفضل اتمنى يكون هو طلبك لم انتبه بان الاخ Shivan Rekany قد اجاب على السوال وزياده الخير خيرن 1 (4).accdb

1 (1).accdb

السلام عليكم ورحمة الله أقدم لك الملف التالي بعد التعديل حيث نقوم باختيار عدد الفرق (16 على الأكثر) وعدد المجموعات (4 على الأكثر) بطريقة يدوية ثم نقوم بـ "اقتراح جدول للمباريات" بملء الجدول الخاص بذلك باستعمال الملاحظة الموجودة أعلى الجدول حسب عدد الفرق في كل مجموعة... أرجو أن يفي هذا لما تصبو إليه... بن علية حاجي عملية قرعة للفرق.rar

هذه المغادلة في و اسحب نزولاُ =IF(A2="","",LEFT(SUBSTITUTE(A2," ","*",3),FIND("*",SUBSTITUTE(A2," ","*",3))-1)) تبقى بغض المشاكل في الاسماء المركبة (عبدالله أو سيف النصر مثلاً) التي بحب كتابتها يدوياً أو ازالة الفراغ بين الاسم الاول و الاسم الثاني في التركيب مثلا عبد الله تكتب عبدالله

ممكن الحل هنا Aziz_salim.xlsx

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

ارسال ايميل عن طريق الاكسس نصي او مرفق به تقرير (بدون اكواد) انا وجدت هذا الموضوع على اليوتيوب يمكن يساعدك موفق

جزاك الله خيرا على جهدك معى وجعله فى ميزان حسناتك

تم معالجة الامر بالنسبة للصفحة Print بالنسبة لبقية الصفحات سوف يعمل الكود اذا تم جذف هذا السطر منه (بوضع كلمة Rem) امامه وتغيير اسم الكود (حتى لا يختلط الكودين مع بعض) If ActiveSheet.Name <> "Print" Then GoTo Leave_Me_Out ملاحظة (لا نتس وصع الرقم المناسب في الخلية N1) ليصبح هكذا مثلاً Sub InsertPageBreaks_with_choosen_row_for_All() Rem If ActiveSheet.Name <> "Print" Then GoTo Leave_Me_Out If Not IsNumeric(Range("N1")) Or Range("N1") < 5 Then GoTo Leave_Me_Out Range("N1") = Int(Range("N1")) Application.ScreenUpdating = False Dim Xrow% Dim i% Dim xLastrow As Long Dim x% Dim xWs As Worksheet Set xWs = Application.ActiveSheet xWs.PageSetup.PrintTitleRows = "$10:$11" xWs.PageSetup.FitToPagesWide = 1 Xrow = Range("N1") 'Xrow = Application.InputBox("How Many Rows in page?", "Salim tell you", Type:=1) xWs.ResetAllPageBreaks xLastrow = Cells(Rows.Count, 2).End(3).Row + 4 For i = Xrow + 12 To xLastrow Step Xrow xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1) x = xLastrow - i If x < Xrow Then xWs.HPageBreaks.Add Before:=xWs.Cells(i + x + 1, 1) Exit For End If Next xWs.PageSetup.FitToPagesWide = 1 Leave_Me_Out: Application.ScreenUpdating = True End Sub K G_Salim.xls

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

وعليكم السلام اخي ورحمه الله وبركاته صراحه منتدي رائع استفدنا منه الكثير الشكر والتحيه موصوله لفريق الموقع والاداره والمشرفين الاستاذ@ابوخليل الاستاذ@جعفر نتمنا له عوده سعيده الاستاذ صالح حمادي الاستاذ محمد صالح الاستاذ شفان ريكاني الاستاذ ابو ابراهيم الغامدي الاستاذ كاسر الاستاذ ابو ياسين الاستاذ ابو جودي الاستاذ محمد عبدالله الاستاذ عبدالله باقدور الاستاذ @kanory الكثير منهم لم اتذكر اسمائهم ولكن المخصوصين بالاسم لهم الفضل بعد الله ببناء برنامجي ربنا يعطيهم الصحه والعافيه والعمر المديد والمعذره لمن نسيت اسمه تحياتي

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

السلام عليكم ورحمة الله قمت ببعض التعديلات على الملف (تغييرات لبعض الرموز - إضافة جدول مساعد في ورقة "الأقسام" سميته "إسناد الأساتذة على الأقسام حسب المواد" - إضافة بعض المعادلات المناسبة...). في جدول توقيت الأساتذة يجب اعتماد الترميز التالي فيما يخص مادة "التربية الإسلامية" وحصة "الدعم في المواد": - بالنسبة لمادة التربية الإسلامية يجب استعمال الترميز : "اسلا+فراغ+رمز القسم"، مثال : اسلا 1م1 (وهو رمز لحصة التربية الإسلامية لقسم 1م1) - بالنسبة لحصة الدعم يكون الترميز التالي : "رمز القسم+فراغ+رمز المادة المختصر"، مثال: 1م1 عر (وهو رمز لحصة دعم لقسم 1م1 في مادة اللغة العربية) الرموز المختصرة للمواد : لغة عربية: عر ، فرنسية: فر ، انجليزية: انج ، اجتماعيات: اجت ، رياضيات: ريا ، تربية إسلامية: اسلا ملاحظة: لا يمكن فصل خلية إمضاء الأستاذ إلى جزئين لحصتي أ. م.فر/انج أو أ. م.عر/ريا باستعمال المعادلات... أرجو أن يفي الملف بالمطلوب وتجدني إن شاء الله في الخدمة لأي تساؤل أو تعديل آخر... أخوك بن علية حاجي ورقة الغياب.xlsm

وعليكم السلام استاذ محمد طاهر .. عاجز عن الشكر والامتنان لحل مشكلتي ، بارك الله فيك ..

السلام عليكم ورحمة الله وبركاتة اخي العزيز الحمدلله انه قد تم عمل المطلوب وكما اردت. ثانيا الملف مفتوج وتستطيع الدخول الى كل محتوياته ولم اغلق اي شئ فيه. وتستطيع ان تغير ما تشاء فيه . اذا كان قصدك AliAlhadad© ولا يهمك فقد حذفتها من كل النماذج وهنا ملف جديد في المرفقات. بالتوفيق ان شاءالله. تحياتي DB Goods (Final).rar

2003 examp.xls

أنا شغال للأسف على 2007 ولا يوجد لدى 2003

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

تم وضع اللمسة السحرية takrire final2018_salim.xlsm

تم حذف الخانات الفارغة في اسفل الصفحة انظر الى هذا الملف الجديد st_List_salim1.xlsm

تم التعديل كما تشاء أين الاعجاب (هل من الصعب الضغط على اشارة القلب ❤️ اسفل كل مشاركة) (الخانات الفارغة في اسفل الصفحة لا تظهر عند الطباعة) جرب ان تعمل Print Preview و سوف ترى نطاق الطباعة قائمة التلاميذ salim1.xlsm

شكرا أستاذي على هذا المجهود ولكن في خانة القسم اريد ان يبقى إسم القسم كامل كما هو، يعني انني عندما اغير في القائمة المنسدلة تعطي إسم القسم مختصر وفي تفس الوقت يظهر إسم القسم مفصل في خانة القسم مثلا 3تق1 تعني ثالثة تسيير وإقتصاد1 مع إخفاء الخانات الفارغة في الأسفل قائمة التلاميذ.xlsx

كيف نعرف اذا كان رقم ما هو أوّلي او لا واذا لم يكن أولياً ما هي قواسمه و ما هو عددها? (ما عدا الواحد والعدد نفسه) Prime Or Not Prime.xlsx

اخواني الكرام اضع بين ايديكم الجزء الاول من شرح الترحيل وبإنتظار تعليقاتكم واستفسارتكم ابواحمد الجزء الاول من الشرح ملف شرح الجزء الاول الترحيل.rar الجزء الثاني من الشرح ملف شرح الجزء الثانى الترحيل2.rar الجزء الثالث من الشرح (ترحيل القيم - ترحيل محدوود) ملف شرح الجزء الثالث الترحيل3.rar الجزء الرابع من شروحات الترحيل ملف شرح الجزء الرابع ترحيل حسب اسم الشيت.rar لا تنسوني أخوتي من الدعاء لي بظهر الغيب