ابو عارف

تفضل أخي عملت لك على طريقتين تختار الملف ما يناسبك بتوفيق.
شغل.xlsx
شغل2.xlsx

وعليكم السلام و رحمة الله و بركاته
تفضل المطلوب في المرفق
VV.accdb

و عليكم السلام و رحمة الله و بركاته
تفضل  اليك التعيل إن شاء الله يكن حسب المطلوب 
test (5).accdb

جرب هذا
If me. xxx <> 0 and (isnull (me.yyy) or me.yyy="") then هنا مكتب الحدث Else Ebd if  

تفضل أخي
Private Sub Form_Current() If Me.External_lab = "البرج" Then Me.B.Visible = True Me.M.Visible = False ElseIf Me.External_lab = "المختبر" Then Me.B.Visible = False Me.M.Visible = True ElseIf IsNull(External_lab) Or Me.External_lab = "" Then Me.B.Visible = False Me.M.Visible = False End If End Sub jo2025.accdb

وعليكم السلام و رحمة الله
أخي الكريم من اجل تجنب أخطاء مستقبلا ، عليك متابعة مواضع كما اشار اليه الأستاذ @Foksh  لان اسماء حقول محتوي فواصل و كذالك الرموز الاقواس و علامات استفهام مثلا  و شيء آخر عند الحاق جول بجدول آخر يجب استثناء حقل ترقيم تلقائي في جدول الهدف
على العموم حاليا جرب الكود  من الافضل تجربة في قاعدة اساسية لان هناك بعض جداول مرتبطة 
Private Sub Commande1_Click() '------------------------------------------------- On Error Resume Next Dim SQl As String Dim SQl2 As String Dim DB As DAO.Database Dim rst As Recordset Dim rst2 As Recordset Dim fld As Field Dim fld2 As Field Set DB = CurrentDb '----------------------------------------------------- Dim mfile As String 'ÇÎÊíÇÑ ãáÝ ÅßÓá mfile = GetFileName ' Ýí ÍÇáÉ ÚÏã ÇÎÊíÇÑ ãáÝ íÊã ÇáÅáÛÇÁ æÇáÎÑæÌ ãä ÇáÚãáíÉ If mfile = "" Or IsNull(mfile) = True Then Exit Sub ' ÇÓÊíÑÇÏ ÇáÌÏæá æÊÓãíÊå ÈMyTable DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, "MyTable", mfile, True 'ãÓÍ ãÍÊæíÇÊ ÌÏæá ÇáÅÌãÇáíÉ ÞÈá ÇáÅáÍÇÞ CurrentDb.Execute "DELETE ÇáÅÌãÇáíÉ.* FROM ÇáÅÌãÇáíÉ;" 'ÅáÍÇÞ ÈíÇäÇÊ ÇáÌÏæáMyTable ÈÌÏæá ÇáÅÌãÇáíÉ '===================================================== For Each fld In DB.TableDefs("ÇáÅÌãÇáíÉ").Fields For Each fld2 In DB.TableDefs("MyTable").Fields If fld.Name = fld2.Name And (fld.Attributes And dbAutoIncrField) <> 16 Then SQl = SQl & "MyTable.[" & fld.Name & "],": SQl2 = SQl2 & "[" & fld.Name & "]," Next Next SQl = Left(SQl, Len(SQl) - 1) SQl2 = Left(SQl2, Len(SQl2) - 1) SQl = "INSERT INTO ÇáÅÌãÇáíÉ (" & SQl2 & ") SELECT " & SQl & " FROM MyTable;" DB.Execute (SQl) If Err.Number > 0 Then MsgBox Err.Description '====================================================== ' 'ÍÐÝ ÇáÌÏæá CurrentDb.Execute "DROP TABLE [MyTable]" ' ÊÍÏíË ÈíÇäÇÊ ÇáãÕÏÑ Me.Requery End Sub  
 
 
Handicapés (1).accdb

تفضل أخي
test (3).accdb

