ابو جودي

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

دى فكرة 3or2Colume.accdb

أعراض الكود 2486 لا يمكنك تنفيذ هذا الإجراء في الوقت الحالي تحدث أخطاء Runtime errors دون سابق إنذار يمكن أن تظهر رسالة الخطأ على الشاشة في أي وقت يتم فيه تشغيل Microsoft Access في الواقع يمكن أن تظهر رسالة الخطأ أو بعض مربعات الحوار الأخرى مرارًا وتكرارًا إذا لم تتم معالجتها في وقت مبكر قد تكون هناك حالات لحذف الملفات أو ظهور ملفات جديدة على الرغم من أن هذا العَرَض يرجع إلى حد كبير إلى الإصابة بالفيروس حيث تعد الإصابة بالفيروس أحد أسباب أخطاء Runtime errors قد يواجه المستخدم أيضًا انخفاضًا مفاجئًا في سرعة الاتصال بالإنترنت وليس هذا هو الحال دائمًا او تقطيع فى الاتصال عبر الشبكة المحلية أسباب عدم تمكنك من تنفيذ هذا الإجراء في الوقت الحالي رمز 2486 أثناء تصميم البرنامج يقوم المبرمجون عادة بتوقع الأخطاء ومعالجتها من خلال رموزها ولا توجد تصميمات مثالية حيث يمكن توقع الأخطاء حتى مع أفضل تصميم للبرنامج يمكن أن تحدث مواطن الخلل Runtime errors إذا لم يتم مواجهة خطأ معين ومعالجته أثناء التصميم والاختبار تحدث أخطاء Runtime errors بشكل عام بسبب ترتيب الأكواد والغير متوافقة في نفس الوقت قد يحدث أيضًا بسبب مشكلة في الذاكرة أو برنامج تشغيل رسومات تالف أو الإصابة بالفيروسات أو عندما لا يكون التركيز على المكان الذي يجب أن يكون عليه لتنفيذ جزء من التعليمات البرمجية قد تحصل على هذا الخطأ مهما كانت الحالة يجب حل المشكلة على الفور لتجنب المزيد من المشاكل وفيما يلي طرق لتصحيح الخطأ طرق الإصلاح قد تكون أخطاء Runtime errors مزعجة ومستمرة ولكنها ليست ميؤوس منها تمامًا فالإصلاحات متاحة وفيما يلي طرق للقيام بذلك إذا كانت طريقة الإصلاح مناسبة لك فالرجاء توضيح الطريقة المناسبة لحل مشكلتك وسيتيح هذا لرواد المنتدي الآخرين معرفة طريقة الإصلاح الأفضل قد تواجه أيضًا خطأ Runtime errors بسبب مساحة خالية منخفضة جدًا على جهاز الكمبيوتر الخاص بك يجب أن تفكر في نسخ ملفاتك احتياطيًا وتحرير مساحة على محرك الأقراص الثابتة يمكنك أيضًا مسح ذاكرة التخزين المؤقت وإعادة تشغيل جهاز الكمبيوتر الخاص بك يمكنك أيضًا تشغيل Disk Cleanup وفتح نافذة المستكشف والنقر بزر الماوس الأيمن على دليلك الرئيسي ( Local Disk(c:) or Local Disk(D:) or Local Disk(E:) ) وذلك حسب الدليل او القطاع أو القرص من الهارد ديسك الموجود به قاعدة بياناتك ثم انقر فوق خصائص ثم انقر فوق تنظيف القرص وقد لا يكون هذا بالضرورة فيروس أعتقد أنه قد يكون مجرد شيء غير متاح بشكل عام عتصر غير موجود فى التصميم أو على سبيل المثال تحاول تغيير قيمة في مجموعة سجلات غير قابلة للتحديث وتعكس الرسالة الحالة الحقيقية للأمور إذا قمت بإضافة بعض تعويضات الأخطاء من خلال الأوامر البرمجية لتلافيها وتجنبها فيجب أن تكون قادرًا على تحديد أي جزء من تطبيقك يؤدي إلى هذه المشكلة بالضبط بافتراض أن لديك استعلام فمن الجدير بالذكر التأكيد أن تفتحه مباشرةً لتحديد ما إذا كان للقراءة فقط أم لا هذا الخطأ هو أحد الأخطاء "الشريرة والمستفذة" التي غالبًا ليس لها سبب حقيقي معروف غالبًا لم أتمكن أبدًا من الوصول إلى السبب الرئيسيى المباشر من هذا الخطأ عادة ، عندما أتعرض له يجب أن أعيد كتابة الكود البرمجي من الصفر مع التأكد من الكائنات التى يتعامل معها والية التعامل آسف جدا على الإطالة لا أستطيع أن أعطيك شيئًا أكثر إيجابية او سببا صريحا بطريق مباشر إذا لم يكن للخطأ أي تأثير على التنفيذ فيمكنك التخلص منه بالقيام بذلك: On Error GoTo ErrorHandler You'r Code procDone: Exit Function or Sub ErrorHandler: Select Case Err.Number Case Is = 2486: Err.Clear Case Else MsgBox$ Err.Number & ": " & Err.Description End Select Resume procDone End Function or Sub وياحبذا لو أرفقت قاعدة بياناتك التى تحتوى على تلك المشكلة

السلام عليكم ورحمة الله تعالى وبركاته مثل ما اخبر استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لم يستطع البرنامج حتى استرجاع الجداول ، فبرنامجك معطوب وهذه نتيجة تجربتى من خلال البرنامج Stellar Repair for Access ويمكنك الذهاب الى موقع البرنامج من هنا لتأخذ فكرة عن إمكانياته ويمكنك مراجعة المقال الاتى https://www.stellarinfo.com/blog/how-to-fix-microsoft-unrecognized-database-format-error/ والنصيحة الذهبية لاستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr دائما تقوم بعمل نسخة احتياطية طباعه May 24, 2022, 12.30.40 PM.zip

طيب جرب الان TestLock.accdb

على كل جرب المرفق وقولى انا قدرت افهمك واللا إيه TestLock.accdb

طيب واحدة واحدة لان انا مش عارف افهم ---أولا------------------------- RegistrationDate=30/4/2022 DayDate=1/5/2022 to 9/5/2022 تكون النتيجة .AllowAdditions = False .AllowEdits = False .AllowDeletions = False DayDate=10/5/2022 to 31/5/2022 تكون النتيجة .AllowAdditions = True .AllowEdits = True .AllowDeletions = True ---ثانيا------------------------- RegistrationDate=30/4/2022 DayDate=1/6/2022 to 9/6/2022 تكون النتيجة .AllowAdditions = False .AllowEdits = False .AllowDeletions = False DayDate=10/6/2022 to 30/6/2022 تكون النتيجة .AllowAdditions = True .AllowEdits = True .AllowDeletions = True وهكذا على كل شهر جديد

نعم يمكن ذلك وبكل سهولة جدا جدا جدا

احيانا تقابلنا مواقف يكون فيها هذا حالنا بدون أى مبالغة نظل بالساعات نفحص ونمحص ونصرخ بأعلى صوت " هو فى ايـــــــــــــــه .. إيه اللى بيحصل ده هتجنن " وتارات أخرياااااااااااات وتصحى تلاقى النظارة مكسورة وازرار الكيبورد مطبوعة على خدودك العنابى هاهاهاهاهاهاهاهاها