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

أهلا بك أبا ياسين... استخدم الشفرة التالية لمعالجة المشكلة Option Compare Database Option Explicit Function ADD_FIELD_CAPTION(TABLE_NAME, FIELD_NAME, FIELD_CAPTION) Dim DB As DAO.Database Dim TDF As DAO.TableDef Dim FLD As DAO.Field Dim PRP As DAO.Property '-- Set DB = CurrentDb Set TDF = DB.TableDefs(TABLE_NAME) Set FLD = TDF.Fields(FIELD_NAME) Set PRP = FLD.CreateProperty("CAPTION", dbText, FIELD_CAPTION) FLD.Properties.Append PRP Debug.Print FLD.Properties("CAPTION") End Function أظن مثلك لا يحتاج إل شرح المحتوي أقترح عليك إنشاء الجدول عن طريق المنهج Database.CreateTableDef Method (DAO) لكي يتوحد الإجراء وتسلم من الأخطاء غير المتوقعة.

جرب هذا الملف Crazy_date.xlsx

السلام عليكم تم اختصار الوحدات النمطية الموجودة في المثال بواحدة تقوم بالمهمة Public vYears As Integer, vMonths As Integer, vWeeks As Integer, vDays As Integer Function CalcAge(vDate1 As Date, vdate2 As Date) As String vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 vWeeks = vDays \ 7 vDays = vDays Mod 7 End Function حساب التاريخ باليوم والاسبوع والشهر والسنة.mdb

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

