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

اتفضل اتمنى يكون المطلوب DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO qard_Finished ( id, site_ID, total, sadad_1, dat_1, SN, 7ala ) " & vbCrLf & _ "SELECT qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, ""تم السداد"" AS Expr1 " & vbCrLf & _ "FROM qard " & vbCrLf & _ "WHERE (([qard]![dat_1]=[qard]![total]));" DoCmd.RunSQL "DELETE qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, [qard]![dat_1] " & vbCrLf & _ "FROM qard " & vbCrLf & _ "WHERE ((([qard]![dat_1])=[qard]![total]));" DoCmd.SetWarnings True 0002.rar

وعليكم السلام تفضل اخي محمد 0002.rar

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

بيكون بهذا الشكل DoCmd.RunSQL "UPDATE tbl1 SET tbl1.days_of_month = NZ(days_of_month)+[Forms]![frm_main]![txt_days], tbl1.[money] = NZ(money)+[Forms]![frm_main]![txt_mony], tbl1.points = NZ(points)+[Forms]![frm_main]![txt_points].[value];" اضف اليه داله nz emp.accdb

بالتوفيق اخي

Try this file salim_tab.xls

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

السلام عليكم كما وعدتكم .......... البرنامج جاهز ,,, وهو حسب نظام المملكة الاردنية الهاشمية تستطيعون التعديل عليه بما يتناسب مع منطقتكم من حيث الاسماء والاضافات البرنامج مفتوح المصدر وهو من تصميمي للتواصل والاستفسار عبر الواتس اب 00962787787573 اتمنى لكم الفائدة برنامج المحامي 2019 - Copy.rar

تكبير الخط للفجوال بيزك والتحكم فى مكان الكتابة للبحث عن الاسم فورم بحث واضافة وتعديل وحذف سطر وطباعة ومسح بيانات وخروج الفيديو الصورة رابط الملف التحكم فى مكان الكتابة للبحث عن الاسم.rar

تصميم زهور باحرف فى البوربوينت بطريقة بسيطة

السلام عليكم واجهتني مشكلة عند محاول تنسيق النتائج الاحصائية فى الاكسيل ، و هى انه فى حالة درجات المعنوية المختلفة فى عدد كبير من الاحصائيات تظهر علامتي ** و * لتدل على مستوى المعنوية Significance Level و يكون هذا التنسيق غير ملفت بدرجة كبيرة فى الجداول الكبيرة. خاصة لاظهار الاختلاف بين الخلايا المميزة ب ** و تلك المميزة ب * واحدة. وفى حالة النتائج الكبيرة ـ، يكون من المرهق ابراز الخليا ذات مستوى المعنوية المختلف عن طريق التنسيق دفعة واحدة ، و ايضا الاكسيل يفهم الخلايا التي تحوي علامات * و ** على انها خلايا نصية و ليس ارقام ـ فلا يمكن اجراء حسابات عليها و للتغلب على هذه المشاكل قمت بعمل التالي هام: اولا يرجي قبل التجربة استخدام نسخة من الملف الخاص بك ليمكن العودة اليها حال حدوث مشكلة اثناء التجربة. اولا تغيير التنسيق دفعة واحدة لكل الخلايا التي تحوي مستوى معنوية معين ، و ذلك عن طريق استبدال الخلايا التي تحوي ** بتنسق مختلف ، و هذا يتم عن طريق استخدام الرمز ~*~* حيث ان علامة * بمفردها تعني كل الارقام و الحروف لذا يجب ان يسبقها علامة ّ لكي يتم التعامل معها كحرف و ليس ك حرف بدل Wild Character فتظهر الخلايا كالتالي و يلي ذلك استبدال تنسيق الخلايا التي تحول علامة * واحدة ، و هذا أصعب لانه سيشمل ايضا الخلايا التي بها نجمتان ** عند التنفيذ لذا يتم البدء اولا باستبدال ال ** باي حرف مثل a ثم تنفيذ التنسيق المطلوب أو اضافة حرف b لتمييزها ، فتصبح النتيجة كالتالي : و اذا اردنا اجراء عمليات حسابية على الخلايا فيجب حذف جميع الحروف a و b و الاكتفاء بالتنسيق لاجراء الحسابات ، و ايضا يفضل اخذ نسخة احتياطية من ورقة العمل قبل التنفيذ

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

