Foksh

⏳ باقي من الوقت : 6 أيام حتى نهاية التحدى الثاني وما زال البحث جاري عن مبتكرين وخلّاقي أفكار جديدة ، وليس أفكار نسخ ولصق ، وتعديل على أفكار موجودة

وعليكم السلام ورحمة الله وبركاته .. أهلاً بك معنا أخي الكريم sgreffier_sf0315 ، ونسعد بانضمامك لأسرتنا الكبيرة هذه . متأملين منك أن تقرأ شروط المشاركات في المنتدى هنا . ومنها كأساسيات وللتذكير :- وأود لفت انتباهك إلى أن الزر "اختر تمت الإجابة" يستخدم عادة عندما تجد الحل لطلبك ، واختياره للمشاركة التي حققت لك طلبك . أهلاً بك معنا

هههههههه انا قلت يمكن بعدل شي أو يضيف شي داخل الملف للتمييز بينهم 😛 إن شاء الله حال وصولي لنسبة ترضي غرور أفكاري 😁 ، لن أبخل عليكم بها

بعض ما عندكم يا أستاذنا الكبير .. أتمنى أن تكون قد غيرت به شيئاً مخفياً كي نميز بين المرفق السابق ، والتالي .. Mont_ProgressBar_NoPassword.zip بلا شك 👍 طبعاً المكتبات لا تعنيني نهائياً في فكرتي .. فأنا أقوم حالياً بجلب المكونات الى ملف ACCDB إصدارات حديثة = 2019 = نسخة الأوفيس التي لدي حالياً .. وبخصوص هذه النقطة ، جاري بناء مكتبة وخوارزمية كاملة ( مبنية على ملف VBA7.Dll ) تم كسر حمايته من إصدار أوفيس 2019

أستاذ @منتصر الانسي ، هذه تجربتي على استخراج النماذج بتصاميمها حرفياً ( دون أكواد VBA ) حالياً في المرحلة الأولى .. Montaser.accdb

مطلوب قاعدة بيانات آكسيس 2003 مقفلة MDE . ولا يهمني الداتا التي فيها أبداً ولا حتى ان تكون لمشروع كامل إذا سمحتم 🤗

😈 للعلم أستاذ @منتصر الانسي ، انا ما زلت أبني أداتي ، وقد توصلت حالياً للإصدارات 2016 - 2019 تقريباً .. وانت قد قفزت بي لآخر لإصدار ههههههههه

ومن باب السؤال أستاذ @منتصر الانسي ، ما إصدار الأوفيس الذي استخدمته ؟؟ من باب الإحاطة بمعلومة 😊

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

أخواني وأساتذتي ومعلمينا ( دون استثناء ) للضرورة القصوى لمن يرغب بالمساعدة ، مطلوب :- قواعد بيانات مقفلة ومحمية تكون حصراً بصيغة ACCDE - لا حاجة لي بأي معلومات أو بيانات داخل الجداول .. قواعد بيانات تالفة ( لا تفتح أساساً ) . الهدف هو تجربة لأداة جديدة قيد التجربة بعد أن تمت برمجتها من خلال آكسيس فقط . حيث وقعت في مشكلة كنت قد طرحتها في هذا الموضوع هنا . ما اضطرني لتطبيق نصيحة الحاجة أم الأختراع ، بعد البحث والتمعن لمدة 3 أيام متواصلة ..

تمت التجربة على اوفيس 2010 ، وما شاء الله عليك ، أجدت الدمج والتوظيف .. ومن الجميل أن يكرّم الإنسان نفسه دائماً عند اجتهاده ، فلا تنسى اختيار "تمت الإجابة" لرسالتك التي تسبق رسالتي هذه . فأنت تستحقها بجدارتك

