ابوخليل

تفضل .. اتمنى يكون هو مطلوبك
Upالملاك 2021.rar

Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst![رقم العملية] = Me![T4] Then MsgBox " السجل مكرر ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close  
F05.rar

ضع هذا المعيار في مصدر بيانات النموذج الفرعي
[forms]![Fworkerpresence]![combo4]  
الغاء التصفية.rar

اضف هذا المعيار في مصدر النموذج الفرعي
Like "*" & [forms]![snawaqs_3]![asd1] & "*" وانظر الى التغير في كود حدث خانة الاختيار
exam2.rar

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

تم ضبط الصلاحية باستخدام العناصر الموجودة داخل النموذج 
واستخدمت كلمة نصية مشفرة "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

انا كتبت لك الصيغة  واظهرت لك رسالة حتى ترى النتيجة
وللتطبيق فمثلا في الاستعلام اذا اعتبرنا حقل القيمة اسمه total
imonths:[total]\30 idays : [total] Mod 30  
dayess.mdb

تفضل على السريع
يمكنك بناء تقاريرك على الجدول tbl1
db4.mdb

صحيح اخي احمد .... اوقات الواحد يحاول يعدلها في راسه وما تتعدلش
دعنا ننزل على رغبة الأخ مصطفى
اولا  حقل التاريخ مرتبط  بحقل هو بالاصل مفتاح  يعني ماراح يسمح بالتكرار فيمكننا معالجته بأكثر من طريقة
الطريقة الاولى :
ادخال التاريخ في حقل غير منضم  فإن قبله اكسس  يتم نقله الى الفورم  وتسجيله في الجدول وإلا يتم الغاء العملية
Dim x As Boolean On Error Resume Next x = DLookup("[تاريخ الدفعة]", "[تسجيل دفعات الصرف]", "[تاريخ الدفعة]=#" & Me.idate & "#") If x = True Then DoCmd.CancelEvent MsgBox "التاريخ مكرر" Exit Sub Else End If  
مساعدة.rar

صحيح اخي احمد .... اوقات الواحد يحاول يعدلها في راسه وما تتعدلش
دعنا ننزل على رغبة الأخ مصطفى
اولا  حقل التاريخ مرتبط  بحقل هو بالاصل مفتاح  يعني ماراح يسمح بالتكرار فيمكننا معالجته بأكثر من طريقة
الطريقة الاولى :
ادخال التاريخ في حقل غير منضم  فإن قبله اكسس  يتم نقله الى الفورم  وتسجيله في الجدول وإلا يتم الغاء العملية
Dim x As Boolean On Error Resume Next x = DLookup("[تاريخ الدفعة]", "[تسجيل دفعات الصرف]", "[تاريخ الدفعة]=#" & Me.idate & "#") If x = True Then DoCmd.CancelEvent MsgBox "التاريخ مكرر" Exit Sub Else End If  
مساعدة.rar

صحيح اخي احمد .... اوقات الواحد يحاول يعدلها في راسه وما تتعدلش
دعنا ننزل على رغبة الأخ مصطفى
اولا  حقل التاريخ مرتبط  بحقل هو بالاصل مفتاح  يعني ماراح يسمح بالتكرار فيمكننا معالجته بأكثر من طريقة
الطريقة الاولى :
ادخال التاريخ في حقل غير منضم  فإن قبله اكسس  يتم نقله الى الفورم  وتسجيله في الجدول وإلا يتم الغاء العملية
Dim x As Boolean On Error Resume Next x = DLookup("[تاريخ الدفعة]", "[تسجيل دفعات الصرف]", "[تاريخ الدفعة]=#" & Me.idate & "#") If x = True Then DoCmd.CancelEvent MsgBox "التاريخ مكرر" Exit Sub Else End If  
مساعدة.rar

يبدو انك مستعجل
تفضل التعديل حسب طلبك
مطعم وجبات2.rar

AutoLogout2.rar

الحل في خصائص الطابعة
تجد ضمن الخصائص :
قطع حسب الصفحة
قطع حسب المسند
اختر  قطع حسب المستند
ايضا من خصائص الطابعة يمكنك تحديد المسافة الفارغة في اعلى واسفل الفاتورة

