ابو جودي

السلام عليكم اتفضل يا باش مهندس @Eng.Qassim اولا حمل التطبيق الاتى وقم بتنصيبه على الحاسوب https://drive.google.com/uc?id=1xHo6J688Vox4u9zwLzNbZUE1Mm1-9Vp4&export=download بعد ذلك جرب قاعدة البيانات الاتية Test.accdb

اتفضل fullName after.accdb

اتفضل طلبك هنا

كنت متخيل ان سهل تطبيقة معلش الموضوع كان دسم شوية والشرح كان كتير حبتين انا اسف على الاطالة وعدم وعدم وضع المفتاح من قبل على زر الامر Paste فى نموذج FrmNotReg غير ما يلزمك بدلا من هذا يا دكتور MsgBox _ Chrw("89") & Chrw("111") & Chrw("117") & Chrw("32") & Chrw("104") & Chrw("97") & Chrw("118") & Chrw("101") & Chrw("32") & Chrw("117") & _ Chrw("115") & Chrw("101") & Chrw("100") & Chrw("32") & Chrw("116") & Chrw("104") & Chrw("101") & Chrw("32") & Chrw("119") & Chrw("114") & _ Chrw("111") & Chrw("110") & Chrw("103") & Chrw("32") & Chrw("108") & Chrw("105") & Chrw("99") & Chrw("101") & Chrw("110") & Chrw("115") & _ Chrw("101") & Chrw("32") & Chrw("110") & Chrw("117") & Chrw("109") & Chrw("98") & Chrw("101") & Chrw("114") & Chrw("46") & Chrw("13") & _ Chrw("10") & Chrw("80") & Chrw("108") & Chrw("101") & Chrw("97") & Chrw("115") & Chrw("101") & Chrw("32") & Chrw("99") & Chrw("111") & _ Chrw("110") & Chrw("116") & Chrw("97") & Chrw("99") & Chrw("116") & Chrw("32") & Chrw("116") & Chrw("104") & Chrw("101") & Chrw("32") & _ Chrw("100") & Chrw("101") & Chrw("115") & Chrw("105") & Chrw("103") & Chrw("110") & Chrw("101") & Chrw("114") & Chrw("32") & Chrw("111") & _ Chrw("102") & Chrw("32") & Chrw("116") & Chrw("104") & Chrw("101") & Chrw("32") & Chrw("97") & Chrw("112") & Chrw("112") & Chrw("108") & _ Chrw("105") & Chrw("99") & Chrw("97") & Chrw("116") & Chrw("105") & Chrw("111") & Chrw("110") & Chrw("46")

المرفقات النهائية وسبق الشرح تفصيلا واجمالا لكل جزئية بالكود Anti Copy 3.accdbKey.accdb

السلام عليكم ورحمة الله وبركاته اعتذر لقلة حضورى بسب بعض الظروف القهرية فى الوقت الراهن ولكن امر على المنتدى من حين لاخر مرور الكرام وهذا المرفقين المرفق ضد النسخ لاى جهاز أخر ولا تعمل القاعدة الا بالرقم الخاص بالتفعيل الخاص لكل جهاز ومرفق لتوليد رقم التفعيل وهذه المشاركة تم فيها الشرح تقصيلا Anti Copy 3.accdb Key.accdb

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

لا شكر على واجب يا سيدى اهلا بيك

بسيطة ان شاء الله اتفضل يا سيدى New Microsoft Access Database (2-1).accdb

لن ينجح الامر مع كل دوال api بهذا التغير فقط ومن ضمنهم اخفاء اطار الاكسس ولكن لابد من بعض التعديلات الاخرى على بعض المتغيرات كما ان هناك اصلا دوال api لا تعمل مع نواة 64 حتى لو قمت بتغير ما تفضلتم به غير ان تلك الطريقة وان صادفت متغيرات تقبلها وعملت القاعدة سوف تفقد عمل القاعدة على النواة 32 ان تم تغيير الجاسوب لذا انصحكم بهذا الموضوع

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

لا احنا كده جمعنا اربع روس فى الحلال