يا رجال ، ولا يهمك 🙂 واعطني بعض الوقت علشان افهم مرفقك، واذا في اي اسئلة ، ان شاء الله اطرحها عليك 🙂 جعفر

وعليكم السلام 🙂 انزل المرفق من هنا: . وشوف المادة رقم 9 ، بأن لا تحذف الملف ، بل تضيف اليه ، والمادة 10 لإحتواء الاعمدة (اي كل عمود يكون له عرض البيانات اللي فيه) 🙂 والآن الى سؤالك: يمكنك عمل قالب وتخلي فيه الكود اللي تريده ، وتحفظ هذا الملف في نفس قاعدة بياناتك ، وتعمل منها نسخة ، وتصدر بياناتك الى هذه النسخة ، والمثال اعلاه بيفيدك 🙂 جعفر

بارك الله فيك استاذى الكبير

وعليكم السلام ورحمه الله وبركاته بالتوفيق اخي محمد التميمي

ممتاز 🙂 هنا خطأ في اخذ القيم لسبب ما ، لذلك يجب ان نعرف اي من الحقول لم تأتي بالقيمة الصحيحة ، وانا اشك في تنسيق التاريخ الذي يظهر في النموذج، لهذا السبب محتاجين معلومات اضافية لإصطياد الخطأ 🙂 الآن رجاء عمل هذا الكود : Debug.Print "Off " & ctrl.Name & vbTab & "D:" & D & vbTab & "Full:" & Full_Date & vbTab & "A:" & A Debug.Print "ON " & ctrl.Name & vbTab & "D:" & D & vbTab & "Full:" & Full_Date & vbTab & "A:" & A حسب مكان الصور: . وارفق نتيجتك لوسمحت ، والتي ستكون غير عن نتيجتي، . جعفر

السلام عليكم ورحمة الله وبركاته كثيرا منا يحتاج الى عرض الصور فى مجلد محدد عن طريق الاكسس بحث عن طرق عدة وكل الطرق كانت مثل الصورة التالية والتى كانت لا تروقنى فقلت ارخم عليكم واعمل انا طريقة تانية لانى دى احد عيوبها نى لو عندى الف صورة هفضل اعمل اسكرول لحد ما اصل الى الف سجل وهو عدد المسارات الخاصة بالصور فقلت اعمل طريقة خاصة بينا احنا اوفيسنا مش عارف موجودة ولا لا اهو بالبركة وزيادة الخير خيرين زى طريقة عرض الصور فى الويندوز الية العمل كلها تكمن فى مصدر عنصر تحكم كل كائن من كائنات الصور -------------- بعد الضغط على زر تحديد المجلد ثم الضغط عزر الذهاب الى المجلد سيقوم البرنامج تلقائيا بجلب جميع مسارات الصور داخل البرنامج مع اعطاء كل مسار رقم وعن طريق هذا الرقم ساقوم باستدعاء كل صورة حيث عن المعادلة ( رقم السجل * 8 - 7 ) = 1 ( رقم السجل * 8 - 6 ) = 2 ( رقم السجل * 8 - 5 ) = 3 ةهكذا حيث رقم السجل هو الترقيم التلقائى لكل سجل الذى يعطيه البرنامج تلقائيا عند جلب المسارات فيديو للشرح المرفق Gallary.rar

السلام عليكم اخي ريباز 🙂 مادام عملت هذه البيانات في قاعدة البيانات ، فرجاء ارفاقها ، بدل ان اُدخل البيانات 🙂 الذي كنت اريده منك في ملف اكسل كالتالي: 1. صحيح انا كتبت : ولكني في الواقع لا افهمها !! 2. لذلك ، ومن البيانات اللي بترفقها ، رجاء اعمل توزيع للملاحظين يدوي لقاعتين فقط ، حتى اعرف الطريقة الصحيحة ، وهو سيكون مثال احتذي به 🙂 جعفر

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

