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

وعليكم السلام انا لا احبذ استخدام القناع ، فهو يربطك اخي شفان اعطاك طريقة ، واليك طريقة اخرى ، من اعدادات الحقل: validation rule: Between 100000000000 And 299999999999 validation text: يجب ان يبدأ الرقم بالرقم 1 او 2 ، ويكون طوله 12 خانه . . . جعفر

اتفضل فرضنا عندك حقل باسم RaqamQawmi قبل تحديث اكتب هذا الكود Private Sub RaqamQawmi_BeforeUpdate(Cancel As Integer) If Left(Me.RaqamQawmi, 1) <> 1 And Left(Me.RaqamQawmi, 1) <> 2 Then MsgBox "الرقم الذي ادخلته غير صحيح رجاءاًادخل رقم الصحيح" Cancel = True ElseIf Len(Me.RaqamQawmi & "") <> 12 Then MsgBox "ادخل الرقم الوطني المكون من 12 رقم" Cancel = True End If End Sub

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

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

فورم بحث في تفسير القرآن الكريم والقران الملف 3 صفحات انظر الصور الفيديو الملف بحث في تفسير القرآن الكريم.rar

تفضل 746.1.Database19.accdb.zip

السلام عليكم من الخطأ العمل على جدولين ، في الوقت الذي يمكن دمجهم في جدول واحد ، وإضافة حقل جديد لفترة الموظف ، فهذه هي طريقة قواعد البيانات: الجدول الجديد: . والنموذج اصبح واحدا: . جعفر 748.Database11.accdb.zip

تفضل وما عليك الا ان تُدخل اسماء الصفوف في الجدول الجديد tbl_Class_Name ، وتفتح التقرير من النموذج جعفر 745.db1.mdb.zip

السلام عليكم نعم يوجد حل ، ولكن بتغيير نوع النموذج من مستمر الى نموذج بيانات لاحظ المرفق ، لما تنتقل بين السجلات لا يوجد اهتزاز طبعا انا لم اعمل اي تعديل على البرنامج حتى يعمل بطريقته السابقة ، وانما المرفق هو فقط لإثبات عدم حصول الاهتزاز جعفر اهتزاز.zip

وعليكم السلام الجواب نعم في النموذج frm_Main عندك حقل الحصه اسمه Subject ، في التقرير ، في قسم رأس التقرير عنك حقل rpt_Subject وتريد ان ينكتب اسم الحصة اللي في النموذج ، في مصدر الحقل ، اشر الى مكان الحقل الذي به المعلومة ، هكذا: =Forms!frm_Main!Subject جعفر

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

عندي قاعدة بيانات أجريت لها عملية تقسيم فوضعت الجداول على القرص D ومشت الأمور على خير ثم اضطررت أن أغير مكان قاعدة الجداول ووضعتها على القرص C ودخلت إلى القاعدة المرتبطة - إدارة الجداول المرتبطة وقمت بإعادة الأرتباط وأعطاني البرنامج رسالة بنجاح الارتباط ثم أغلقت القاعدة وشغلتها مرة أخرى فظهرت لي رسالة تقول : (( مرجع كائن قاعدة البيانات غير صحيح )) فما الحل ............... ولكم جزيل الشكر

السلام عليكم هل هذا هو طلبك؟ date.rar

