Foksh

جرب هذا الملف بعد التعديل . حيث تم تعديل الكود ليصبح :- Option Explicit #If VBA7 Then Private Declare PtrSafe Function OpenProcessToken Lib "advapi32.dll" ( _ ByVal ProcessHandle As LongPtr, _ ByVal DesiredAccess As Long, _ ByRef TokenHandle As LongPtr _ ) As Long Private Declare PtrSafe Function GetTokenInformation Lib "advapi32.dll" ( _ ByVal TokenHandle As LongPtr, _ ByVal TokenInformationClass As Long, _ ByRef TokenInformation As Any, _ ByVal TokenInformationLength As Long, _ ByRef ReturnLength As Long _ ) As Long Private Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As LongPtr Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As LongPtr, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As LongPtr #Else Private Declare Function OpenProcessToken Lib "advapi32.dll" ( _ ByVal ProcessHandle As Long, _ ByVal DesiredAccess As Long, _ ByRef TokenHandle As Long _ ) As Long Private Declare Function GetTokenInformation Lib "advapi32.dll" ( _ ByVal TokenHandle As Long, _ ByVal TokenInformationClass As Long, _ ByRef TokenInformation As Any, _ ByVal TokenInformationLength As Long, _ ByRef ReturnLength As Long _ ) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long 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 #End If Public Function IsRunAsAdmin() As Boolean Const TOKEN_QUERY As Long = &H8 Const TokenElevation As Long = 20 Dim hToken As LongPtr Dim elev As Long Dim retLen As Long If OpenProcessToken(GetCurrentProcess(), TOKEN_QUERY, hToken) <> 0 Then If GetTokenInformation(hToken, TokenElevation, elev, LenB(elev), retLen) <> 0 Then IsRunAsAdmin = (elev <> 0) End If End If End Function Public Sub RestartAsAdmin() Dim exePath As String Dim wbPath As String exePath = Application.Path & "\EXCEL.EXE" wbPath = """" & ThisWorkbook.FullName & """" ShellExecute 0, "runas", exePath, wbPath, vbNullString, 1 Application.Quit End Sub Public Sub CreateTextFile() Dim FilePath As String Dim FileNum As Integer If Not IsRunAsAdmin Then MsgBox ". (Administrator) البرنامج بحاجة إلى صلاحيات مسؤول" & vbCrLf & _ "... لطلب صلاحيات المسؤول Excel سيتم اعادة تشغيل", _ vbExclamation + vbMsgBoxRight, "تحتاج صلاحيات" RestartAsAdmin Exit Sub End If FilePath = "C:\Windows\fs.txt" FileNum = FreeFile Open FilePath For Output As #FileNum Print #FileNum, "https://www.officena.net/" Close #FileNum MsgBox "تم إنشاء الملف بنجاح في:" & vbCrLf & FilePath, _ vbInformation + vbMsgBoxRight, "نجاح" End Sub Book1.zip

تم إضافة التحديث الجديد في المشاركة الأولى

وعليكم السلام ورحمة الله وبركاته .. وجهة نظرك جميلة ، ولكننا هنا سنحذف المكررات ؛ فما حاجتك بالمقارنة اذا كان الأصل موجود في نفس الجدول !!!!!

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

