ابو جودي

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

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

انتم روعة حياتنا بارك الله فيكم وكل اخواننا الكرام واساتذتنا الافاضل ولكن يا سيدى الاستاذ @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, "-+*/")

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

الف الف مبرووووووووك اعتذر عن التأخيـــــــــــــــر

السلام عليكم ورحمة الله تعالى وبركاته هذا المرفق نزولا على رغبة اخ كريم Filter Utility.accdb

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

بارك الله فى استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr انا وضعت بناء الكود اجمالا ومعلمى الجليل وضعه تفصيلا على تلك الحالة خصيصا وبناء الكود خصيصا لتلك الحالة يمكن استخدامة بهذا الشكل كذلك باستخدام Select Case لانى احب استخدامها اكثر من استخدام IF On Error GoTo ErrorHandler DoCmd.FindRecord Me.booknamex, acEntire, False, , True, acCurrent, True ExitHandler: Exit Sub ErrorHandler: Select Case Err.Number Case Is = 2137 MsgBox "يا رجال حست وحست وما لقيت بو تدور عليه" Resume Next Case Else MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description Resume ExitHandler End Select طبعا تستخدم Exit Function أو Exit Sub حسب الكود

تحت امرك يا دكتور ان شاء الله

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

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

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

طبعا سوف يتم تفادى المشكلة باستخدام هذا السطر ولكن لا احبذ استخدامه لانه سوف يتفادى اى خطا أخر غير ذلك وان كانت هناك مشكلة أخرى لن يستطيع المصم معرفة سبب المشكلة بسبب هذا السطر لذلك الافضل استخدام ErrorHandler ولذلك طلبت المرفق وعلى كل حال handler syntax error يكون بالشكل الاتى On Error GoTo ErrorHandler ' Insert code that might generate an error here Exit Sub or Exit Function ErrorHandler: ' Insert code to handle the error here Resume Next

ممكن مرفق من قاعدتك لو تكرمت ؟