وعليكم السلام اخوي علي وشكرا على الرد المفصّل الواضح ، و بأمثلة هذا الكود هو العقل المدبر للوحدة كلها ، فلا تستهين فيه . ولتعديل المطلوب ، تم اضافة سطرين كود في نهاية الوحدة النمطية: Option Compare Database Option Explicit Function Working_Dates(From_D, To_Period, Excl_D) 'From_D = Start Date (i.e. 32/11/2017) 'To_Period = Number of Days to Count 'Excl_D = Excluded days, like weekends (in our case Friday and Saturday) ' '1 = Sunday '2 = Monday '3 = Tuesday '4 = Wednesday '5 = Thursday '6 = Friday '7 = Saturday ' ' to call this Function: 'Working_Dates(#23/11/2017#, 3, "67") 'or 'Working_Dates(Me.dateToday, Me.long, "67") ' Dim ToDate As Date Dim i As Date 'ما هو اليوم الاخير ، بدون استقطاع الاجازة ToDate = DateAdd("d", To_Period, From_D) 'ابدا الحساب من اول يوم الى اليوم الاخير For i = From_D To ToDate 'اذا كان هذا اليوم من ايام الاجازة If InStr(1, Excl_D, Weekday(i)) > 0 Then 'اضف يوم الى اليوم الاخير ToDate = ToDate + 1 End If Next i 'اذا كان اليوم الاخير يقع في اجازة (الاجازة يومين) If InStr(1, Excl_D, Weekday(ToDate)) > 0 Then: ToDate = ToDate + 1 If InStr(1, Excl_D, Weekday(ToDate)) > 0 Then: ToDate = ToDate + 1 'ارسل اليوم الاخير الى النموذج Working_Dates = ToDate End Function . جعفر 742.Working_Days.accdb.zip

بد اذن اخي ابو حنين ربما كان المطلوب Aziz_salim.rar

السلام عليكم أخي اسلام هذا الموضوع من سنة 2012 ، ومشاركي الموضوع قد لا يكونوا متواجدين في المنتدى الان ، لذا رجاء عمل موضوع جديد لسؤالك. جعفر

السلام عليكم اخي ابو عبدالله ، واخي عمر هذا الموضوع من سنة 2003-2004 ، ومشاركي الموضوع قد لا يكونوا متواجدين في المنتدى الان ، فرجاء كتابة موضوع جديد لسؤالكم. جعفر

السلام عليكم بن علية تظليل الصف بالكامل بناء علي قيمة خلية.rar

وعليكم السلام ولو ان هذه الطريقة لا تُعتبر الافضل ولا الاسرع ، ولكنها جيدة نظرا للأيام القليلة التي تتعامل معاها هذه الوحدة النمطية التي تقوم بالعمل: Option Compare Database Option Explicit Function Working_Dates(From_D, To_Period, Excl_D) 'From_D = Start Date (i.e. 32/11/2017) 'To_Period = Number of Days to Count 'Excl_D = Excluded days, like weekends (in our case Friday and Saturday) ' '1 = Sunday '2 = Monday '3 = Tuesday '4 = Wednesday '5 = Thursday '6 = Friday '7 = Saturday ' ' to call this Function: 'Working_Dates(#23/11/2017#, 3, "67") 'or 'Working_Dates(Me.dateToday, Me.long, "67") ' Dim ToDate As Date Dim i As Date 'ما هو اليوم الاخير ، بدون استقطاع الاجازة ToDate = DateAdd("d", To_Period, From_D) 'ابدا الحساب من اول يوم الى اليوم الاخير For i = From_D To ToDate 'اذا كان هذا اليوم من ايام الاجازة If InStr(1, Excl_D, Weekday(i)) > 0 Then 'اضف يوم الى اليوم الاخير ToDate = ToDate + 1 End If Next i 'ارسل اليوم الاخير الى النموذج Working_Dates = ToDate End Function . ونناديها من النموذج ، من حدث "بعد تحديث التاريخ" مثلا ، هكذا: Private Sub dateToday_AfterUpdate() 'Me.Text537.Value = Me.dateToday + Me.long 'Me.Text537.Requery '1 = Sunday '2 = Monday '3 = Tuesday '4 = Wednesday '5 = Thursday '6 = Friday '7 = Saturday Me.DateOfFinish = Working_Dates(Me.dateToday, Me.long, "67") End Sub جعفر 742.Working_Days.accdb.zip

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

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

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

شكرا للاستاذ شيفان على ما يقدمه من جهد ووقت وفائدة وشكرا لاخونا السالم على حسن خلقه وعلى وصبره تم تنقيح الموضوع وحذف المشاركات الزائدة تفضل اخونا هذه محاولة جعلت عملياتك وحسب فهمي في وحدة نمطية عامة Public Function wrWagt(time1 As Date, time2 As Date, rateb As Double, fram1 As Byte) Dim wrHour1, wrHour2, wrHour3, wrHour4 As Integer Dim tawed1, tawed2, tawed3, tawed4 As Double If time2 <= "21:00" Then wrHour1 = DateDiff("h", time1, time2) tawed1 = 0.01 ElseIf time2 > "21:00" And time2 <= "23:00" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", time2) tawed1 = 0.02 ElseIf time2 > "23:00" And time2 <= "23:59" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", "23:00") tawed2 = 0.02 wrHour3 = DateDiff("h", "23:01", time2) tawed3 = 0.01 ElseIf time2 > "00:01" And time2 <= "12:00" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", "23:00") tawed2 = 0.02 wrHour3 = DateDiff("h", "23:01", "23:59") tawed3 = 0.01 wrHour4 = DateDiff("h", "00:01", time2) tawed3 = 0.01 End If If fram1 = 1 Then wrWagt = rateb * tawed1 * wrHour1 + rateb * tawed2 * wrHour2 + rateb * tawed3 * wrHour3 + rateb * tawed4 * wrHour4 Else wrWagt = rateb * 0.05 * wrHour1 + rateb * 0.05 * wrHour2 + rateb * 0.05 * wrHour3 + rateb * tawed4 * 0.05 End If End Function التعويض عن العمل الإضافي2.rar

السلام عليكم ورحمة الله وبركاته هذه اول تجربة اقوم بها لاستحداث دوال جديدة ولا اعلم ان كان هناك من قام بعملها في السابق او ان كانت موجودة اصلا فان بالاساس لا اقوم باستخدام الدوال ولا احب استخدامها وعلى اي حال هنا اربع دوال متعلقة بالبحث "VLOOKUP" وعلى اربعة اشكال كالتالي : ---------------------------------------------- دالة البحث العكسية "VLOOKUPREVE" بحيث ان الدالة الرئيسية تقوم بالقراءة من اليمين لليسار اما هذه الدالة فتقوم بالقراءة بالعكس من اليسار لليمين الشرح المفصل مع الامثلة لهذه الدالة في المرفق vlookuprev.rar ---------------------------------------------- دالة البحث ذات المعيارين"VLOOKUPTOW" وهي دالة تقوم باستخدام معييارين لجلب البيانات وليس معيار واحد كما الدالة الاصلية وهي على شكلين "VLOOKUPTOW1" وهنا اذا كان المعيارين موجودان في العمودين الاول والثاني مباشرة "VLOOKUPTOW2" وهنا اذا كان المعيار الاول في العمود الاول والمعيار الثاني متغير اي في العمود الذي تختاره انت الشرح المفصل مع الامثلة لهذه الدالة في المرفق ---------------------------------------------- دالة البحث ذات الثلاث معايير"VLOOKUPTHREE" وهي نفس الدالة السابقة ولكن بثلاث معايير ويمكن عمل الدالة لاكثر من ثلاث معايير "VLOOKUPTHREE1" وهنا اذا كان المعايير الثلاث في العمودين الاول والثاني والثالث مباشرة "VLOOKUPTHREE2" وهنا اذا كان المعيار الاول في العمود الاول والمعيارين الثاني والثالث متغيرين اي في الاعمدة التي تختاره انت الشرح المفصل مع الامثلة لهذه الدالة في المرفق ---------------------------------------------- دالة البحث الترتيبية "VLOOKUPRNK" وهي دالة تقوم بايجاد البيانات حسب الترتيب المطلوب في حالة البيانات المتشابهة فالدالة الاصلية تقوم بجلب اول بيانات موجودة اما هذه الدالة فنقوم باختيار الترتيب المطلوب جلب البيانات حسبه الشرح المفصل مع الامثلة لهذه الدالة في المرفق vlookuprev.rar vlookuptwo.rar vlookupthree.rar VLOOKUPRNK.rar

اخي الكريم اعتقد الخطأ من قاعدة البيانات و ليس من مكان الجداول حاول الآتي من القائمة اختر ادوات - ادوات مساعدة لقواعد البيانات - ضغط قاعدة البيانات و اصلاحها و إن شاء الله بيمشي الحال

وعليكم السلام و رحمة الله وبركاته في المرفق عملنا ملخص لكل موظف تاريخ بداية اور اجازة + تاريخ بداية آخر اجازة + تاريخ نهاية آخر اجازة ومنهم = حالة العامل حاليا مجازاو موجود وعملنا تنسيق شرطي لتلوين الجاز سوف تجد علامة + فوق عمود بداية اول اجازة بالضغط عليه تظهر لك كل بيانات الإجازات والتعديل الأخير الذي ذكرته مفهوم وسوف اعمله قريبا ان شاء الله رصيد الاجازات.rar

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