هذه النتيجة ؟؟ الرقم الوطني الاسم الجنسيه الجنس نوع الهويه عدد البلاغات رقم البلاغ السنه التهمه الجهه الطالبه الحكم تاريخ الوارد الاجراء المتخذ تاريخ الاجراء ملاحظات تاريخ الحكم 12345678910 محمد علي ي ذكر 4 88 2024 جنائي العاصمه غير محدد 2025-08-11 2352 2025 شيكات الشرق غير محدد 2025-08-11 3252 2022 شيكات الجنوب غير محدد 2025-08-11 32525 2024 انتحال الغرب غير محدد 2025-08-11 25432526222 جاسم عبدالله ا ذكر 2 35 2025 تزوير الشرق غير محدد 2025-08-11 60 2022 مشاجره الجنوب غير محدد 2025-08-11 SELECT IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[id], Null) AS [الرقم الوطني], IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[ename], "") AS الاسم, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[natio], "") AS الجنسيه, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[gins], "") AS الجنس, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[nid], "") AS [نوع الهويه], IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), DCount("*","tabe2","id=" & [tabe1].[id] & " AND ([not] Is Null OR [not]='')"), Null) AS [عدد البلاغات], tabe2.blagh AS [رقم البلاغ], tabe2.sanh AS السنه, tabe2.thmh AS التهمه, tabe2.wanted AS [الجهه الطالبه], tabe2.hkm AS الحكم, tabe2.edate1 AS [تاريخ الوارد], tabe2.[not] AS [الاجراء المتخذ], tabe2.edateegra AS [تاريخ الاجراء], tabe2.mlaha AS ملاحظات, tabe2.edathkm AS [تاريخ الحكم] FROM tabe1 INNER JOIN tabe2 ON tabe1.id = tabe2.id WHERE (tabe2.[not] Is Null Or tabe2.[not]='') ORDER BY tabe1.id, tabe2.blagh;

ولكم منه النصيب الأكبر 😇

وعليكم السلام ورحمة الله وبركاته .. جرب هذا الاستعلام إن كان ما فهمته صحيحاً .. SELECT [1].[n], [1].[عميل], [1].[شراء], [1].[ثمن], (Len([شراء])-Len(Replace([شراء],"-",""))) AS [عدد العلامات] FROM 1; بهذا الشكل ستكون النتيجة :- n عميل شراء ثمن عدد العلامات 1 احمد - سجاد - مفرش - نجف 550 3 2 سيد - طقم معلق - طقم شتي - صنية - طقم حلل 1000 4 3 منال - طقم مدهب - بطانية 450 2

مداخلة .. بما انك متوجه الى استخدام Vba في الزر لإظهار الرسائل للمستخدم ، فأعتقد توجهك الى دمج الاستعلام داخل نفس الكود أفضل وأكثر وضوحاً 😇 .

SELECT IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[id],Null) AS [الرقم الوطني], IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[ename],"") AS الاسم, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[natio],"") AS الجنسيه, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[gins],"") AS الجنس, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[nid],"") AS [نوع الهويه], IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0, DCount("*","tabe2","id=" & [tabe1].[id] & " AND ([not] Is Null OR [not]='')"), Null) AS [عدد البلاغات], tabe2.blagh AS [رقم البلاغ], tabe2.sanh AS السنه, tabe2.thmh AS التهمه, tabe2.wanted AS [الجهه الطالبه], tabe2.hkm AS الحكم, tabe2.edate1 AS [تاريخ الوارد], tabe2.[not] AS [الاجراء المتخذ], tabe2.edateegra AS [تاريخ الاجراء], tabe2.mlaha AS ملاحظات, tabe2.edathkm AS [تاريخ الحكم] FROM tabe1 INNER JOIN tabe2 ON tabe1.id = tabe2.id ORDER BY tabe1.id, tabe2.blagh; جرب هذا 👌 مع العلم أن اسم الحقل not من الأسماء الممنوعة والمحجوزة في اكسيس ، وليس من الصواب تسمية حقول أو عناصر بأحد هذه الأسماء الممنوعة والتي في هذا الموضوع لأستاذي @ابوخليل https://www.officena.net/ib/topic/39164-الكلمات-والرموز-المحجوزة-في-أكسس-بحث-تطبيق/

أهلاً معلمي الفاضل وأستاذي الجليل أبو خليل .. كما تفضلتم ، حتماً من خلال الاستعلامات كما أشرتم ، ولعدم معرفتنا ببنية الجداول والمشروع فالإقتراحات واردة جميعها . أيضاً أجدتم الطرح والتفكير ، وهنا قد تم التفكير بشمول الفكرة دون تقليص حجم الطموح 😅 بالعكس ، وجهات النظر باختلافها قد تساهم في تقريب الأفكار والوصول الى المطلوب بأقل الإمكانيات ,, ويسعدني اختلاف وجهات النظر ما دامت تصب في النهاية الصحيحة

