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

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

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

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

فكر انك في اي منتدى الان ولا تفكر في اي منتدى اخر ! اتفضل اليك هذا الاستعلام مادام انك تريد فقط للاسماء اللي في بدايته عبدال..... UPDATE Table1 SET Table1.myname = Replace([myname],"عبدال","عبد ال"); غير Table1 باسم جدولك وغير myname باسم حقل الاسماءك في الجدول

السلام عليكم ورحمة الله إذا كنت تقصد أنه لو كانت 7% من قيمة الخلية A أكبر من 130 فإن القيمة في الخلية B تكون 130، وإذا كانت قيمة النسبة أصغر من 65 تكون قيمة الخلية B هي 65، وإذا كانت القيمة غير ذلك (محصورة بين 65 و 130) فتؤخذ النسبة كما هي فإن المعادلة التالية في B1 (ثم تسحب للأسفل) تفي بالغرض: =IF(ROUNDDOWN((A1*7%);2)>130;130;IF(ROUNDDOWN((A1*7%);2)<65;65;ROUNDDOWN((A1*7%);2))) بن علية حاجي

السلام عليكم ورحمة الله هذا تعديل على كود أخي العزيز أبو البراء لعله يفي بالغرض المطلوب... Sub pallshehadat() Dim x As Long Application.ScreenUpdating = False ActiveSheet.PageSetup.Zoom = 80 ActiveSheet.PageSetup.PrintArea = "$B$8:$H$35" Range("C2").Select ActiveCell.Value = 0 On Error Resume Next Do ActiveCell.Value = ActiveCell.Value + 1 x = Application.Match(Range("C2"), Sheets("يناير").Range("A:A"), 0) If Sheets("يناير").Cells(x, "AT").Value <> 1 Then ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value = Range("C3").Value Range("C13").Select Application.ScreenUpdating = True End Sub بن علية حاجي

تم مع الشكر والتقدير

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

أوك هذا أفضل كمان شكلها هتكون فانكشن موحدة تعمل مع نموذج trans_top في حالة الاضافة والصرف للمنتج الرئيسي حيث يقوم باحضار السعر من جدول المنتجات product ويضرب السعر في الكمية لينتج القيمة zvalue واذا كان مكونات منتج فلا يعمل شيئ عند الاضافة أو الصرف وننتظر حتي ادخال المستخدم للقيمة زد فاليو في جدول frm_evaluation حيث يتم حساب رصيد بعد الحركة + حساب متوسط السعر للمكون + مجموع متوسطات اسعار المنتج الرئيسي + تسجيل السعر في جدول المنتج الرئيسي هذا ما فهمته وربما هنا لا يوجد حساب لرصيد ما بعد الحركة للمنتج الرئيسي لكن سنؤجل هذه النقطة للأتأكد أن فهمي صحيح حتى أستمر

وعليكم السلام أخي الكريم أبو حمادة ارفق ملف ليعمل عليه الأخوة الكرام حيث الموضوع مع إرفاق ملف يكون أجدر بسرعة الاستجابة

!!

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

اخي ريباز لا يعطيني هذه الرسالة تأكد من المرفق شوف هذه الفيديو لفتح الاستعلام Video_2017-06-15_045258.rar

عند (run) او تشغيل استعلام يعطي هذا الرسالة

الان ماذا تريد ما يعطيني اي رسالة وهذه صورة للاستعلام ممكن توضيح

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

نعم عند وجود كلمة سر للمحرر الفيجوال لا يتم الحذف اي كائن من الكائنات اللي عليها كود اي مثلا عدنا تقريرين و واحد من التقارير مثلا عند فتح بها كود في محرر فيجوال مثلا كود maximize ما يحذف هذا التقرير والاخر ما بها اي اكواد داخل محرر فيجوال سيحذفه اي ما يحذف اي من وحدات نمطية و النماذج اللي عندها كود في محرر فيجوال والتقارير ايضا وسيحذف جميع الجداول والاستعلامات و ماكروات و سيحذف جميع نماذج اللي ما بها اي كود و التقارير لكن في حالة عدم وجود رقم سري على محرر فيجوال سيتم حذف جميع كائنات عدى هذا الفورم اللي بيعمل عليها حذف جميع الكائنات واليك قاعدة بيانات للتجربة 212.rar

