Foksh

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

ليس لدي أوفيس 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 قمت بتعديل الزر بحيث يعتمد اسم المسار الذي حددته لنا ، وإنشاء المجلد نفسه في المسار إذا لم يكن موجوداً ..

بعد تجربة المرفق ، والتمعن فيه ، مشكلتك أخي الكريم في الجزء :- ElseIf vbNo Then السبب طبعاً أنه لا يفحص نتيجة رد الرسالة الكلي ، بل يعتبر vbNo قيمة ثابتة . وبالتالي يدخل إليه دائماً إذا لم تكن النتيجة vbYes . لذا فالأفضل من وجهة نظري ، والأصح هو استخدام Select Case في حالتك هذه . خلاف ذلك قد نضطر لاستخدام الرسالة مرتين في الجملة الشرطية ، وهذا سيكرر الرسالة مرتين داخل نفس الحدث . لذا جرب الفكرة التالية :- Private Sub أمر0_Click() Select Case MsgBox("ماذا تريد ان تفعل Yes فتح نموذج NO فتح تقرير Cancel تراجع" & vbCrLf & vbCrLf & "الحمدلله", _ vbYesNoCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, _ "الله المستعان") Case vbYes DoCmd.OpenForm "22" Case vbNo DoCmd.OpenReport "33", acViewPreview Case vbCancel Exit Sub End Select End Sub

وعليكم السلام ورحمة الله وبركاته .. إليك أخي الفاضل مواضيع قد تم طرحها مسبقاً في المنتدى ، ممكن على سبيل المثال احدثها ..

بدل كلمة Undo ، اجعلها Exit Sub فقط .

دعماً لما تفضل به أستاذنا ابو البشر ، المكتبة الموضحة في الصورة التالية :- طبعاً الرقم 16.0 سيختلف حسب إصدار الأوفيس لديك . فللإصدارات التي أقل من 2016 سيكون الرقم 14.0

مبدع كعاااادتك اخي خليفة ، تنفيذ جميل كما هو واضح من الشرح ،، 👏🏻

معلومة مهمة ، وطرف الخيط هذا ثمين جداً 🤗 بارك الله فيك اخي جعفر 💐

كلام صحيح 100%

الحمد لله ..

الأوفيس أخي الكريم .. فعلى حد علمي توافق الويندوز 64 مع اوفيس 64 أفضل من توافق ويندوز 64 مع اوفيس 32 ..

كيف يمكنك ماذا ؟؟؟؟ بما أنك تقوم بحفظ المشروع بصيغة MDE أو ACCDE , فعليك أولاً حفظ المشروع بإصدارين ( 32 و 64 ) طبعاً بتعديل توافق الأكواد كما قال لك الأستاذ محمد عصام بالضبط ( يجب ارفاق ملف المشروع مفتوح المصدر ) . أما غير ذلك فبدون القاعدة لا نعلم ما هي الأكواد لديك أخي الكريم

الجملة التي كنت أود سماعها .. وبالتالي كما أخبرك أخي المهندس محمد بأنه لا يمكنك تعديل اكواد القاعدة الأصلية MDE ، وبالتالي عليك التعديل والتحديث على القاعدة المفتوحة المصدر ومن ثم إعادة إقفالها مرة أخرى وحماية مشروعك .

تقدر تعدل على أكواد ملف مقفل Accde هذه الرسالة اعتقد لا تظهر إلا إذا كان الملف تم قفله وحفظه بصيغة Accde - Mde فقط . صح ولا أنا غلطان يا هندسة .

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

سؤالك جميل وفي محله 👏🏻

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

نعم ، واعلم انك التزمت بحدود الطلب ، وكانت جميلة لمستك الفنية وستكون أجمل كجمال قلبك إن طبقتها على مربعي تحرير وسرد 💐

ماذا لو جربنا الفكرة بقائمتين منسدلتين فقط !! الأولى تعرض أسماء الجداول الموجودة بجانب قاعدة البيانات. والثانية تجلب أسماء الملفات الموجودة في مجلد القائمة المنسدلة الأولى كفلترة 😉

وعليكم السلام ورحمة الله وبركاته .. راجع هذه المواضيع ، قد يفيدك :-

جميل جداً .. شكراً لك على هذه المعلومة انا فعلاً وجدت في جوجل الموقع ده ، والرابط للخدمة :- https://www.everythingaccess.com/mdeconversion.asp أما موضوع اثبات الملكية ، يعني لازم أحلف لهم يمين مثلاً هههههههه ولا إيه بالضبط

أحزنتني في البداية لمرورك بنفس هذه المشكلة ، وأفرحتني ضحكاً أنك وجدته بعد فوات الأوان 😂 . يعني هذه البرامج اللي ترجع الشكل الخارجي لقاعدة البيانات تقوم بتدمير أو عدم قدرتها على قراءة المكينة - كما وصفتها - . وبالتالي تعود خالية من أي إجراء أم تبقى القاعدة تعمل ولكن بدون قدرتي على تعديل الأكواد ؟ وأيضاً حتى تتضح عندي الصورة أكثر ؛ هل القاعدة بعد كسرها واستعادة أو استرجاع كل شي إلا الأكواد ستبقى بنوع ACCDE أم يمكنني أن استوردها إلى قاعدة جديدة ACCDB !!!!! فوجود النماذج والجداول والمكونات بدون أكواد يخفف العبئ والعمل قليلاً .

ههههههه صعبتها علي يا رجل

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

بعد شرحك الأخير اضطررت للتعليق 😅 يعني انت عندك كل أرقام وصولات الدفع تبدأ بـ 55 ؟؟؟؟؟؟؟ يعني عددها عندك ولنفرض طول السنة بس 999 وصل ؟؟؟؟؟؟؟؟ طب لو زادت هتعمل ايه طيب 🙄🤔 إيه الفكرة من إنك تثبت 55 كبداية !!!!!!!