وعليكم السلام ورحمة الله وبركاته .. محاولتي معك حسب ما مررت به من مشاريع بهذا الخصوص . اعتقد انه سيلزمك عدة جداول تخص كل ما كرت تقريباً ، مثل :- جدول الصناديق النقدية :- ويضم على سبيل المثال الحقول ( معرف الصندوق ، اسم الصندوق ، الرصيد الحالي للصندوق ، متاح ( حقل Yes/No ) جدول البنوك :- ويضم على سبيل المثال الحقول ( معرف البنك ، اسم البنك ، رقم الحساب ، الرصيد الحالي - اختياري - ، متاح ( حقل Yes/No ) جدول أنواع التحويلات :- ويضم على سبيل المثال الحقول ( معرف نوع التحويل ، نوع التحويل = من صندوق لبنك ، من بنك لصندوق ، من صندوق لصندوق ، من بنك لبنك ) كأمثلة طبعاً جدول التحويلات الرئيسي :- ويضم على سبيل المثال الحقول ( رقم التحويل ، تاريخ التحويل ، نوع التحويل ، مصدر التحويل ( صندوق او بنك مثلاً ) ، معرف مصدر التحويل ( رقم الصندوق أو البنك المصدر ) ، وجهة التحويل ( صندوق او بنك ) ، معرف الوجهة ( رقم الصندوق أو البنك الوجهة ) ، المبلغ ، رقم المرجع ( كرقم أيصال التحويل أو رقم الحركة البنكية ... إلخ ) ، وصف التحويل أو كملاحظات ، المستخدم للنظام . كآلية العمل على سبيل المثال ، عند إدخال تحويل جديد :- يتم التحقق من وجود رصيد كافي في المصدر يتم خصم المبلغ من المصدر يتم إضافة المبلغ إلى الوجهة يتم تسجيل العملية في سجل التحويلات عند حدوث أي خطأ لا بد من أن :- يتم التراجع عن العملية بالكامل يتم إعلام المستخدم بالخطأ وهذا ملف كمثال على ما سبق Qathi.accdb

حياك الله اخي الكريم .. بالنسبة لموضوع الشرح 😅 ، فقد أكون انا الشخص الغير مناسب للشرح مع وجود كوكبة المعلمين والاساتذة الموجودين في هذا القسم ، لكن سأشرح لك الاستعلام بشكل عام لأن معظم سطوره متشابهة جداً باختلاف الحقول فقط .. بعد ان تقوم بالنقر على انشاء استعلام ، تقوم بتحديد الجدولين لديك Tabe1 + Tabe2 . ولا تقم بإضافة اي حقول مبدأياً . طبعاً بعد التأكد من ربط الحقلين ID في الجدولين بعلاقة بينهما . كتبت السطر التالي لعد قيم الرقم الوطني أولاً :- الرقم الوطني: IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[id],Null) وكررت الأمر نفسه لحقل الإسم + الجنسية + الجنس + نوع الهوية . مع تغيير اسم الحقل طبعاً ثم قمت بإضافة الحقول التي نريد عرض قيمها كاملةً ( التي تحمل بيانات غير مكررة ) مثل :- رقم البلاغ + السنة + التهمة + الجهة الطالبة + الحكم + تاريخ الوارد + الإجراء المتخذ + تاريخ الإجراء + الملاحظات + تاريخ الحكم = جميعها من الجدول Tabe2 . وجميعها تم عرضها بالتعليم على اشارة الصح لهذه الحقول السابقة . قمت بإضافة الحقل ID من الجدول Tabe1 فقط . وجعلته غير ظاهر مع الفرز تصاعدي . قمت بإضافة الحقل blagh ايضاً من الجدول Tabe2 . وجعلته غير ظاهر أيضاً مع الفرز تصاعدي أيضاً . أما لهذا الطلب ، فقط نقوم بإضافة حقل جديد لجلب العدد للبلاغات = عدد البلاغات: IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,DCount("*","tabe2","id=" & [tabe1].[id]),Null) وستكون النتيجة للإستعلام كاملاً = SELECT IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[id],Null) AS [الرقم الوطني], IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[ename],"") AS الاسم, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[natio],"") AS الجنسيه, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[gins],"") AS الجنس, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[nid],"") AS [نوع الهويه], tabe2.blagh AS [رقم البلاغ], tabe2.sanh AS السنه, tabe2.thmh AS التهمه, tabe2.wanted AS [الجهه الطالبه], tabe2.hkm AS الحكم, tabe2.edate1 AS [تاريخ الوارد], tabe2.[not] AS [الاجراء المتخذ], tabe2.edateegra AS [تاريخ الاجراء], tabe2.mlaha AS ملاحظات, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,DCount("*","tabe2","id=" & [tabe1].[id]),Null) AS [عدد البلاغات], tabe2.edathkm AS [تاريخ الحكم] FROM tabe1 INNER JOIN tabe2 ON tabe1.id = tabe2.id ORDER BY tabe1.id, tabe2.blagh; ملفك بعد التنفيذ استعلام بدون تكرار.zip