بعد اذن اخي kanory بيكون بهذا الشكل DoCmd.RunSQL "UPDATE tbl1 SET tbl1.days_of_month = days_of_month+[Forms]![frm_main]![txt_days], tbl1.[money] = money+[Forms]![frm_main]![txt_mony], tbl1.points = points+[Forms]![frm_main]![txt_points].[value];"

اتفضل انسخ هذا الى سكويل SELECT DISTINCTROW qard.site_ID, site.site, Sum(qard.total) AS [Sum من total], Sum(qard.sadad_1) AS [Sum من sadad_1], [Sum من total]-[Sum من sadad_1] AS Expr1, Count([qard]![sadad_1]) AS Expr2, [Expr2]-1 AS Expr3, IIf([Sum من total]=[Sum من sadad_1],'تم السداد',IIf([Sum من total]>[Sum من sadad_1],'لم يسدد',IIf([Sum من sadad_1]>[Sum من total],'دائن'))) AS الحالة FROM (qard_1 INNER JOIN site ON qard_1.site_ID = site.site_ID) INNER JOIN qard ON site.site_ID = qard.site_ID GROUP BY qard.site_ID, site.site;

السلام عليكم ورحمة الله حل أول بالدالة SUMPRODUCT في الملف المرفق... بن علية حاجي عدد الذكور والاناث حسب الفئة.rar

اشكرك استاذ سليم

جزاك الله كل خير موضوعات مهمة وشيقة

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

تمام شكرا جزيلا استاذ سليم وشكرا استاذ على جزاؤكم الله كل خير

الاخ صالح شكرا لكلاماتك احنا على قد حالنا فكرة جديدة انتظر الدرس القادم الخاص بالاشكال

الف شكر لسه بجهز بطريقة الاشكال الهندسية

فعلا اخي الغالي انا استخدم 2007 سوف اقوم بتجربته غداً بعون الله على اصدار 2016 جزاك الله خيراً

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

السلام عليكم اخي خلف 🙂 ارفق مثالك ، وفيه الاستعلام الجدولي والتقرير ، وان شاء الله نساعدك في انهائه ، اذا اردت اخذ هذا الطريق !! وإلا ، وضح سؤالك اكثر ، وبمثال لوسمجت 🙂 جعفر

تفضل VLookUP.xlsm

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

الأخ الكريم سؤالك غير منطقى وغير مفهوم انت تقول ... ((( على سبيل المثال البحث عن تاريخ 5/2/2018 هو تاريخ محصور بين تاريخين فى شيت الاكسل هما من 1/2/2018 : 28/2/2018 وفى المقابل يقوم بعرض البيانات المقابله له فى التكست بوكس المقابله له . على الرغم ان تاريخ 5/2/2018 غير مدرج فى شيت الاكسل ولاكن هو فترة زمنيه محصورة بين تاريخين معينين . ))) فكيف للاكسل ان يجد هذا التاريخ !!!! ؟ وكيف يكون له بيانات وهو غير مدرج !!!! ؟

السلام عليكم 🙂 اخي ريباز ، صار لي فترة انظر في موضوعك بدون ان اوصل الى شيء 😞 لو تسمح ، تُدخل بيانات كاملة لفئة معينة من المدرسين ، في القاعات المسموحة ، والقاعات الغير مسوح لهم ، ثم من هذه البيانات ، اعمل النتائج على صفحة اكسل ، ارفقها ، حتى نحاول تقليدها برمجيا 🙂 جعفر

وعليكم السلام بارك الله فيك استاذ عبدالللطيف

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

بارك الله فيك وفى صاحب هذا العمل الجميل

بارك الله فيك وفي علمك وجزاك الله خيرا والشكر موصول للاستاذ صاحب البرنامج جزاه الله خيرا

