ابوخليل

عليكم السلام الاصل وجود جدول تعريفي بالصفوف وهذا ما صنعته لك A2.mdb

Database3.rar

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

هذا حل لجميع مشكلاتك افتح الوحدة النمطية mod_PN_All استبدل السطر التالي : Public Function PN_All(N As Integer) As Integer بهذا Public Function PN_All(N As Double) As Double

بعد اذن اخي حسام انت بحاجة لمثل هذا Dim rs1 As DAO.Recordset: Dim rs2 As DAO.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الأول حسب اليوم Set rs2 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الثاني حسب اليوم rs1.Edit: rs1!tech_code = المراقب الثاني rs2.Edit: rs2!tech_code = المراقب الأول rs1.Update: rs2.Update لاحظ انه غالبا يصعب تمرير المعايير لنموذج غير منضم داخل الاستعلام ، لذا نلجأ الى انشاء وحدات نمطية عامة كوسيط tabdeel2.rar

شكرا لكما احبتي @jjafferr و @kha9009lid سوف اقوم بالاطلاع والتجربة

تفضل هذه محاولة ولكن يبدو ان هذا البرنامج غير مجدي لا غنى لي عن اخوتي هنا لارشادي الى افضل برنامج خفيف للشرح Video_2021-02-10_105245.rar

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

تفضل DATA14.rar

انا لم اتعرض للاشهر الأخرى وضعت اداة الشرط فيما لو كان الشهر في ( dat1 = 3 ) يزيد يوما واحدا علما اني جربت المثال ويعمل بشكل صحيح حسب طلبك

المسألة سهلة جدا تضيف حقل اسم المخزن ضمن الاستعلام مصدر النموذج ، ثم تجعل مصدر الحقل اسم المخزن بدلا من الرقم DATA13.rar

النتيجة صحيحة لان الشهر ناقص ومع ذلك وحسب رغبتك يمكن ان نعامل شهر 3 معاملة خاصة Dim i As Byte Private Sub dat1_AfterUpdate() i = Month(dat1) If i = 3 Then ys = DateAdd("m", -Me.dat2, Me.dat1 + 1) + DateAdd("yyyy", 1, Me.dat1) - dat1 Else ys = DateAdd("m", -Me.dat2, Me.dat1) + DateAdd("yyyy", 1, Me.dat1) - dat1 End If Me.dat3 = ys DoCmd.Requery End Sub test2.rar

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

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

هنا ، في نموذج frmlogin If (UserName = rst!User_Name) And (EncryptDecrypt(Password, UserName) = rst!Password) Then التعديل : If (UserName = rst!User_Name) And (EncryptDecrypt(rst!Password, UserName) = Me.Password) Then التفكير المنطقي يظهر الفرق

تفضل تم تعديل الباسوورد DATA12.rar

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

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

تم اصلاح الخلل في المرفق وتم ايضا تنقيح المشاركات وذلك بحذف ما لا يلزم DATA12.rar

تم ضبط الصلاحية باستخدام العناصر الموجودة داخل النموذج واستخدمت كلمة نصية مشفرة "modeer" للتمييز بين المدير وغيره بدلا من خانة الاختيار والتي يسهل الوصول اليها من الجدول ,والتلاعب بها هذا يعني انك اذا اردت تسجيل مستخدم جديد واردت تعيينه كمدير يلزم كتابة كلمة modeer في حقل Admin ايضا اظهرت لك اسم المستخدم في حقل خاص الطريقة لإظهارة في اي حقل سواء في النماذج او التقارير هو ان تكتب الدالة التالية في مصدر بيانات الحقل =myUserName() انظر الى الكود ادناه في حال عدم كون المستخدم مدير فسوف يتم اخفاء العناصر واحدا واحدا فاذا ارد اظهار عنصر للمستخدم فقط عطل السطر الخاص به والعكس صحيح حيث يمكن اضافة ازرار اخرى If myCheckUser <> "modeer" Then cmd_rpt_Items_Dates_3.Visible = False cmd_rpt_Items_Dates_3_No_Labels.Visible = False cmd_rpt_Items_Pages_3.Visible = False cmd_frm_Items_All.Visible = False srch_Date_From_3.Visible = False srch_Date_To_3.Visible = False srch_All_3.Visible = False srch_Page_From_3.Visible = False srch_Page_To_3.Visible = False zerUsers.Visible = False Box21.Visible = False End If اي استفسار لا يخص الصلاحية يفضل عرضه في موضوع جديد DATA11.rar

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

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

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

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