وعليكم السلام ورحمة الله وبركاته ,, مشكلتك في انك مكرر الدوال في 3 مديولات .. فقط احذف المديولين hide form fSetAccessWindowMared

وعليكم السلام ورحمة الله وبركاته .. أخي الكريم أهلاً وسهلاً بك في مشاركتك الأولى معنا في عالمنا الصغير ، الكبير برواده ومعلميه وأساتذته وجميع المنتسبين إليه .. فيما يتعلق بملفك والذي هو بصيغة ACCDE ، لا اعتقد أنك قادر على إصلاح الملف إلا بمساعدة برامج مدفوعة ( والله أعلم طبعاً ) حاولت تجربة ملف معلمي الأستاذ جعفر في هذه المشاركة ، لكن دون جدوى

وعليكم السلام ورحمة الله وبركاته .. من باب الفضول والتأكد ، هل هذا الشكل المطلوب ؟؟ Query1 الرقم الوطني الاسم الجنسيه الجنس نوع الهويه رقم البلاغ السنه التهمه الجهه الطالبه الحكم تاريخ الوارد الاجراء المتخذ تاريخ الاجراء ملاحظات تاريخ الحكم 12345678910 محمد علي ي ذكر 77 2025 شيكات الشيكات غير محدد 2025-08-11 88 2024 جنائي العاصمه غير محدد 2025-08-11 2352 2025 شيكات الشرق غير محدد 2025-08-11 3252 2022 شيكات الجنوب غير محدد 2025-08-11 32525 2024 انتحال الغرب غير محدد 2025-08-11 25432526222 جاسم عبدالله ا ذكر 35 2025 تزوير الشرق غير محدد 2025-08-11 60 2022 مشاجره الجنوب غير محدد 2025-08-11 اذا كان هو فعلاً ، فجرب هذا الإستعلام :- SELECT IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[id],Null) AS [الرقم الوطني], IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[ename],"") AS الاسم, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[natio],"") AS الجنسيه, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[gins],"") AS الجنس, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[nid],"") AS [نوع الهويه], tabe2.blagh AS [رقم البلاغ], tabe2.sanh AS السنه, tabe2.thmh AS التهمه, tabe2.wanted AS [الجهه الطالبه], tabe2.hkm AS الحكم, tabe2.edate1 AS [تاريخ الوارد], tabe2.[not] AS [الاجراء المتخذ], tabe2.edateegra AS [تاريخ الاجراء], tabe2.mlaha AS ملاحظات, tabe2.edathkm AS [تاريخ الحكم] FROM tabe1 INNER JOIN tabe2 ON tabe1.id = tabe2.id ORDER BY tabe1.id, tabe2.blagh; لا حاجة لإرفاق ملفك مرة أخرى 😇

