ابو جودي

ملاحظة هامة اذا تم تشفير قاعدة الى Accde من النواة الـ 32x لن تعمل على النواة الـ 64x للاسف

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

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

جزاكم الله خيرا 🌹 لم اقم بحفظ اسم الملف نظرا لان الكود القديم كان يقوم بعمل حفظ للمرفق برقم ال ID لذلك لم تستدعى الحاجه لإضافة بيانات وحقل بلا داعى 😉

جزاكم الله خيرا اخبرونا عن السبيل والالية

اتفضل وهذا المرفق الجديد وان شاء الله يعمل على كلتا النواتان 32X , 64X وبدون اى مشاكل نسخه من مرفق (2).accdb

لم يتم عمل التحويل الصحيح لأكواد استدعاء دوال الـ Api داخل الموديل لتتناسب مع النواة 64 ولكن الكود طويل جدا جدا جدا وزحمة ع الفاضى وما يستاهل حتى الواحد يتعب فيه وعلى مقولة انسف حمامك القديم سأقوم بعمل التعديلات الازمة

اتفضل ser2.rar

بشركم الله بما يسركم .. وكف عنكم مايضركم .. وثبت يقينكم .. ورزقكم حلالا يكفيكم .. وأبعد عنكم كل شئ يؤذيكم .. وغفر لكم ولوالديكم ولكل المسلمين والمسلمات يوم العرض .. اللهم آمين 🤲

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

ممكن توضيح اكثر انا مش فاهم سؤال حضرتك

جزاكم الله خيرا استاذى الجليل ومعلمى القدير و والدى الحبيب بارك الله فيكم وادمكم الله اعتذر لغيابى

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

شوف يا سيدى انا بالفعل شرعت فى عمل الاجابة لكم ولكن.. اولا اعتذر لضيق وقتى بسبب ظروف قهرية ثانيا : لا انصحك بعمل ذلك والسبب التشفير لا يتم على البيانات داخل الجدول اجمالا وانما يتم على كل حقل ولذلك بناء الكود سوف يكون كالاتى كود بقوم بعمل دوران على كل الجدول باستثناء جداول المستخدمين للدخول وجدول بيانات الفترة التجريبية ايا كان عدد الجدول واثناء الدوران كود لجلب اسماء الحقول لكل جدول على حده كود لعمل دوران داخل سجلات كل جدول لكل حقل على حدة لاجراء عملية التشفير يعنى : لو الجدول X يحتوى على 5 حقول ويضم 1000 سجل يتم الدوران الف مرة للتشفير البيانات لحقل 1 ثم اعادة العملية للحقل 2... يعنى يتم الدوران 5000 مرة اعتقد الموضوع سوف يأخذ الكثير من الوقت بكثر البيانات وعدد الجداول ؟ رأى المتواضع لا اجبذ القيام بذلك وتحضرنى هنا مقولة لاستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل بارك الله فى عمره وكل اساتذتنا الافاضل الكرام انت تملك الحقوق الفكرية فى التصميم ولكن المستخدم يملك البيانات

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

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

فى جدول بيتم انشاؤه باسم Tablex استعلام الالحاق بياخد منه البيانات وبعد مدع بيتمسح الحدول ده بس كده هذا الكود الموجود على زر الامر DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True DoCmd.SetWarnings False DoCmd.OpenQuery "import_tbl" 'DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True txtImportFile = "" MsgBox "Data imported successfully" هذا السطر الخاص بعملية استيراد البيانات من ملف الاكسل الى الجدول Tablex DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True وهذان السطران لايقاف رسائل تشغيل الاستعلام واعادة مرة اخرى بعد الانتهاء من الكود DoCmd.SetWarnings False DoCmd.SetWarnings True وهذا الكود بين السطرين السابقين السطر الاول لتشغيل استعلام الالحاق السطر الثانى لحذ الجدول DoCmd.OpenQuery "import_tbl" DoCmd.DeleteObject acTable, "Tablex"

اتفضلوا يا باش مهندسين طلبكم جاهز

السلام عليكم ورحمة الله تعالى وبركاته اجندة مواعيد الكترونية حتى يأخذ كل ذى حق حقه المرفق مثال أجنبى تم التعديل عليه وتم استخدام افكار وأكواد من المنتدى تخص الاستاذ @أبو آدم جزاه الله خيرا وتم اضافة بعد التعديلات من العبد الفقير الى الله والتى كانت تناسبنى وقت التعديل على المرفق وتم اضافة وتطوير المرور بين الاشهر والسنوات ملاحظة هامة : تم تحديث التكويد الخاص بدوال الـ API ليدعم العمل على النواتان 32x , 64x ولكن لن استطيع التجربة فى الوقت الحالى للنواة 32x برجاء من يقوم بتجربة المرفق يذكر أصدار نواة الأوفيس الخاص بجهازه وبالأخص من يملك النواة 32x Outlook Style Calendar.mdb