تحياتي لك اخي يفرحني جدا مساعدتك لي والله اولا : الذي فهمته اني احتاج الى تنصيب الاس كيو ال سيرفر على الجهاز الرئيسي فقط ولا يوجد ما يدعي الى تصطيبه في باقي الاجهزه ؟ ثانيا : الرقم الفريد لا علي لي به ولكن سإتابع الشرح من استاذ @ابو محمد2 وانشاء الله سأتواصل معك بين الحين والاخر (اتمنى ماراح تضوج من كثرة استفساراتي حضرتك وباقي الاساتذه )المهم ثالثا : في حال اني شرعت بالعمل على البرنامج وقمت بادخال البيانات قبل تكبير الحجم , هل يمكنني عمل تكبير حجم قاعدة البيانات بدون تأثير على البيانات الموجوده ؟ هل سيتغير نظام العمل ام سأبقى على نفس قاعدة بياناتي التي صممتها والنماذج والتقارير نفسها من دون تغيير ؟ تحياتي لك اخي الفاضل اخوك

السلام عليكم ورحمة الله وبركاته ابوخليل نطمع بعلمك والله .. الله يحفظك تحياتي لك اسف اذا ازعجتك لكن بعد البحث عن الموضوع هذا وجدت مشاركتك الرائعه هذه ! :سؤالي هل حجم الصور هنا لا يدخل ضمن حجم قاعدة البيانات ؟ احترامي وتقديري لك استاذي

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

عزيزنا عمرو مع ني لم افهم المطلوب تمام وما المقصود بكيف تشغيل الكود وهناك باسس وورد على الوحدة النمطية ولكن اشارك هنا بحل مشكلة تعريف المتغبر db . جرب dim db as dao.database تحياتي

الدرس التاسع: دوال الرياضيات السلام عليكم. نعود بعد مدة من الإنقطاع لنكمل ما بدأناه من هذه الدروس. هذا الدرس مخصص لشرح دوال الرياضيات: Abs: تستخدم هذه الدالة من أجل استخراج القيمة المطلقة لعدد. Abs(«رقم») Abs(-10)=10 Abs(10)=10 Cos: تستخدم هذه الدالة لاستخراج جيب تمام الزاوية. Cos(«الزاوية») pi = 3.14159265358979 Cos(pi/3)=0.5 ملاحظة: قيس الزاوية يكون بالراديان 3.14159265358979 rad = 180° Sin: تستخدم هذه الدالة لاستخراج جيب الزاوية. Sin(«الزاوية») pi = 3.14159265358979 Sin(pi/6)=0.5 Tan: تستخدم هذه الدالة لاستخراج ظل الزاوية. Tan(«الزاوية») pi = 3.14159265358979 Tan(pi/4)=1 Exp: تستخدم هذه الدالة لارجاع عدد مزدوج يحدد قيمة أساس اللوغاريتم الطبيعي مرفوع لقيمة معينة. Exp(«رقم») Exp(10)=22026.4657948067 Int: تستخدم هذه الدالة لاستخراج الجزء الصحيح من عدد. Int(«رقم») Int(4.51) =4 Sqr: تستخدم هذه الدالة لحساب الجذر التربيعي لعدد. Sqr(«رقم») Sqr(16)=4 Log: تستخدم هذه الدالة لحساب اللوغاريتم الطبيعي لعدد. Log(«رقم») Log(10)=2.30258509299405 Rnd: تستخدم هذه الدالة لتوليد رقم عشوائي من نوع مفرد. Rnd(«رقم») Rnd(2)=0.7671117 Rnd(2)=0.05350453 Round: تستخدم هذه الدالة لتقريب عدد عشري إلى عدد محدد من الفواصل العشرية. Round(«الدقة», «الرقم») Round(12.364,1)=12.4 Round(12.364,2)=12.36 Sgn: تستخدم هذه الدالة لإرجاع عدد صحيح يشير إلى رقم العدد. بحيث: يعيد 1 إذا كان العدد أكبر من الصفر (0) يعيد 0 إذا كان العدد يساوي الصفر (0) يعيد -1 إذا كان العدد أصغر من الصفر (0) Sgn(«رقم») Sgn(12)=1 Sgn(0)=0 Sgn(-3)=-1 Fix: تستخدم هذه الدالة لإرجاع الجزء الصحيح لعدد. Fix(«رقم») Fix(12.56)=12

السلام عليكم اخي / ناصر سعيد جزاك الله خيراً علي هذا المرور الطيب بعباراته الرائعة كل عام وانتم بخير استاذي الحبيب / ابو البراء والله تعجز الكلمات عن شكرك علي تشحيع حضرتك الدائم اطال الله لنا في عمرك وزادك علما ورفعه كل عام وانتم بخير

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

الفكرة في البحث عن الاسم في ورقة العمل "يناير" في العمود الثاني ثم بالاعتماد على رقم الصف يتم اختبار العمود AT فإذا كان لا يساوي القيمة 1 يتم عمل الكود والطباعة .. وجزيت خيراً بمثل ما دعوت لي وكل عام وأنت بخير