اتفضل أخي @2024HISHAMKAMAL
تجميع حسب نوع الفاتورة.accdb

تفضل حبيبي
Full Control Of Print Report.mdb

عندي انا يعمل 100%
 
في شيت الاول لا تعمل اي شيء البرنامج يعمل تسطير من تلقاء نفسه  مع بدء كتابة في صف جديد
عملت لك فلاتر اذا حبيت تصدير بين تاريخين ، اكتب تاريخين " من الى" ثم اضغط على زر فلتر
ما فهمت قصك بضبط ، حاليا كيو آركود موجو في عمود M و نص كيوآركود من عمود I في نفس صف،  و يعمل كماهو 
على كل حال انت جرب المرفق و شوف نتيجة
أنشطة 2025 (A).xlsb

أخي اليك التعديل كما طلبت
leb.accdb

السلام عليكم و رحمة الله و بركاته
أخي العزيز،،ارى اجابة استاذ عبدالله متوافقة تماما كما طلبت ولكن اعتقد المطلوب من طلب منك مختلف ، و المطوب هو تغير لون سهم و اتجاهه على حسب معايير عمود Normal Value لإختبار فئة في عمود Test    كما في الصورة ، لا العمود كامل على 3 معايير ،هذا حسب فهمي  و الله اعلم.
   

كليك يمين على ايقونة نموذج في نافذة أكواد ثم ضغط على اختيار  Export File  
احفظ نموذج في اي مكان في الجهاز
خطوة 2) افتح برنامجك
افتح نافذذة أكواد كليك يمين عند ايقونات عاصر ثم اختار Emport File ثم اذهب الى ملف الذي احفظته و دبل كليك عليه وقد تم استراد النموذج بنجاح
بالتوفيق،،،

تفضل أخي الكريم
TEST1.accdb

احسنت أستاذ خليفة ، و انا ماجربت على اكسس 32 بت لان أنا أعمل على أكسس 64 بت (الشرط صواب) و ما ينتقل الى Else  وسطر ذي خطاء في Else  و ما أخبرني نسيت "O" 😊
و المرفق بعد تعديل
 
FF.mdb

و بارك الله فيك تفضل
ops2.accdb

يعمل عندي 100%100
يمكن جربت ملف آخر بداله جرب الكود في حدث كليك  y_n
CurrentDb.Execute ("UPDATE a SET a.y_n=false") DoCmd.RunCommand acCmdSaveRecord  

السلام عليكم 
بعد إذن الاستاذ/ خليفة
أخي اليك احد حلول
testH.accdb

ArabicDigits =Chrw(1632) & Chrw(1633) & Chrw(1634) & Chrw(1635) & Chrw(1636) & Chrw(1637) & Chrw(1638) & Chrw(1639) & Chrw(1640) & Chrw(1641) الصق هذا بدل أرقام عريي
وهذا تعديل على ملف
تحويل الارقام من العربية الى الانجليزية.xlsm

السلام عليكم
بعد اذن الاستاذ خلف
اخي محمد اليك الحل بتغير خاصية هيدر 
test 5000.mdb

السلام عليكم و رحمة الله و بركاته
اخي جرب تغير كود زر "معاينة تقرير" الى:
On Error GoTo Err_أمر12_Click Dim stDocName As String stDocName = "Testf" DoCmd.OpenReport stDocName, acPreview, , Datamasterform!TestF.Form.Filter Exit_أمر12_Click: Exit Sub Err_أمر12_Click: MsgBox Err.Description Resume Exit_أمر12_Click  

اجعل مصدر تقرير استعلام اجمالي
PAYMENTS (1).accdb

السلام عليكم و رحمة الله و بركاته
استاذ محمد ، غير مصدر مربع "نص14" الى: 
="صفحة " & [Page]\2+1 & " من " & [Pages]\2+1  

تم تعديل المرفق السابق ايضا
Aziz (1).rar

المرفق الجديد
Worker (4).rar