اتفضل يا سيدى لا تنسى وضع افضل اجابة وهذه هى الاكواد المستخدمة Dim CalcAge As String Public Function IDData(IDNumber As Variant, Optional stype As Integer = 1) As Variant If IsNull(IDNumber) Or IDNumber = "" Or IDNumber = "" Or IDNumber = Empty Or IDNumber = vbNullString Or Len(IDNumber) = 0 Then IDData = "" Exit Function ElseIf Len(IDNumber) < 14 Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1571") & ChrW("1589") & ChrW("1594") & ChrW("1585") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("49") & ChrW("52") & ChrW("32") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("41") Exit Function ElseIf Len(IDNumber) > 14 Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1571") & ChrW("1603") & ChrW("1576") & ChrW("1585") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("49") & ChrW("52") & ChrW("32") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("41") Exit Function ElseIf Not IsNumeric(IDNumber) Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1604") & ChrW("1575") & ChrW("1576") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1573") & ChrW("1587") & ChrW("1578") & ChrW("1582") & ChrW("1583") & ChrW("1575") & ChrW("1605") & ChrW("32") & ChrW("1571") & ChrW("1585") & ChrW("1602") & ChrW("1575") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1602") & ChrW("1591") & ChrW("32") & ChrW("41") Exit Function ElseIf Not IsDate(Format(IIf(Left(IDNumber, 1) = 3, Mid(IDNumber, 2, 2) + 2000, Mid(IDNumber, 2, 2) + 1900) & "/" & Mid(IDNumber, 4, 2) & "/" & Mid(IDNumber, 6, 2), "yyyy/mm/dd")) Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1582") & ChrW("1591") & ChrW("1571") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1578") & ChrW("1575") & ChrW("1585") & ChrW("1610") & ChrW("1582") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1610") & ChrW("1604") & ChrW("1575") & ChrW("1583") & ChrW("32") & ChrW("41") Exit Function Else If stype = 1 Then Dim DateOfBirth As Date: DateOfBirth = Format(IIf(Left(IDNumber, 1) = 3, Mid(IDNumber, 2, 2) + 2000, Mid(IDNumber, 2, 2) + 1900) & "/" & Mid(IDNumber, 4, 2) & "/" & Mid(IDNumber, 6, 2), "yyyy/mm/dd") IDData = DateOfBirth Dim strYear As String: strYear = ChrW("1587") & ChrW("1606") & ChrW("1607") Dim strMnth As String: strMnth = ChrW("1588") & ChrW("1607") & ChrW("1585") Dim strDy As String: strDy = ChrW("1610") & ChrW("1608") & ChrW("1605") CalcAge = CalcAgeY(DateOfBirth, Date) & " " & strYear & " " & "," & CalcAgeM(DateOfBirth, Date) & " " & strMnth & " " & "," & CalcAgeD(DateOfBirth, Date) & " " & strDy ElseIf stype = 2 Then Dim strRegionCode As String: strRegionCode = Mid(IDNumber, 8, 2) Select Case strRegionCode Case Is = "01": IDData = ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1575") & ChrW("1607") & ChrW("1585") & ChrW("1577") Case Is = "02": IDData = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1587") & ChrW("1603") & ChrW("1606") & ChrW("1583") & ChrW("1585") & ChrW("1610") & ChrW("1577") Case Is = "03": IDData = ChrW("1576") & ChrW("1608") & ChrW("1585") & ChrW("1587") & ChrW("1593") & ChrW("1610") & ChrW("1583") Case Is = "04": IDData = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1608") & ChrW("1610") & ChrW("1587") Case Is = "11": IDData = ChrW("1583") & ChrW("1605") & ChrW("1610") & ChrW("1575") & ChrW("1591") Case Is = "12": IDData = ChrW("1575") & ChrW("1604") & ChrW("1583") & ChrW("1602") & ChrW("1607") & ChrW("1604") & ChrW("1610") & ChrW("1577") Case Is = "13": IDData = ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1585") & ChrW("1602") & ChrW("1610") & ChrW("1577") Case Is = "14": IDData = ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1604") & ChrW("1610") & ChrW("1608") & ChrW("1576") & ChrW("1610") & ChrW("1577") Case Is = "15": IDData = ChrW("1603") & ChrW("1601") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1610") & ChrW("1582") Case Is = "16": IDData = ChrW("1575") & ChrW("1604") & ChrW("1594") & ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1577") Case Is = "17": IDData = ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1610") & ChrW("1577") Case Is = "18": IDData = ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1581") & ChrW("1610") & ChrW("1585") & ChrW("1577") Case Is = "19": IDData = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1587") & ChrW("1605") & ChrW("1575") & ChrW("1593") & ChrW("1610") & ChrW("1604") & ChrW("1610") & ChrW("1577") Case Is = "21": IDData = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1610") & ChrW("1586") & ChrW("1577") Case Is = "22": IDData = ChrW("1576") & ChrW("1606") & ChrW("1610") & ChrW("32") & ChrW("1587") & ChrW("1608") & ChrW("1610") & ChrW("1601") Case Is = "23": IDData = ChrW("1575") & ChrW("1604") & ChrW("1601") & ChrW("1610") & ChrW("1608") & ChrW("1605") Case Is = "24": IDData = ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1606") & ChrW("1610") & ChrW("1575") Case Is = "25": IDData = ChrW("1571") & ChrW("1587") & ChrW("1610") & ChrW("1608") & ChrW("1591") Case Is = "26": IDData = ChrW("1587") & ChrW("1608") & ChrW("1607") & ChrW("1575") & ChrW("1580") Case Is = "27": IDData = ChrW("1602") & ChrW("1606") & ChrW("1575") Case Is = "28": IDData = ChrW("1571") & ChrW("1587") & ChrW("1608") & ChrW("1575") & ChrW("1606") Case Is = "29": IDData = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1602") & ChrW("1589") & ChrW("1585") Case Is = "31": IDData = ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1581") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1581") & ChrW("1605") & ChrW("1585") Case Is = "32": IDData = ChrW("1575") & ChrW("1604") & ChrW("1608") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1583") & ChrW("1610") & ChrW("1583") Case Is = "33": IDData = ChrW("1605") & ChrW("1591") & ChrW("1585") & ChrW("1608") & ChrW("1581") Case Is = "34": IDData = ChrW("1588") & ChrW("1605") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1587") & ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1569") Case Is = "35": IDData = ChrW("1580") & ChrW("1606") & ChrW("1608") & ChrW("1576") & ChrW("32") & ChrW("1587") & ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1569") Case Is = "88": IDData = ChrW("1605") & ChrW("1608") & ChrW("1575") & ChrW("1604") & ChrW("1610") & ChrW("1583") & ChrW("32") & ChrW("1582") & ChrW("1575") & ChrW("1585") & ChrW("1580") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1607") & ChrW("1608") & ChrW("1585") & ChrW("1610") & ChrW("1577") Case Else: IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1582") & ChrW("1591") & ChrW("1571") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1581") & ChrW("1575") & ChrW("1601") & ChrW("1592") & ChrW("1577") & ChrW("32") & ChrW("41") End Select ElseIf stype = 3 Then Dim GenderCode As Long: GenderCode = Mid(IDNumber, 13, 1) Select Case GenderCode Case Is = 1, 3, 5, 7, 9: IDData = ChrW("1584") & ChrW("1603") & ChrW("1585") Case Is = 0, 2, 4, 6, 8: IDData = ChrW("1571") & ChrW("1606") & ChrW("1579") & ChrW("1609") Case Else: IDData = "" End Select ElseIf stype = 4 Then IDData = CalcAge End If End If End Function Function CalcAgeY(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeY = vYears End Function Function CalcAgeM(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeM = vMonths End Function Function CalcAgeD(vDate1 As Date, vdate2 As Date) As String Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeD = vDays End Function على اعتبار أن xxx = الرقم القومى IDData(xxx, 1) او IDData(xxx) >>---> تاريخ الميلاد IDData(xxx, 2) >>---> محافظة الميلاد IDData(xxx, 3) >>---> النوع IDData(xxx, 4) >>---> حساب العمر قاعدة بيانات موظفين - (3).accdb

اتفضل السبب فى الخطأ ان حضرتك وضعت فى مصدر بيانات مربع النص fullName التعبير الاتى =[firstName] & " " & [secondName] & " " & [thirdName] & " " & [fourthName] ولذلك تم بالفعل نجميع الاسم الرباعى ولكن اصبح مربع النص fullName غير منضم ترى فيه النتيجة بالفعل ولكن لم تتم ادراج القيمة فى الجدل فى الحقل المطلوب fullName.accdb

دى طريقتى قاعدة بيانات موظفين - (2).accdb

جرب ضغط المرفق بأحد برامج الضغط اولا مثل WINRAR OR 7ZIP

أتفضل يا افندم انا فعلا غلطان واتسرعت فى الفكرة ممكن الحل بأكثر من طريقة 1- كتابة جملة الاستعلام ملخص حسابات العملاء2 فى محرر الاكواد بحيث يتغير المعيار تبعا لحالة مربع السرد مصدر التمويل وبناء على حالة مربع السرد كذلك يتغير مصدر بيانات النموذج تجميعات ملخص مصدر التمويل والذى سوف يتم كتابته كذلك من داخل محرر الاكواد 2- الطريقة الثانية كما فى المرفق الاتى بعمل عدد 2 استعلام ملخص حسابات العملاء2 , ملخص حسابات العملاء2A وعدد 2 نموذج ملخص مصدر التمويل , ملخص مصدر التمويلA Test1(4).accdb

طيب بعد التمعن فى الفوكيرة اللى فاتت لابد من التطبيق بتلك الالية بعدد 7 استعلامات الاستعلام النهائى والذى يظهر القيم المكررة هو qryUnionMob 3or2Colume (2).accdb

من واقع المرفق المقدم من استاذى الجليل واخى الحبيب الباش مهندس @Eng.Qassim ياريت تتعب شوية بعد اذن معاليك يعنى وتوضح عاوز تاخد اى بيانات تحديدا ومن اى كومبو ومتى تريد تنفيذ عملية النسخ لابد من شرح المطلوب تفصيلا الله ييرضى عليك ومتقلقش لا نأخذ فى المنتدى ضرائب على عدد الحروف المكتوبة فى السؤال من صاحب السؤال بل توضع الاجابات مجانا

لا توجد اى مشاكل وعلى كل حال لو تكرمت جرب هذه النسخة من القاعدة db7 Test.mdb

اتقضل يا استاذ @abouelhassan تم استبدال السطر الاتى داخل الاستعلام ملخص حسابات العملاء2 فى قى معيار الحقل Customer_Name [forms]![Form1]![Customers] بالسطر الاتى Like "*" & [forms]![Form1]![Customers] & "*" Test1(3).accdb

طيب يا استاذ @بلال اليامين تقدر تستخدم السطر ده فى الاستعلام بشكل مباشر على اعتبار ان اسم حقل تاريخ التعيين EmpHireDate DateAdd("yyyy",-3,[EmpHireDate]) فكرة كمان ممكن ستخدم الوظيفة الاتية داخل وحدة نمطية Public Function HireDateDiff( _ ByVal dtHireDate As Date, _ Optional nYear As Integer = 0 _ ) As Date dtHireDate = Format(dtHireDate, "dd/mm/yyyy") HireDateDiff = DateAdd("yyyy", -nYear, dtHireDate) HireDateDiff = Format(HireDateDiff, "dd/mm/yyyy") End Function ويتم استدعاء الوظيفة فى زوايا التطبيق سواء أكان فى استعلام او نموذج كالاتى HireDateDiff([EmpHireDate],3) مع ملاحظة أن الرقم 3 تستطيع تغييرة فقط بالرقم الذى تريد ان اردت مستقبلا تغييره الى أى رقم آخر

استاذ @abouelhassan ممكن تجرب المرفق الاتى ملاحظة لو ما وجدت ضالتك انا لم اقراء الموضوع اول كل الردود بتمعن اعتذر لذلك ولكن لسبب وظرف خارج عن ارادتى فى الوقت الراهن ولكن حاولت تقديم المساعدة قدر الامكان اسأل الله تعالى ان تجد ضالتكم Test1(2).accdb

طيب ما هو لازم يعمل كده للسبب الاتى افتح الجدول Employee_Num وانظر الى نوع حقل البيانات Employee_Num وهو AutoNumber يعنى حقل رقمى والان افتح الجدول TabSubEmployees وانظر الى نوع حقل البيانات Employee_Num وهو Short Text يعنى حقل نصى وحضرتك روحت مسوى بينهم علاقة مستحيل تتم Relationships يعنى مثلا تريد تسوى علاقة بين تمساح وغزالة .... العلاقة لن تتم والغزالة كان الله فى عونها اذن الغى العلاقة من Relationships واذهب الى الجدول TabSubEmployees فى وضع التصميم وقم بتغيير نوع حقل البيانات Employee_Num إلي نوع Number حتى يصبح حقل رقمى وبعدين اذهب مرة أخرى الى Relationships ووفق راسين فى الحلال وسوى بينهم علاقة شريفة كاملة وانظر الى النتيجة ملاحظة صغيرة : ليش تستخدم حقل الترقيم التلقائى للاكسس ضمن تصميمك هذا الحقل شأن داخل للأكسس وظيقته الفهرسة صيحتى لكل اترك هذا الحقل وشأنه ولا تستخدمة ضمن تصميمك واخرجه منن حساباتك واتركة سيؤدى وظيفته الخاصة وانت سوى ما بدك بعيد عنه دكتور @الحلبي كلامك مضبوط وصح و 100 ال 100 وانا كنت كاتب المشاركة والنور قطع ولما رجع لم انتبه لرد حضرتك يا دكتور Aziz 2.accdb

ولا شكر ولا اى شئ تحت امرك لو تكرمت ممكن مرفق ولو حابب ممكن ترفعه على جوجل وارسله برسالة خاصة او ارفقة واطلب حذفة بعد ذلك ما هو انا لازم اشوف التصميم وافهم الية العمل واسماء العناصر والكائنات التى يتعامل معها الكود ثم اتتبع الكود علشان اقدر افهم زى ما وضحت لسيادتك يا افندم فى اخطاء من خلال رموزها بتكون عارف سببها مباشرة وفى اخطاء مثل هذا الخطأ لها اكثر من سبب وللاسف لن يستطيع الاكسس توصيف الخطأ بشكل مباشر وصريح لاختلاف وكثرة الاسباب التى تؤدى الى هذه النتيجة المؤسفة وكما أوضح لكم استاذىي الجليل الاستاذ @kanory فى رده الكريم عليكم هذا شرح التوصيف تبعا لميكروسوفت أكسس وصف عام ومبهم لا يضع يديك على الخطأ بشكل مباشر وصريح