ابو جودي

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

وهل تاريخ يوم الأحد ثابت واللا سوف يتغير ويكون هناك الكثير من ايام الاحد بتواريخ مختلفة ؟ وهل تريد ذلك ليوم الاحد فقط ام على جميع الايام حسب اختيارك ؟ حاول تشرح شرح بسيط لما تريده اجمالا حتى تتضح الرؤية أكثر من ذلك فهى بالنسبة لى الان ضبابية ولا استطيع التفكير ولاحظ ان الاستعلام المبنى عليه العمل فى النموذج الفرعى هو كلي0 وهذا الاستعلام يتكون من ثلاث جداول 1- التنسيق_جدول_كلي 2- التنسيق_بيانات_المادة 3- ايام_الاسبوع لذلك أن اردنا نسخ الخقول المختارة وتغيير اليوم الى الاحد لابد من التغيير فى الجدول 3- ايام_الاسبوع فان اردت الحاق البيانات الى الاحد الموجود فقط فى هذا الجدول لها طريق وان اردت يوم احد اخر بتاريخ اخر سوف يكون طريق أخر فى الية العمل والتفكير ولان الجدول مرتبطة بعلاقات لابد من الحاق البيانات تبعا للجداول والعلاقات لذلك لابد من التوضيح أكثر كما أشرت إليك بعاليه

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

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

اتفضل يا سيدى حاول كتابة الجدول باللغة الانجليزية وكذلك الحقول ان اضطررت لكتابة كلمة مكونة من أكثر من مقطع اكتب كل الحروف صغيرة ماعدا اول حرف من كل مقطع يكون أحرف كبيرة ولا تترك مسافات بين المقاطع ولا تستخدم هذه العلامة - بين المقطاع وان اردت استخدام علامات استخدم هذه العلامة _ بدلا من السابقة كل ذلك يسهل عليك كتابة الاكواد داخل محررد الاكواد او منشئ التعبير داخل الاستعلامات مستقبلا ويجنبك اخطاء ومشاكل انت فى غنى عنها وحاول ان لا تستخدم حقل الـ ID الذى ينشئه الأكسس تبقائئيا فى تصميمك اتركه للاندكس أفضل وانظر الى الرتب الافضل عمل جدول خاص بها ونستخدم المعرف الخاص بها فى جدول الموظفين ليكون خثلا رقميا بدلا من الحقل النصى وذلك لتقليل حجم البيانات مما ينعكس عليه حجم قاعدة بيانات ذلك افضل تقبل مودتى واعتذر للاطالة وأخير القاعدة من وجهة نظرى المتواضعة كما ينبغى ان تكون Database1011 v2.accdb

جزاكم الله خيــــرا استاذ @nabilalibibo لا شكر على واجب واعتذر لم انتبه لوجود نموذج يعتمد على الاستعلام ابشر جارى العمل على تعديل النموذج