بسم الله ما شاء الله دائماً ما تتحفنا بأشياء وموضوعات رائعة .. والله إنها لكنوز بارك الله فيك أخي الغالي خالد الرشيدي وجزيت خير الجزاء في الدنيا والآخرة وكل عام وأنت بخير

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

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

أخى وحبيبى فى الله // ابو البراء بداية جزاكم الله خيرا وبارك فيكم وتقبل الله منكم صالح الاعمال الخالصة لوجهه الكريم وبارك لكم فى نجلكم البراء " اللى انت مش قده واللا تقدر تكح ههههههههه " أدرك ان إنشاء كود من بدايته أهون عليك بكثير من تعديل أكواد سابقة تمت على اكمل وجه تم دمج الكودين معا بهذا الشكل Sub Test1() Dim arrData, arrSheet, i As Long, j As Long, r As Long, rngHeader As Range ReDim arrSheet(1 To Worksheets.Count, 1 To 2) With Sheets("Data") Set rngHeader = Intersect(.Rows("1:7"), .Columns("A:L")) For i = 1 To Worksheets.Count arrSheet(i, 1) = Worksheets(i).Name 'Set sheet's name Set arrSheet(i, 2) = rngHeader 'Set header Next i arrData = .Range("A1:L" & .Cells(.Rows.Count, "A").End(xlUp).Row) For i = 6 To UBound(arrData, 1) For j = 1 To UBound(arrSheet, 1) If arrSheet(j, 1) = arrData(i, 12) Then Set arrSheet(j, 2) = Union(arrSheet(j, 2), Intersect(.Rows(i), Columns("A:L"))) 'For matched item, union this row with previous value Exit For End If Next j Next i For i = 1 To UBound(arrSheet, 1) If arrSheet(i, 2).Address <> rngHeader.Address Then arrSheet(i, 2).Copy Worksheets(arrSheet(i, 1)).Range("A1") 'Copy to corresponding sheet End If Next i End With For i = 2 To 11 With Worksheets(i) r = .Range("A7").CurrentRegion.Rows.Count + 5 .Range("A7").CurrentRegion.Offset(2).Sort Key1:=.Range("F8:F" & r), Order1:=xlAscending, Header:=xlNo End With Next i End Sub ولكنه أصبح مترنحا بين عمله بشكل جيد تاره وتارة أخرى رسالة Debag بهذا السطر من الكود Set arrSheet(j, 2) = Union(arrSheet(j, 2), Intersect(.Rows(i), Columns("A:L"))) فهل من سبيل لمعالجه برمجية بذات الكود أخى الحبيب على اعتبار انه ينقل البيانات الى ما لا نهاية من الاوراق وبالتالى تصبح عملية الابجدة الا ما لا نهاية من الاوراق تلقائيا بدلا من تحديدها باوراق محددة بكود منفصل أننى على يقين تام بالله اولا ثم بك بأنك لاتبخل طالما أنه فى استطاعتك تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

وعليكم السلام ورحمته الله وبركاته أخى وحبيبى فى الله // بن عليه حاجى تقبل الله منا ومنكم صالح الاعمال وبارك فيكم وأعطاكم الله الصحة والعافية اليكم اساتذتى الآجلاء التوضيح الكود المبين بالمرفق التالى لنقل البيانات من الورقةdata الى مالا نهاية من الاوراق بالمصنف إستنادا على العمود L باستخدام المصفوفات وهو للأمانه منقول من أحد الموضوعات المميزة لأخى وحبيبى فى الله ياسر خليل ابوالبراء بارك الله فيه وبارك فيكم جميعا المطلوب بحول الله تعالى إضافة على ذات الكود لسرعته الفائقة مع البيانات الكثيرة التى تتعدى الخمسون الفا من الصفوف ليشمل ترتيب الاسماء أبجديا بالعمود F من الورقة data لجميع أوراق العمل حسب المقتضيات استنادا على العمود L تقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا Transfer data Based On Column.xlsb.rar

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

السلام عليكم تفضل أخي هذا هو الكود Dim str_code As String Dim name_frm As String Dim frm As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each frm In dbs.AllForms name_frm = frm.Name DoCmd.OpenForm name_frm, acDesign str_code = "Private Sub Form_Load()" & vbCrLf & _ "call Color_V(me)" & vbCrLf & _ "end sub" Forms(name_frm).Module.AddFromString str_code DoCmd.Close acForm, name_frm, acSaveYes Next