ابشروا بالخيـر ان شاء الله

وهذه قاعدتك بعد التعديل ترتيب الطلبة.zip

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

وهذا تطبيق مبدئى GeneratorPassword.accdb

اتفضل استخدم الكود الاتى فى وحدة نمطية Public Function OfficenaGeneratePwd(Optional iNoChars As Integer = 10, _ Optional bNumeric As Boolean = True, _ Optional bUpperAlpha As Boolean = True, _ Optional bLowerAlpha As Boolean = True, _ Optional bSpecialChr As Boolean = True, _ Optional sSpecialChr As String = "'?,./<>|\[]{}:;#$%&()*+-@_""" & "!`~@#$%^&*()=€¥»«©®™°¢£•÷׶") On Error GoTo Error_Handler Dim AllowedChars() As Variant Dim iCounter As Integer Dim i As Integer Dim iRndChar As Integer Dim iNoAllowedChars As Long Const sModName = "modGeneratorPassword" 'Initialize our array otherwise it throws an error ReDim Preserve AllowedChars(0) AllowedChars(0) = "" 'Numeric If bNumeric = True Then For i = 48 To 57 iCounter = UBound(AllowedChars) ReDim Preserve AllowedChars(iCounter + 1) AllowedChars(iCounter + 1) = i Next i End If 'Uppercase Alphabet If bUpperAlpha = True Then For i = 65 To 90 ReDim Preserve AllowedChars(UBound(AllowedChars) + 1) iCounter = UBound(AllowedChars) AllowedChars(iCounter) = i Next i End If 'Lowercase Alphabet If bLowerAlpha = True Then For i = 97 To 122 ReDim Preserve AllowedChars(UBound(AllowedChars) + 1) iCounter = UBound(AllowedChars) AllowedChars(iCounter) = i Next i End If 'Special Characters If bSpecialChr = True Then If Trim(sSpecialChr) <> "" Then For i = 1 To Len(sSpecialChr) ReDim Preserve AllowedChars(UBound(AllowedChars) + 1) iCounter = UBound(AllowedChars) AllowedChars(iCounter) = Asc(Mid$(sSpecialChr, i, 1)) Next i End If End If 'Generate Password iNoAllowedChars = UBound(AllowedChars) For i = 1 To iNoChars iRndChar = Int((iNoAllowedChars * Rnd) + 1) OfficenaGeneratePwd = OfficenaGeneratePwd & Replace(Chr(AllowedChars(iRndChar)), "'", "''") Next i Error_Handler_Exit: On Error Resume Next Exit Function Error_Handler: MsgBox "The following error has occured." & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: " & sModName & "/OfficenaGeneratePwd" & vbCrLf & _ "Error Description: " & Err.Description, _ vbCritical, "An Error has Occured!" Resume Error_Handler_Exit End Function يتم استدعاء الكود كالاتى OfficenaGeneratePwd(10, true, true,True,True) الرقم 10 طول السلسلة النصية المكونة للباسورد >>---> طبعا يمكن تغيره حسب حاجتكم الـ True الاولى لاستخدام الأرقام لو لا تريد استخدام الأرقام اجعلها False الـ True الثانية لاستخدام الحروف الكابيتال لو لا تريد استخدام الحروف الكابيتال اجعلها False الـ True الثالثة لاستخدام الحروف الاسمول لو لا تريد استخدام الحروف الاسمول اجعلها False الـ True الرابعة لاستخدام الرموز الخاصة لو لا تريد استخدام الرموز الخاصة اجعلها False انا وضعت بالكود الرموز الخاصة جاهزة والتى تناسبنى ولكن انا لا اجبر المستخدم على استخدام الكود كما هو جعلت مرونة فى الكود بحيث يمكن للمستخدم وضع الرموز فقط التى يفضلها على سبيل المثال نريد استخدام الرموز الاتية فقط -+*/ يكون استدعاء الكود بالشكل الاتى OfficenaGeneratePwd(10, true, true, True, True, "-+*/")

ابشر بالخيـر ان شاء الله جارى العمل على تنفيذ طلبكم