وإثراء للموضوع فكرتى المتواضعة على طريقة المعقدين نقسيا امثالى من بعد إذن استاذى الجليل ومعلمى القدير الاستاذ @Barna عدد 2 وظيفة ليمكن تطبيق المطلوب فى زوايا قاعدة البيانات الوظيقة الأولى حساب مدة التقاعد ولان المطلوب زيادة سنه فلقد تم التعامل مع الاكواد على ان يكون الوضع المفضل سنة واحدة بطريقة الية وفى حالة إن اراد المستخدم الزيادة عن السنة من خلال عدد الأيام من واقع ( مدة اضافية ) يتم ذلك بسهولة عند استدعاء الوظيفة بكل سهولة Public Function RetirementDate( _ ByVal dtContractDate As Date, _ Optional nDay As Integer = 0, _ Optional nYear As Integer = 1 _ ) If nDay = 0 Then RetirementDate = DateAdd("yyyy", nYear, dtContractDate) Else RetirementDate = DateAdd("yyyy", nYear, dtContractDate) RetirementDate = DateAdd("d", nDay, RetirementDate) End If RetirementDate = Format(RetirementDate, "dd/mm/yyyy") End Function طريقة استدعاء الوظيفة الاتية لحساب مدة التقاعد كالاتى RetirementDate([ContractDate],nz([addDayCont],0) ContractDate = تاريخ بدأ التعاقد ( تاريخ التعيين ) addDayCont = عدد الايام المضافة ( مدة اضافية ) ---------------------------- حساب الايام المتبقية للاحالة للتقاعد Public Function MyDayRem(GetRetirementDate) Dim EndContract As String EndContract = ChrW("1578") & ChrW("1593") & ChrW("1575") & ChrW("1602") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("1578") & ChrW("1607") & ChrW("1609") MyDayRem = IIf(DateDiff("d", Now(), GetRetirementDate) <= 0, EndContract, DateDiff("d", Now(), GetRetirementDate)) End Function طريقة استدعاء الوظيفة الاتية لحساب عدد الإيام المتبقية للإحالة إلى التقاعد كالاتى MyDayRem([RetirementDateValue]) وهذا ملف التطبيق تم التطبيق فى الاستعلام qryRetirDate من خلال الاكواد فى الوحدة النمطية Database1011.accdb

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

جرب كده ولو تكرمت ممكن ترفق القاعدة كاملة رسالة خطاء عند فتح سجل جديد.accdb

اتفضل يا سيدى غير الاكواد داخل الموديول بتلك الاكودا التعديل يتوافق للعمل على كلتا النواتان 32 , 64 انا الان قمت بالتجربة على 64 برجاء التجربة على 32 وموافتنا بالنتيجة #If VBA7 Or Win64 Then Private Declare PtrSafe Function CallNextHookEx Lib "user32" (ByVal hHook As LongPtr, ByVal ncode As LongPtr, ByVal wParam As LongPtr, lParam As Any) As LongPtr Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As LongPtr Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As LongPtr, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As LongPtr) As LongPtr Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As LongPtr Private Declare PtrSafe Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" (ByVal hDlg As LongPtr, ByVal nIDDlgItem As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As LongPtr) As LongPtr Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As LongPtr #Else Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook as long, ByVal ncode as long, ByVal wParam as long, lParam As Any) as long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) as long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA"(ByVal idHook As LongPtr, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As LongPtr) As LongPtr Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook as long) as long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" (ByVal hDlg as long, ByVal nIDDlgItem as long, ByVal wMsg as long, ByVal wParam as long, ByVal lParam as long) as long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd as long, ByVal lpClassName As String, ByVal nMaxCount as long) as long Private Declare Function GetCurrentThreadId Lib "kernel32" () as long #End If 'Constants to be used in our API functions Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 #If VBA7 Or Win64 Then Private hHook As LongPtr #Else Private hHook As Long #End If Public Function NewProc(ByVal lngCode As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr Dim RetVal Dim strClassName As String Dim lngBuffer As LongPtr If lngCode < HC_ACTION Then NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then RetVal = GetClassName(wParam, strClassName, lngBuffer) If Left$(strClassName, RetVal) = "#32770" Then SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If CallNextHookEx hHook, lngCode, wParam, lParam End Function Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, Optional YPos, Optional HelpFile, Optional Context) As String On Error GoTo ExitProperly Dim lngModHwnd As LongPtr Dim lngThreadID As LongPtr lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook ExitProperly: UnhookWindowsHookEx hHook End Function -------------------------------------------------------- للاسف مش دايما بيكون ده التعديل وبس شوف الكود وانت تعرف الفرق وغير انت الملف القديم وجربه مش راح يشتغل وهذا مرفق التطبيق بعد التعديل DeleteWithPassword.accdb

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

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

ممكن المرفق

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

السلام عليكم ورحمة الله تعالى وبركاته احيانا نريد عمل معرف خاص بنا برمجيا طبعا يختلف الكود تبعا لاسم الجدول والحقل ونوع الحقل اليوم سوف اقدم لكم فكرتى المتواضعة فى تلك الوظيفة التى يمكن وضعها فى وحدة نمطية ليمكن -استدعاؤها فى زوايا التطبيق المختلفة بكل سهولة -امكانية التحكم اثناء استدعاء الوظيفة فى البادئة ان اردت اضافة بادئة ما -التحكم فى موعد اعادة التعيين ليبدأ العدد من الرقم 1 مرة أخرى سنويا او شهريا او يوميا الكوووووود '|---10/04/2022______________________________________________| '|___www.officena.net________________________________________| '| | '| _ +-----------officena-----------+ _ | '| /o) | ||||| | (o\ | '| / / | @(~O^O~)@ | \ \ | '| ( (_ | _ ----oOo--Moh--oOo----- _ | _) ) | '| ((\ \) +/o)----------3ssam---------(o\+ (/ /)) | '| (\\\ \_/ / \ \_/ ///) | '| \ / \ / | '| \____/________Mohammed Essam________\____/ | '| | '| 10/04/2022 | '| | '|_____www.officena.net______________________________________| '|_____Thank you for visiting https://www.officena.net_______| '======Control in Special increment prefix ID===============================================================================================================================' ' ____ __ ____ ____ __ ____ ____ __ ____ ______ _______ _______ __ ______ _______ .__ __. ___ .__ __. _______ .___________. ' ' \ \ / \ / / \ \ / \ / / \ \ / \ / / / __ \ | ____|| ____|| | / || ____|| \ | | / \ | \ | | | ____|| | ' ' \ \/ \/ / \ \/ \/ / \ \/ \/ / | | | | | |__ | |__ | | | ,----'| |__ | \| | / ^ \ | \| | | |__ `---| |----` ' ' \ / \ / \ / | | | | | __| | __| | | | | | __| | . ` | / /_\ \ | . ` | | __| | | ' ' \ /\ / \ /\ / \ /\ / __| `--' | | | | | | | | `----.| |____ | |\ | / _____ \ __| |\ | | |____ | | ' ' \__/ \__/ \__/ \__/ \__/ \__/ (__)\______/ |__| |__| |__| \______||_______||__| \__| /__/ \__\ (__)__| \__| |_______| |__| ' ' ' '===========================================================================================================================================================================' Function MySpid( _ ByRef strFieldName As String, _ ByRef strTableName As String, _ Optional strPrefixe As String = vbNullString, _ Optional strResetYYorMMorDD As String = "YY", _ Optional nDay As Integer = 0, _ Optional nMonth As Integer = 0, _ Optional nYear As Integer = 0) As String Dim strLinkCriteria As String Dim strOldID As String Dim strNxtID As Long Dim intLenPrefixe As Integer Const intNumberOfZeros = 6 intLenPrefixe = Len(strPrefixe) + 1 If nDay = 0 Then nDay = Format(Date, "dd") If nMonth = 0 Then nMonth = Format(Date, "mm") If nYear = 0 Then nYear = Year(Date) - 2000 Select Case strResetYYorMMorDD Case Is = "YY": strLinkCriteria = Nz(Right(Mid(Nz(DLast(strFieldName, strTableName), 0), intLenPrefixe, 6), 2), 0) = nYear ' Yearly Reset Case Is = "MM": strLinkCriteria = Nz(Right(Mid(Nz(DLast(strFieldName, strTableName), 0), intLenPrefixe, 4), 2), 0) = nMonth ' Monthly Reset Case Is = "DD": strLinkCriteria = Nz(Right(Mid(Nz(DLast(strFieldName, strTableName), 0), intLenPrefixe, 2), 2), 0) = nDay ' Daily Reset End Select strOldID = Nz(DLast("" & strFieldName & "", strTableName, strLinkCriteria), 0) strNxtID = CLng(Right(strOldID, intNumberOfZeros)) strNxtID = strNxtID + 1 MySpid = strPrefixe & Format(nDay, "00") & Format(nMonth, "00") & Format(nYear, "00") & _ String(intNumberOfZeros - Len(CStr(strNxtID)), "0") & CStr(strNxtID) End Function يتم استدعاء الوظيقة بشكل عام من خلال الكود الاتى MySpid("FldName", "TblName") فى هذه الحالة يتم اعادة تعيين الترقيم سنويا ------------ ولكن للتحكم الكامل ولتغيير الاعدادات MySpid("FldName", "TblName", "AnyPrefixe", "yy or MM OR DD","DayDate","MonthDate","YearDate") AnyPrefixe البادئة التى تريد أن تبدأ الترقيم بها غيرها كما تريد MySpid("FldName", "TblName", "AnyPrefixe") yy or MM OR DD لو اردت اعادة تعيين الترقيم سنويا سوف تكون yy وبدون استخدام هذا الجزء هذا هو الاحتيار المفضل تبعا للكود MySpid("FldName", "TblName", "AnyPrefixe", "yy") لو اردت اعادة تعيين الترقيم شهريا سوف تكون MM MySpid("FldName", "TblName", "AnyPrefixe", "MM") لو اردت اعادة تعيين الترقيم يوميا سوف تكون DD MySpid("FldName", "TblName", "AnyPrefixe", "DD") --------- DayDate لتبدأ الترقيم من خلال رقم يوم محدد يعنى مثلا لو اردنا الترقيم يبدا من يوم 23 MonthDate لتبدأ الترقيم من خلال رقم شهر محدد يعنى مثلا لو اردنا الترقيم يبدا من شهر 09 YearDate لتبدأ الترقيم من خلال رقم سنه محدد يعنى مثلا لو اردنا الترقيم يبدا من عام 21 اجمل الامنيات بالاستمتاع مع هذا الكود وهذه الافكار هذا الاصدار الاول من كتابتى للكود لم اتمكن من التجربة بشكل كبير.. فضلا وكرما موافاتنا بالنتيجة فى حالة حدوث اى خطأ Special increment prefix ID.accdb

طيب ولماذا نكتب الكود حسب المعطيات ليه ما نكتب كود ذكى وهو يشتغل لحاله حسب حاجة المستخدم يعنى بدون لا تعديل فى كتابة الاكواد ولا شئ ويقدر يشتغل مع اى قاعدة او اى جدول او اى حقل مهما كانت الاسماء واختلفت كمان يكون اكثر ذكاء يقدر يبدا الترقيم بالبادئة الى يريدها المستخدم en , ex or Mossa كمان يكون اكثر ذكاء يقدر يقدر يعمل اعادة التعيين للترقيم حسب الحاجة يوميا او شهريا او سنويا يعنى يعمل رسيت لوحدة حسب انت عاوزه يعمل الرسيت امتى من نفسه لوحده بدون ما تدخل تعدل شئ فى الكود فكر كده شوية يا باش مهندس ودعبس هنا وهناك @Moosak الاقيش عندك الكود الذكى ده لو مش عتدك اتفضل

والمرفقات النهائية بهذا الموضوع المرفق الاول من خلال تمرير البيانات الى اداة تم تصميمها من خلال vb.net ولكن بعض البرامج المضادة للفيروسات تتعامل معها على انها تطبيق مشبوه بطيئ نسبيا لان البيانات يتم تمريرها من الاكسس الى تلك الاداة ويتم ارجاع التشفير الى قاعدة البيانات مرة اخرى المرفق الثانى وهو الأفضل يعتمد على مكتبات جافا تم تنقيح الموضوع قدر الامكان بأخفاء المشاركات التى لا تؤثر على الموضوع بسبب كثرتها بلا داعى اثناء التنقاش والتجارب تاريخ التنقيح ٩ رمضان ١٤٤٣ هـ / 10 -أبريل -2022 م

التطبيق الثانى والذى يعتمد على مكتبات الجافا اليكم كود الاستجابة السريع QR CODE (يدعم اللغة العربية) بدعم مكتبة جافا حسب متطلبات هيئة الزكاة والضريبة والجمارك السعودية علما انه يتم قراءة الرمز عبر قارىء خاص بالهيئة ( تطبيق جوال ) حمل من هنا : تطبيق هيئة الزكاة والضريبة والجمارك كما يتم قراءة الرمز عبر قارىء خاص من خلال موقع على الانترنت إذهب الى الموقع : من هنا متطلبات التشغيل : Framework الاصدار 4 ------------------------------------------------------------------------------- يمكن تحميل الملف الاتى هو يقوم بالتحديثات اللازمة سواء ويندوز 7 , 10 , 11 إذهب الى موقع التحميل : من هنا ( تحميل مباشر من mediafire .. من رفعي انا على حسابي الشخصي بالموقع ) ميزات برنامج All in one Runtimes: سهل الاستخدام و مفيد للغاية في تقليل الزمن الضروري للبحث عن الأدوات كلٍ على حدا. مجاني بشكل كامل و يقدم الكثير من الفائدة و يمكنه حمايتك من المواقع التي قد تصيب جهازك بفيروسات سيئة عند التحميل منها. يعمل بشكل ذكي حيث يقوم بتحديد ما يحتاجه حاسبك و لن يقوم بتثبيت كل الأدوات بشكل عشوائي. يقدم مجموعة كبيرة من الأدوات الضرورية في حاسبك و أهمها: .NET Framework 4.6 + Updates Java Runtime Environment 8 DirectX 9.0c Extra files General runtime files Microsoft Visual C++ Runtimes (v2005 – v2015) Microsoft Visual J# 2.0 SE Microsoft Silverlight 5 Shockwave Player 12 (Internet Explorer Plugin) ------------------------------------------------------------------------------- الجديد فى هذا الموضوع وسبب تطوير تلك القاعدة . نظرا للمشاكل التي واجهت أحبابي سابقا بسبب تسجيل الملفات .. تم بفضل الله تعالى حل كل المشاكل تقريبا لن نحتاج الى نقل مجلد ملفات مكتبات الـ DLL الى أي مكان يتم إنشاء المجلد اليا بنفس مسار القاعدة يتم تحميل الملفات من قاعدة البيانات اليا تشغيل ملف التسجيل Register.bat اليا.. عند فتح القاعدة للمرة الأولى ومحاولة انشاء رمز الـ Qr وفى حالة عدم تسجيل مكتبة الجافا يتم اغلاق القاعدة اليا وفتح ملف التسجيل كمسؤول نظام دون أي تدخل من المستخدم نهائيا مميزات القاعدة الحفاظ على الملفات الهامة بحملها داخل القاعدة وتحميلها لمسار القاعدة فى كل مرة يتم فيها فتح القاعدة شغيل ملف التسجيل Register.bat اليا عند الحاجة لذلك يدعم النواتان 64 , 32 تشفير البيانات طبقا لمتطلبات هيئة الزكاة والضريبة والجمارك السعودية الاحتفاظ بالبيانات المشفرة لكل سجل حجم الصورة الخاصة برمز الاستجابة السريع QR CODE صغير جدا لمن يريد الاحتفاظ بهم لكل سجل أتمنى لكم تجربة ممتعة ... E-Invoicing Java.zip

بسبب الحقل المحسوب ولذلك لا اجبذ استخدام الحقول المحسوبة داخل الجداول لو وضعنا هذا السطر فى الاستعلام بدلا من الحقل المحسوب وحذفنا الحقل المجسوب من الجدول لوجدنا نفس سرعة فته الجدول = نفس سرعة فته الاستعلام ReceiptsPaidCount: IIf(IsNull([Mnth1]),0,1)+IIf(IsNull([Mnth2]),0,1)+IIf(IsNull([Mnth3]),0,1)+IIf(IsNull([Mnth4]),0,1)+IIf(IsNull([Mnth5]),0,1)+IIf(IsNull([Mnth6]),0,1)+IIf(IsNull([Mnth7]),0,1)+IIf(IsNull([Mnth8]),0,1)+IIf(IsNull([Mnth9]),0,1)+IIf(IsNull([Mnth10]),0,1)+IIf(IsNull([Mnth11]),0,1)+IIf(IsNull([Mnth12]),0,1)

طيب تم التجربة على عدد سجلات 3,211,117 مبسوط يا باش مهندس @Eng.Qassim اكثر من 3 مليون سجل 1574759973_(3).rar

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

اتفضل يا سيدى تسديدات العميل (2).accdb

جزاكم الله خيرا ---------------- طيب للايضاح أكثر ممكن حضرتك تقول لى بالنسبة للعميل رقم 9 مجموع الحقول الاشهر التي سددها العميل المفروض تساوى كام ؟ رقم اخر وصل المفروض = ايه من واقع البيانات فى المرفق

الان تقريبا فهمت شوفت فايدة المرفق انتظرنى بعد الفطار فى فوكيره حلوه ان شاء الله تحقق مرادك ولكن اسمح لى سوف اجرى الكثير من التعديلات اهمها واولها اسماء الحقول باللغة الانجليزية لتجنب المشاكل

اتفضل يا سيدى Change Font (2).mdb