عزيزي هذا الكود للمطلوب وعند النقر المزدوج على عنصر البحث Private Sub txt_Search_DblClick(Cancel As Integer) DoCmd.OpenReport "report", acViewPreview, , Me.Filter End Sub ولكن اسمحولي براي هنا ادارة المنتدى تسعى جاهدة لتقليل المواضع المكرره خصوصا في فترات متقاربة . هنا العتب اكثر على الاساتذة حيث هم اولى بالاشارة الى الموضوع وخصوصا لو اصبح في فتره متقاربة جدا فهنا نفس الموضوع بالتمام تحياتي

بعد اذن الاستاذ الجليل والمعلم الفاضل والاخ الحبيب @يوسف أحمد المرفق بعد التعديل على دالة فرق الايام اما المطلب التانى للاسف لان حضرتك بتتعامل شكلا مع التاريخ الهجرى اما مضمونا البرنامج يعتبره تاريخ ميلادى وقطعا فى عام 1433 ميلاديا فان شهر فبراير كان 28 يوم وليس 29 يوم لذلك يحدث هذا الخطأ معك _برنامج التأهيل 1438 - نسخة.rar وحتى تتأكد من صحة كلامى فى العام 2016 كان شهر فبراير 29 يوم جرب ادخال التاريخ الاتى 29/02/2016 بهذا الشكل قاعدة البيانات تقبل منك هذا التاريخ اما فى العام الحالى 2017 فان شهر فبراير 28 يوم فقط ولذلك لو جربت ادخال التاريخ 29/02/2016 فلن تقبل قاعدة البيانات بهذا الشكل فى هذا العام

rrrrrr.rar

الفرق بين ByVal و ByRef Byval يقصد بها الاستدعاء بالقيمة ByRef يقصد بها الاستدعاء بالمرجع الكود التالي سيوضح الفكرة أكثر لنفرض لدينا عددين و نريد تطبيق كود معين او معادلة ما على هذين العددين 'نضع هذا الكود خلف زر امر في نموذج dim x as intger dim y as intger dim i as intger x=10 y=5 'استدعاء كود الجمع بالقيمة و اظهار الناتج i=add1(x,y) msgbox i msgbox x 'استدعاء كود الجمع بالمرجع و اظهار الناتج i=add2(x,y) msgbox i msgbox x 'كود الجمع باستخدام Byval private function add1(byval n1, byval n2) as intger add1=n1+n2 n1=3 end function 'كود الجمع باستخدام ByRef private function add2(byref n1, byref n2) as intger add2=n1+n2 n1=3 end function الشرح في المثال انشئت وظيفة بسيطة لجمع عددين هما X Y عرفت متغيرين و وضعت قيم فيها وهي (x=10) و (y=5) الوظيفة Add1 انشئت وظيفة اسمها Add1 تستقبل عددين هما n1 و n2 ( بالقيمة ) Byval تقوم الوظيفة بجمع العددين و ارجاع الناتج ( و هنا الناتج 15 ) من خلال هذا السطر add1=n1+n2 ثم غيرت قيمة العدد الاول من 10 الى 3 من خلال هذا الكود n1=3 هذا يعني ان x يجب ان تصبح قيمتها 3 ولكن ستجد ان قيمة X مازالت 10 !!!!!!!!!!!!!!!! ( لاحظ انه بعد تعديل قيمة X من الوظيفة وضعت رسالة لتعطي قيمة x ) الوظيفة Add2 الوظيفة Add2 في نفس الوظيفة Add1 لكن الفرق ان الوظيفة Add2 تستقبل القيم n1 و n2 ( بالمرجع ) ByRef تقوم الوظيفة بجمع العددين و ارجاع الناتج ثم غيرت قيمة العدد الاول من 10 الى 3 ولكن هنا ستجد ان قيمة X اصبحت 3 !!!!!!!!!!!!!!!! السبب ان Byval تحافظ على القيمة الاصلية للمتغير المرسل لها اما Byref فهي تغير القيم للمتغير المرسل لها ارجو ان اكون قد وفقت في الشرح

أليك أخي العزيز كل ماطلبت Copy of Copy of wallled1.rar

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

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

أخي العزيز (asdwasd) معلش الطلبات كثيرة ومحتاجة وقت ولكن أستطعت بما تيسر لي من وقت أن أنهي الجزء الأكبر وهو ترحيل الراسب والناجح في شيتات منفصلة عن طريق المعادلات لأن الأكواد لوبحثت سوف تجد منها الكثير وجميعها لأساتذة عظام يصعب علي عمل أفضل منها أليك المرفق وأنا تحت أمرك في أي شئ أخر 2 wallled.rar