ابوخليل

عليكم السلام
انت مخطىء بكتابة اسم الفورم في المعيار
انت كتبته هكذا :
[Forms]![From1]![ID] الصحيح هكذا
[Forms]![Form1]![ID]  

تفضل
Dim i As String, x As Integer i = Me.Specialty x = DCount("*", "tblDoctors", "[Specialty]=" & i) + 1 Me.DoctorID = i & "/" & Format(Str(x), "000")  
ID2.rar

يمكن انني لم افهم عنك
تفضل
يجلب اخر ادخال
test4.rar

اخونا الحبيب  وأستاذنا القدير ابو عبدالله ؛ في الفقرة 1 لعلك تراجع الحسبة ، لاني حسبتها باصابعي والنتيجة 19 شهر
المهم في الامر ان  الاستعلام رفيقي مثل ما الاستاذ جعفر رفيق التقارير
حاولت ان احل المسألة باستعلام واحد ونجحت في ذلك
اتمنى ان يحقق مطلبك
QuestionHalwane.rar

تفضل
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command27_Click() Dim i As String i = Me.k_code ShellExecute Me.hwnd, "open", CurrentProject.Path & "\files\" & i & ".tif", "", "", 1 End Sub  
Downloads.rar

تفضل
عملت لك جدول يحتوي على حقل واحد يسجل فيه اسم الموظف المسؤول
من اجل اتاحة المجال للمستخدم بتغيير اسم الموظف ، لانه من عير المنطقي برمجيا اني اكتب اسم موظف داخل الأكواد
مشكلة في التقرير5_552.rar

هذا حسب ما فهمت
اتمنى ان يحقق مطلوبك
ff3.rar

المشكلة لديك في تأخر جلب عدد السجلات من النموذج الفرعي
لذا جعلت الجلب مباشرة من الجدول
تفضل
م11.rar

Between [forms]![start]![frm]![date_m] And [forms]![start]![frm]![date_m1])) OR Between [forms]![start]![frm]![date_h] And [forms]![start]![frm]![date_h1]))  
معيار الاستعلام 2.rar

شكرا ابو احمد على المرور .. جميع ما في المنتدى حلالك 
اخي طاهر :
فقط ضع كود التحويل في حدث النموذج الحالي
Private Sub Form_Current() Me.date_h = UmR2L(date_m) Me.date_h1 = UmR2L(date_m1) End Sub تفضل بعد التعديل
فترة بين تاريخين ميلادي وهجري.rar

لإثراء الموضوع هذه مشاركة مع اخي جعفر
المثال عندي جاهز فاحببت ارفاقه
الفكرة نفسها ..
 
msgpass.accdb

تفضل 
Private Sub cmb_Committe_Click() If cmb_Committe = "النموذج الاول" Then DoCmd.OpenForm "نموذج1" ElseIf cmb_Committe = "النموذج الثانى" Then DoCmd.OpenForm "نموذج2" ElseIf cmb_Committe = "النموذج الثالث" Then DoCmd.OpenForm "نموذج3" End If End Sub  
القوائم2.rar

شكرا استاذنا على التعقيب
وبهذا يصبح الكود حسب ما هو مطلوب :
Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = 111 Then If x_change = 0 Then ctl.Locked = True Else ctl.Locked = False End If End If Next ctl  

هذه صورة للتقرير عندي بعد تطبيق الدالة على الحقلين الاخيرين
 
وهذا مثالك بعد التعديل

test11.rar

تفضل
Public Function SubSalary3(fld As String) Dim i As String i = DLookup("[النسبة]", "tp2", "[المنصب]='" & fld & "'") SubSalary3 = i End Function نناديه هكذا
Me.a5 = SubSalary3(a4)  

تفضل طريقة بسيطة جدا 
اختر التاريخ من مربعات التحرير ،،، او اكتب بعض التاريخ وسوف يقوم مربع التحرير بعرض التواريخ المطابقة
البحث بين وقتين2.accdb

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

عليكم السلام
استبدل السطر هذا
.From = " <" & myemail & ">" بهذا السطر
.From = """" & Me.myname & """ <" & myemail & ">"  

نعم صحيح
يعني الكود صحيح بدون اضافة رقم 1
النتيجة 11 شهر صحيحة لانك حسبت آخر شهر 1/12/2022  والصحيح يكون 30/12/2022

عليكم السلام
فقط نضع معيارا في الاستعلام مصدر بيانات التقرير
test2.accdb

افتح النموذج الفرعي سداد على التصميم
افتح الخصائص / لسان التبويب : بيانات
غير الخاصية : ادخال بيانات من (لا) الى (نعم)  ... واحفظ  

اضفت حقل كمعرف userid
جعلته في الجدول الاول قابل للتكرار وفي الثاني غير قابل للتكرار ( افتح الجدول الاول سترى ان احد الاسماء مكرر )
امسح البيانات من الجدول الثاني
شغل النموذج وانقر على زر الالحاق مرة ومرات عديدة .. 
ارجع الى الجدول الثاني لترى النتيجة بعينك
Database9.accdb

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

استبدل المعيار الموجود في الاستعلام بهذا
[Forms]![enter]![frm]![combo1]  
تحليل2.rar

تفضل
تم الحل عن طريق التجميع حسب جهة العمل
كشف المرتبات2.accdb