السلام عليكم ورحمه الله وبركاته مرفق طيه برنامج صلاحيات المستخدمين الإصدار 3 حيث تم زيادة بعض الخصائص به تتيح حريه اكبر في التعامل مع الملف وقبل اى شيء فلولا أساتذة هذا المنتدى العظيم ما كان لهذا البرنامج ان يظهر او يتطور فمنهم وجدت الدعم ومنهم تعلمت ولا زلت طالبا مبتدئا انهل من علمهم الغزير وفقهم الله وبارك في جهدهم وجعله علم صالح ينتفع به --- اللهم امين اسماء الدخول على البرناج الدعم الفنى - كلمه السر 1111 مستخدم 1 - كلمه السر 2222 شرح بسيط للبرنامج وامكانياته وما هو الجديد عليه تعتمد فكرة البرنامج على اضافه عدة مستويات للصلاحيات على الملف فهو كقالب تقوم بادراج الصفحات التي ترغب بادراتها فيه ويتعرف عليها تلقائيا بمجرد إعادة فتح الملف المستخدم باسم الدعم الفني هو الادمن لهذا الملف وقد تم ربط كافه الصلاحيات بالباسورد الخاصه به مستوى الصلاحيه على الصفحه 4 مستويات مشاهدة فقط ---- للاطلاع فقط دون التعديل مخفى ---- لاخفاء الصفحه عن هذا المستخدم مدخل بيانات - لتحديد أعمدة معينه يتم التعديل عليها وباقى المستند غير متاح وذلك من خلال وضع حرف T في اول خليه اعلى العمود كما يابصفحه 2 وجرب الدخول بالمستخدم 1 ستحلاظ ان صفحه واحد للمشاهدة فقط وصفحه 2 تم تحديد صفه مدخل بيانات ويتم التعديل فقط فى الاعمدة التى تعلوها حرف T ويمكنك اخفاء هذا الضف عن اعين المستخدم ويعمل بشكل طبيعي مشاهدة وتعديل -- هي صلاحيات كامله على الصفحه يمكنك تحديد اى من هذه الصلاحيات لكل صفحه منفصله عن الأخرى لكل مستخدم بصورة منفصله وذلك من خلال الاتى في شاشه الدخول ضع الدعم الفني واكتب كلمه السر وهى 1111 ولا تضغط دخول اى ستجد ان ازار تم تفعليها - اضغط على زر تعديل صلاحيات واختار المستخدم من الكومبوبكس وستجد صلاحياته تظهر اسفل منها افتح كل قائمه وحدد الصلاحيه التي ترغبها لكل مستخدم مع مراعاة ان تكون كلها مشاهدة وتعديل للمستخدم الدعم الفنى يظهر اسفل الفورم اربعه اختيارات وهى الجميع مخفى - الجميع مشاهدة وتعديل - الجميع مشاهدة فقط - الجميع مدخل بيانات ( هذه الاختيارات فقط لتساعدك في ملىء صلاحيات الصفحات حيث تختار ما يغلب على الصلاحيه للمستخدم وتقوم بتعديل الاستثناء فقط مع ملاحظه انه لا يتم التفعيل الا بعد الضغط على زر الحفظ وفى حاله الضغط على زر اضافه مستخدم جديد فانه يجب أولا تسجيل الاسم وكلمه السر الافتراضيه والضغط على زر اضافه مستخدم سيفتح فورم إعطاء الصلاحيات ومن ثم تحدد كما بالخطوة السابقه ملحوظه - كلمات السر يجب ان تكون ارقام فقط - حيث وضع هذا الشرط لعدم تعقيد كلمه السر والدخول في حساسيه الحروف واللغه -- وهكذا يظهر زر اخر فيه تعديل بيانات المستخدمين وحيث يمكنك تعديل اسم مستخدم او حذفه من البرنامج كما يمكنك اظهار أسماء المستخدمين وكلمات السر من خلال وضع علامه صح وسيظهر شاشه لادخال كلمه السر وهنا ضع كلمه سر الدعم افنى سيظهر كومبوبكس فيه أسماء المستخدمين وكلمات السر بجانب كل منهم كل هذه الأشياء يتم التعامل معها قبل الدخول على البرنامج من الشاشه الافتتاحيه وبعد الدخول الى البرنامج توجد بعض الخصائص امكانيه تعديل كلمه السر للمستخدم التنقل بين الصفحات من خلال زر التنقل يقوم البرنامج بعمل حفظ تلقائي عند الخروج حتى لو لم تقوم بالحفظ ما هو الجديد في هذا الإصدار زر صلاحيات اضافيه وفيه الخصائص التاليه امكانيه احضار صفحات من خارج الملف وارفاقها امكانيه نسخ الصفحات المضافه وحفظها في ملفات منفصله لكل منها حذف الصفحات من الملف ترتيب الصفحات تصاعديا وتنازليا فك حمايه المستند وتفعيل الحمايه اظهار واخفاء اشرطه الأدوات للاكسيل المثال المرفق : مستخدم 1 بكلمه سر 2222 صلاحياته هي صفحه رقم 1 مشاهده فقط صفحه رقم 2 - مدخل بيانات -- يمكن الكتابه فقط في الاعمدة التي في اعلاها حرف T صفحه رقم 3 مشاهدة وتعديل باقى الصفحات من 4 الى 7 مخفيه عن مستخدم 1 والكل يظهر مع مستخدم الدعم الفني يجب مراعاة ان صفحه MYDATE يجب ان تكون مخفيه عن جميع المستخدمين نظرا لانه يتم تخزين أسماء المستخدمين وكلمات السر والصلاحيات على الصفحات في هذه الصفحه تلاحظ ان يتم تحديد صفحه MYACCOUNT بصفه مخفى ولكنها تظهر مع المستخدم العادى وذلك فقط اذا حددتها مشاهدة وتعديل فانك ستعطى لهذا المستخدم صلاحيه اضافه مستخدم جديد فقط دون باقى صلاحيات الدعم الفني التي تكون في الفورم الرئيسي برنامج صلاحيات المستخدمين اصدار 3.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة فورم ادخال مزدوج الاستخدام تم ارفاق كود الحل من الفاضل _ رحمه الله/ الحسامي و لا تنسونا من صالح الدعاء تحياتى Prog.rar Prog (1).rar

وعليكم السلام ورحمة الله وبركاتة أخي الفاضل أرجو ان تتقبل نقدي بصدر رحب أولا يوجد لديك أخطاء وقعت بها اثناء تسمية بعض الحقول والجداول والنماذج أستطيع حسب معرفتي المتواضعه جدا تسميتها بالاخطاء ( الفادحة) no data sub id main end start serial كل هذه المسميات محجوزة وعند وقوع بعض المشاكل أو الاخطاء كما حدث معك الآن تجعلك تدور في حلقة مفرقة لمحاولة معرفة السبب والكثير من اساتذتنا الكرام في هذا المنتدى عندما يدخولون على موضوع ويفتحون المرفق ويجدون ان المرفق يحتوي على مسميات لكائنات باسماء محجوزة تجدهم يغادرون بدون تردد لماذا ؟ لانهم وجهو وحذروا من اعطاء التسميات المحجوزة لما تسببه من اخطاء وصعوبة حل المشاكل التي تنتج عنها ثانيا نأتي لموضوعك وضعت الكود وقلت انه سبب مشكلة ولم تشرح ما هو هدفك من وضع الكود ما هو التكرار الذي يحدث وما هو المعيار الذي يحدد عدم حدوثة حاول تفصل وتوضح بشكل دقيق لعلك تجد من يساعد ::بالتوفيق:: إن كنت ترى هذه المشاركة مفيدة فلا تنسى التقيم

وأنا كذلك أعجبتني الفكرة! lab.accdb

تفضل اخى الكريم لمعرفة المخزون المتبقي.xlsx مخازن (1).xlsx

شوف كده بالتوفيق OptionButton.xlsm

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

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

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

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

تفضل ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم Database10.mdb

اتبع الخطوات الموجود في الملف ترقيم.ترقيم.pdfdocx

رمضان مبارك ☺👼 💜❤💖

نعم اذا لزم الامر .. مثلا هذا الاستعلام يشتمل على عمليات خاصة وهو مصدر لعدة تقارير وفي الوقت نفسه لكل تقرير معايير تتعارض مع معايير التقرير الآخر في الاستعلام الذي عملناه داخل التقرير باعتبار ان هذا الاستعلام الداخلي مبني على الاستعلام الاصلي

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

السلام عليكم حياك الله يا أستاذ @سعيد صوابيا منارة المنتدى هذه طريقة أخرى أضعها بين أيديكم البحث.rar

جرب هذا الشيء الاستاذ salim.xlsx

وعليكم السلام ورحمة الله وبركاتة أجعل القيمة الافتراضية للحقل =0 في حدث عند النقر على chakbox iF Me.chakbox = -1 Then Me.[ضع هنا اسم الحقل المراد وضع القيمة فيه]= 100 Elseif Me.chakbox = 0 Then Me.[ضع هنا اسم الحقل المراد وضع القيمة فيه]= 0 End if ::بالتوفيق:: اذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم

جرب هذا الكود Sub MOU3ADDAL() With Range("f2").Resize(Range("a1").CurrentRegion.Rows.Count - 1) .Formula = "=AVERAGE(C2:E2)" .NumberFormat = "0.00" .Value = .Value End With End Sub

بسم الله الرحمن الرحيم احبابنا في الله هذا كود خاص باستدعاء بيانات صفحه كامله الى صفحه اخرى مثلها في رؤوس العناوين ولكن بشرط - ( تصفيه بيانات ) - وهو خاص للمحترم الذي اكن له كل تقدير واحترام الاستاذ زيزو العجوز '================ Sub Trans_Data() 'الكود خاص بالمحترم زيزو العجوز 'يحفظه الله 'تم هذا الكود في 15/11/2017 'الهدف من الكود هو استدعاء صفحة كامله بشرط '================ Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'الاعلان عن اسماء الشيتات' Dim Main As Worksheet, sh As Worksheet ' الاعلان عن المصفوفتين Dim Arr As Variant, Temp As Variant '(i,j)الاعلان عن ابعاد المصفوفة الاولى ( p ) وعداد المصفوفة الثانية Dim i As Long, j As Long, p As Long ' الاعلان عن المتغير الذى سوف يتم العمل عليه Dim dep As String Set Main = Sheets("المصدر") Set sh = Sheets("الهدف") '======= ' محو البانات القديمة sh.Range("A7:CX" & Main.Range("B" & Rows.Count).End(xlUp).Row).ClearContents ' معيار الاختيار dep = sh.Range("C1").Value ' المصفوفة المصدر Arr = Main.Range("A7:CX" & Main.Range("B" & Rows.Count).End(xlUp).Row).Value ' ابعاد المصفوفة الهدف ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) ' طول المصفوفة المصدر For i = 1 To UBound(Arr, 1) 'رقم عمود الشرط If Arr(i, 101) Like "*" & dep & "*" Then 'If Arr(i, 101) = dep Then ' العداد لتحديد طول المصفوفة الهدف p = p + 1 ' عرض المصفوفة الهدف For j = 1 To UBound(Arr, 2) ' تعبئة المصفوفة الهدف من المصفوفة المصدر حسب الشرط Temp(p, j) = Arr(i, j) Next End If Next ' خليه البدايه لصفحه الهدف 'عرض البيانات المطلوبة If p > 0 Then sh.Range("A7").Resize(p, UBound(Temp, 2)).Value = Temp sh.Range("A7:CX" & Rows.Count).Borders.Value = 0 'سطر لاضافة التسطير sh.Range("A7:CX" & Cells(Rows.Count, 2).End(xlUp).Row).Borders _ .Weight = xlMedium ' .Weight = xlThin ' .Weight = xlMedium ' .Weight = xlThick Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub ========== استدعاء صفحة بشرط.rar ***************************

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