وعليكم السلام ورحمة الله وبركاته ,,, أخي بلال أسعد الله مساءكم وصباحكم في بلدنا العزيز الجزائر .. استخدامك لكلمة ايقونة يسبب الإرباك لك في توصيل المعلومة الصحيحة .. ففي مثالك الإيقونة الحمراء هي في الواقع اسمها زر أو Button . لذا استخدم مسميات العناصر الصحيحة كي تساعد في توصيل المعلومة الصحيحة .. بالنسبة لطلبك الأول فيما يتعلق بالزر الأحمر "إعادة" ، وإن كان ما فهمته صحيح .. استخدم هذا الحدث له If Me.نص52 = "لا" Then Me.نص52 = "نعم" Else Me.نص52 = "لا" End If أما الطلب الثاني ، فقط قم بإضافة هذا الاستعلام DoCmd.RunSQL "UPDATE [tblImportExcel] SET [معيد] = 'نعم' WHERE [السنة] = '" & [Forms]![ملفات التلاميذ]![السنة] & "';" بحيث تصبح الجملة الشرطية للرسالة عند اختيار = نعم : If MsgBox(Msg, vbQuestion + vbMsgBoxRight + vbYesNo, "تأكيـــــد الإجــــــراء") = vbYes Then DoCmd.RunSQL "UPDATE [tblImportExcel] SET [معيد] = 'نعم' WHERE [السنة] = '" & [Forms]![ملفات التلاميذ]![السنة] & "';" DoCmd.RunSQL "UPDATE [tblImportExcel] Set [السنة]='" & NewYaer & "' where [السنة]=[forms]![ملفات التلاميذ]![السنة];" DoCmd.Requery End If ملفك بعد التعديل تحديد البرنامج1.zip

العفو أخي أسعد

وإياكم أخي @ناقل ، وهذا شيء يفرحني أن أقدم شيء يُـستفاد منه ..

اخي أسعد .. افتح الموذج في وضع التصميم ، واضغط Alt + F11 ليتم فتح محرر الأكواد . وستكون الأكواد أمامك كاملةً

ما فهمتهاش انا دي ، يعني ايه زي الأول 😅 .. فين المشكلة كانت عندك أصلاً غير انه مش بينقل النماذج والأكواد لقاعدة تانية 😁 فقط تحقق من المكتبات عند نقل عناصر قاعدة البيانات الى مشروعك .

تنفيذاً لفكرة وطلب أخي الأستاذ @ناقل ، تفضل هذا التعديل . حيث تم انشاء جدول يضم حقل الرقم وحقل الحالة وحقل تاريخ التحقق وحقل ملاحظات وإضافة زر جديد في النموذج السابق مع الكود التالي كتجربة :- Private Sub Btn_CheckAll_Click() On Error GoTo ErrHandler Dim db As DAO.Database Dim rs As DAO.Recordset Dim PhoneNumber As String Set db = CurrentDb Set rs = db.OpenRecordset("SELECT * FROM Tbl_WhatsAppNumbers WHERE Status IS NULL OR Status='غير معروف'", dbOpenDynaset) If rs.EOF Then MsgBox "لا توجد أرقام بحاجة للفحص", vbInformation + vbMsgBoxRight, "" GoTo ExitHandler End If Do Until rs.EOF PhoneNumber = Nz(rs!PhoneNumber, "") If PhoneNumber <> "" Then ShellExecute 0, "open", "whatsapp://send?phone=" & PhoneNumber, vbNullString, "", 1 SendKeys "{TAB}", True Sleep 1000 SendKeys "{ENTER}", True If IsWhatsAppWindowOpen("الرقم غير مسجل في واتساب") Then rs.Edit rs!Status = "غير مسجل" rs!LastChecked = Now rs.Update Else rs.Edit rs!Status = "مسجل" rs!LastChecked = Now rs.Update End If End If Sleep 500 rs.MoveNext Loop MsgBox "تم فحص جميع الأرقام غير المعروفة", vbInformation + vbMsgBoxRight, "" SendKeys "{NUMLOCK}", True ExitHandler: On Error Resume Next rs.Close Set rs = Nothing Set db = Nothing Exit Sub ErrHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical, "خطأ" Resume ExitHandler End Sub Check Number.zip

بناءً على تواصلي مع الأستاذ @ابو جودي ، تم ارفاق الملف التالي بعد حذف كلمة المرور لمحرر الأكواد Digital Player App.zip

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

وعليكم السلام أستاذ فريد ، شكراً لمرورك وملاحظتك الجميلة أيضاً .. وحيث أنني كنت بصدد التعديل الفعلي على الأداة بتجاوز حقل الترقيم التلقائي ، فقد تم تعديل المرفق السابق في المشاركة الرئيسية .. لأجراءاتكم بالإفادة والمتابعة