تفضل وحدة نمطية مع الشرح  يمكن من خلالها طباعة الصفحات من تقريرين تنازليا  مهما بلغت الصفحات 
وايضا يمكن تحديد نقطة البداية او صفحة البداية
فلو فرضنا ان لديك تقريرين كل واحد منهما يحتوي على 100 صفحة وتريد ان تبدأ الطباعة من الصفحة رقم 20 تنازليا
فكل ما عليك  هو ان تضع رقم صفحة البداية في الحقل المخصص في النموذج 
افتح محرر الفيجوال والصق الوحدة النمطية التالية : 
Function PrintDscOrder(Rep1 As String, Rep2 As String) Dim PgNum As Integer, _ PgNum2 As Integer, PagesCnt As Integer  'اعلان عن متغيرات رقمية تمثل مجمل الصفحات وارقام الصفحات المحددة PagesCnt = Me.RepageCnt.Value           'مجمل الصفحات = قيمة الحقل في النموذج For PgNum = PagesCnt To 1 Step -2       'دوارة تنازلية زوجية PgNum2 = PgNum - 1            'تحديد رقم الصفحة الثانية وهي هنا اقل من الحالية بواحد DoCmd.SelectObject acReport, Rep1, True   'تحديد التقرير الأول DoCmd.PrintOut , PgNum, PgNum2, 1        'طباعة الصفحات المحددة DoCmd.SelectObject acReport, Rep2, True  ' تحديدالتقرير الثاني DoCmd.PrintOut , PgNum, PgNum2, 1         'طباعة الصفحات المحددة Next PgNum                                'عودة لبداية الدوران End Function                               'تصميم وترتيب ابوخليل وفي حدث بعد النقر لزر الطباعة الصق السطر التالي :
Call PrintDscOrder("استقطاعات", "استحقاقات") طباعةالصفحات تنازليا من تقريرين.rar

تفضل الحل الافضل وهو كون الحدث يخص كل حقل لوحده
في حدث بعد التحديث لاي حقل يتم الفحص والاجراء هو : اما انشاء مجلد جديد او تغيير اسم المجلد ان كان موجودا
Dim i1 Private Sub Text1_GotFocus() i1 = Text1 End Sub Private Sub Text1_AfterUpdate() Dim fs, cf strFolder1 = CurrentProject.Path & "\" & Me.Text1.Value strFolder11 = CurrentProject.Path & "\" & i1 If MsgBox("سيتم ( إنشاء / تغيير ) اسم المجلد حسب القيمة الجديدة", _ vbQuestion + vbOKCancel, _ "تنبيه") = vbOK Then Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder11) = False Then Set cf = fs.createFolder(strFolder1) Else Name strFolder11 As strFolder1 End If Else Undo Exit Sub End If End Sub   
تغير اسم المجلد حسب قيمة الحقل.mdb

تفضل
التقرير يومي2.mdb

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

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

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

عليكم السلام
انت تريد عرض الأسماء على الشجرة ، وبالنقر على الاسم يفتح النموذج الخاص به ؟
اذا كان هذا صحيحا تفضل هذا مثال بسيط يمكنك محاكاته في برنامجك .
Tree view22.mdb

غريب
طيب جرب تعمل تجزئة للسطر هذا :
Dim i, ii As Byte بحيث يصبح
Dim i As Byte Dim ii As Byte  

تفضل 
وكما ذكرت لك الحل في خصائص العلاقة 
اتمنى ان يكون هو مطلوبك
 
Sample.rar

تفضل حسب طلبك
Dim fildMaxHeight As Integer Dim ctl As Control Private Sub hed1_Format(Cancel As Integer, FormatCount As Integer) Me.hed1.Height = fildMaxHeight End Sub Private Sub hed1_Print(Cancel As Integer, PrintCount As Integer) For Each ctl In Me.Section(5).Controls If ctl.Height > fildMaxHeight Then fildMaxHeight = ctl.Height End If Next For Each ctl In Me.Section(5).Controls Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbWhite, BF Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbBlack, B Next End Sub  
ضبط ارتفاع جميع الخلايا_ تقرير .mdb

تفضل  
تم تعديل المثال اعلاه حسب طلبك
Access2.mdb