المثال الأول يقوم بعمل الحماية Sub Pr1() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub ثم فكها اذا كتبنا كلمة السر و هي 123 Sub Pr2() x = InputBox("please enter PAssword '123'", "Password", 123) If x <> 123 Then MsgBox "Sorry !!! " Exit Sub End If ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False End Sub UnprotectSheet.rar

ولااروع سهولة في التطبيق .. سرعه في التنفيذ كود استدعاء للمبدع ياسر العربي Sub ALL() ''هذا الكود للعبقري ياسر العربي حفظه الله '' تم هذا الكود بتاريخ 8 / 10/ 2016 ''الهدف من الكود هو استدعاء البيانات ''شرح الكود ''متغيرات Dim myArray, lr, X, targt, targt1, targt2, targtN Dim SERCH As Worksheet, _ DATA As Worksheet '____________________________________________ 'اسم شيت قاعدة البيانات Set DATA = Worksheets("رصد الترم الثانى") 'اسم الشيت الخاص بالبحث Set SERCH = Worksheets("كشوف الطلبه") '____________________________________________ 'المدى الذي سيتم مسحه في صفحه الهدف Range("D10:AB1000").Clear 'المدى الذي سيتم نسخه لعدد محدد بخليه محدده Range("C9:AB9").AutoFill _ Destination:=Range("C9:AB" & _ Range("B4").Value + 8), Type:=xlFillDefault 'اخر صف به بيانات lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row + 2 'مدى صفحة الهدف وهو يبدأ بعد عمود المسلسل 'والرقم الموجود هو رقم عمود البدايه ' 'مسح نطاق البحث القديم SERCH.Range("D9:AB" & SERCH.Cells(Rows.Count, 4) _ .End(xlUp).Row + 1).ClearContents 'معيارين البحث ' targt2 = targt targt = "له* دور ثان في" targt2 = "ناجح" 'نطاق قاعدةالبيانات ' صفحة المصدرالذي سيتم البحث فيه myArray = DATA.Range("A7:FF" & lr) '____________________________________________ ReDim Y(1 To UBound(myArray, 1), 1 To _ UBound(myArray, 2)) For X = LBound(myArray) To _ UBound(myArray) If targt = "" Then Exit Sub 'هنا التعديل للمعيارين If myArray(X, 101) Like targt & "*" _ Or myArray(X, 101) Like targt2 & _ "*" Then rw = rw + 1 'متغير ارقام 'الاعمده المطلوب الاستدعاء منها 'العمود التاني بعد المسلسل Y(rw, 1) = myArray(X, 2) 'العمود الثالث بعد المسلسل Y(rw, 2) = myArray(X, 3) 'العمود الرابع بعد المسلسل Y(rw, 3) = myArray(X, 13) 'العمود الخامس بعد المسلسل Y(rw, 4) = myArray(X, 22) 'العمود السادس بعد المسلسل وهكذا Y(rw, 5) = myArray(X, 31) Y(rw, 6) = myArray(X, 40) Y(rw, 7) = myArray(X, 51) Y(rw, 8) = myArray(X, 52) Y(rw, 9) = myArray(X, 82) Y(rw, 10) = myArray(X, 101) Y(rw, 11) = myArray(X, 102) ' Y(rw, 12) = myArray(X, 110) ' Y(rw, 13) = myArray(X, 111) End If Next X If rw > 0 Then SERCH.Cells(Rows.Count, 4).End(xlUp)(2, 1).Resize(rw, 13).Value = Y() End Sub الاستدعاء بطريقه ( خليفه عبد الله باقشير ) الاستاذ ياسر.rar

المثال الثاني مثل السابق مع الحماية باستخدام كلمة سر و هي 1234 لأن الحالة السابقة يمكن فك الحماية من القوائم مباشرة Sub Pr1() ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub Sub Pr2() x = InputBox("please enter PAssword '1234'", "Password", 123) If x <> 1234 Then MsgBox "Sorry You are not Allowed !!! " Exit Sub End If ActiveSheet.Protect Password:=1234, DrawingObjects:=False, Contents:=False, Scenarios:=False End Sub UnprotectSheetPass.xls