أستاذنا الغالي أبو احمد ،، بداية أحترم رأيك بشدة ، وأنت من الأشخاص الذين لهم بصمة فعلية في تقديم المساعدة لأخوتنا في القسم متى حللتم ، رغم أننا نفتقد وجودكم بيننا والإستفادة من فيض العلم الذي علمكم الله أياه . أخونا جو طرح سؤاله النابع من مشكلة واجهها في كود جاهز حصل عليه من أداة ، لكنه لم يلبي حاجته بسبب عدم توافق الكود حرفياً وفعلياً مع طلبه عند التعامل مع رسالة MsgBox من 3 أزرار ,, وقدم له الأخوة مجموعة حلول البرمجية المنطقية ؛ إلا أنه تمسك بالحبل الذي بين يديه ولم يفضل تبديله . لذا ومن ضمن الحلول كنت قد اقترحت عليه استخدام Select Case كما تفضلتم في طرحكم - إضافة إلى ما جاد به خبرائنا الكرام - مشكورين - ، فعاد إلى أصل الموضوع الذي حصل على الكود منه للأستاذ منتصر الأنسي - مشكوراً لجهده على انتاج الأداة - ، وقد لباه بتحديث يدعم Select Case حسب رغبته .. لكم الشكر على ما تقومون به من مساعدة ومد يد العون لأخوانكم أينما حلّت أناملكم الذهبية .. وفي النهاية انت تعلم أن من يبحث عن إجابة رغم تعدد الحلول إلا أنه سيفضل الأسهل والأبسط لمشروعه وحاجته وخبرته .

تفضل أخي الكريم ، التعديل الي طلبته .. Private Sub btnLocateFile_Click() On Error GoTo Err_btnLocateFile_Click Dim fd As Object Dim fileName As String Dim defaultFolder As String defaultFolder = "D:\Access_Teacher\" If Dir(defaultFolder, vbDirectory) = "" Then MkDir defaultFolder End If Set fd = Application.FileDialog(1) With fd .Title = "اختر ملف الإكسل" .Filters.Clear .Filters.Add "Excel Files", "*.xls; *.xlsx" .InitialFileName = defaultFolder If .Show = -1 Then If .SelectedItems.Count > 0 Then fileName = .SelectedItems(1) Me.txtImportFile = fileName End If End If End With Exit_btnLocateFile_Click: Exit Sub Err_btnLocateFile_Click: MsgBox Err.Description, vbCritical + vbMsgBoxRight, "خطأ" Resume Exit_btnLocateFile_Click End Sub

تمام ، تم الانتهاء من الشق الأول 👍 الثاني حال وصولي الى الكمبيوتر إن شاء الله ، لأنني خرجت من العمل

ليس لدي أوفيس 2003 ، ولكن جرب هذا التعديل لزر التصدير .. Private Sub cm_ToExcel_Click() On Error GoTo Err_cm_ToExcel_Click Dim stDocName As String Dim filePath As String Dim defaultFolder As String Dim Q As Integer Dim fd As Object stDocName = "tbl_Teacher" & [Year_name] defaultFolder = "D:\Access_Teacher\" Q = DCount("*", "tbl_Teacher") If Q > 0 Then If Dir(defaultFolder, vbDirectory) = "" Then MkDir defaultFolder End If Set fd = Application.FileDialog(2) With fd .Title = "اختر مكان حفظ ملف الإكسل" .InitialFileName = defaultFolder & stDocName & ".xls" If .Show = -1 Then filePath = .SelectedItems(1) If LCase(Right(filePath, 4)) <> ".xls" Then filePath = filePath & ".xls" End If DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", filePath, False MsgBox "تم استخراج ملف الإكسل بنجاح وحفظه في:" & vbCrLf & vbCrLf & _ filePath, vbInformation + vbMsgBoxRight, "" End If End With Else MsgBox "لا يوجد سجلات لتصديرها", vbOKOnly + vbMsgBoxRight, "" End If Exit_cm_ToExcel_Click: Exit Sub Err_cm_ToExcel_Click: MsgBox Err.Description, vbCritical + vbMsgBoxRight, "خطأ" Resume Exit_cm_ToExcel_Click End Sub قمت بتعديل الزر بحيث يعتمد اسم المسار الذي حددته لنا ، وإنشاء المجلد نفسه في المسار إذا لم يكن موجوداً ..