king5star قام بنشر يناير 26, 2017 قام بنشر يناير 26, 2017 السلام عليكم اخوانى البداية اعتذر لذكر اسم عضو بالعنوان ولكننى استخدمته للاضاح فقط لقد قمت بالبحث فى المنتدى ووجت موضوع للاخ الفاضل ابوخليل به الافاده والعبقرية التامة به وباخر الموضوع مشاركه للاخ الفاضل محمد ايمن وبه تعديل بسيط وجيد وهذا ما اردت ولكن النسخ مصممه لاوفيس 2003 وعند نقلها الى قاعدة بيانات 2010 لم تعمل وظهر هذا الخطأ التالى فهل يوجد حل لذلك وقد ارفقت قاعدتا البيانات الاصليه التى يعمل بها الكود بشكل جيد والثانية لاوفس 2010 التى لم يعمل لديها برجاء المساعدة . Desktop.zip
أبو عبدالله الحلوانى قام بنشر يناير 26, 2017 قام بنشر يناير 26, 2017 السلام عليكم ليست المشكلة بالكود وانا المشكلة باصدار الأكسس 2010 والذى يوجد به تعريفين محجوزين للكائن database < أحدهما من النوع كلاس (Class Module) والأخر من نوع بروجكت (Project) لذا يتعارض دائما االتعريفين لهذا الكائن هذا على حسب ظنى . وعلى كل تم اجراء تعديل بسط انظر المرفق backup.rar
king5star قام بنشر يناير 26, 2017 الكاتب قام بنشر يناير 26, 2017 17 دقائق مضت, أبو عبدالله الحلوانى said: السلام عليكم ليست المشكلة بالكود وانا المشكلة باصدار الأكسس 2010 والذى يوجد به تعريفين محجوزين للكائن database < أحدهما من النوع كلاس (Class Module) والأخر من نوع بروجكت (Project) لذا يتعارض دائما االتعريفين لهذا الكائن هذا على حسب ظنى . وعلى كل تم اجراء تعديل بسط انظر المرفق backup.rar شكراً اخى على اهتمامك ومساعدتك ولكن عن الاستيراد حدث الخطأ التالي
أبو عبدالله الحلوانى قام بنشر يناير 26, 2017 قام بنشر يناير 26, 2017 هذا الخطأ لأن هذا الكائن بحاجة الى مرجع أضف المرجع المطلوب كما بالصورة وستجد الأمور تجرى على مايرام من Tools -> Refernce ثم حدد الخيار بجوار اسم المرجع
king5star قام بنشر يناير 27, 2017 الكاتب قام بنشر يناير 27, 2017 54 دقائق مضت, أبو عبدالله الحلوانى said: هذا الخطأ لأن هذا الكائن بحاجة الى مرجع أضف المرجع المطلوب كما بالصورة وستجد الأمور تجرى على مايرام من Tools -> Refernce ثم حدد الخيار بجوار اسم المرجع اخي أبو عبدالله تسلم يدك وفقك الله دائماً وجزاك خيراً وضبطت معي ولدي سؤلان اتمنى ان لا اثقل عليك بهم الأول : هل يجب ضبط المكتبة فى كل مره للاستيراد ؟ الثاني : هل بالامكان استثناء بعد الجداول من الحفظ ؟
king5star قام بنشر يناير 27, 2017 الكاتب قام بنشر يناير 27, 2017 اسف اخى على الاطاله عندما قمت بتركيب النموذج و الوحده النمطية بالبرنامج الخاص بي ظهر هذا الخطأ مع العلم اننى قمت باضافة السطر البرمجي هذا Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
jjafferr قام بنشر يناير 27, 2017 قام بنشر يناير 27, 2017 السلام عليكم نفس كلام اخي ابوعبدالله ، ولكن بطريقة انا متعود عليها ارجع الى نسختك الاولى ، ثم في صفحة VBA . وغير الاسم الى مثلا: . دائما غيّر اسم المشروع ، وابدا لا تسمي اسم المشروع Database او DB ، واستخدم السطر الثاني بدل الاول: 'With Application.FileDialog(msoFileDialogFilePicker) With Application.FileDialog(3) واحفظ عملك ، والسلام جعفر 558.backup.accdb.zip 1
jjafferr قام بنشر يناير 27, 2017 قام بنشر يناير 27, 2017 بس عندي سؤال: ليش غيّرت صيغة البرنامج من mdb الى accdb ؟ الاثنين يشتغلون على الاكسس 2010 !! جعفر
king5star قام بنشر يناير 27, 2017 الكاتب قام بنشر يناير 27, 2017 7 ساعات مضت, jjafferr said: بس عندي سؤال: ليش غيّرت صيغة البرنامج من mdb الى accdb ؟ الاثنين يشتغلون على الاكسس 2010 !! لم اغير فقط استخدمت الكود كما هو جعفر 8 ساعات مضت, jjafferr said: السلام عليكم نفس كلام اخي ابوعبدالله ، ولكن بطريقة انا متعود عليها ارجع الى نسختك الاولى ، ثم في صفحة VBA . وغير الاسم الى مثلا: . دائما غيّر اسم المشروع ، وابدا لا تسمي اسم المشروع Database او DB ، واستخدم السطر الثاني بدل الاول: 'With Application.FileDialog(msoFileDialogFilePicker) With Application.FileDialog(3) واحفظ عملك ، والسلام جعفر 558.backup.accdb.zip شكراً لك اخى ابو جعفر على هذا المجهود ولكنها لم تضبط معي فعلق البرنامج وعندما دخلت الى مكان حفظ النسخة الاحتياطيه لاحظت ان حجمها يزداد
jjafferr قام بنشر يناير 28, 2017 قام بنشر يناير 28, 2017 9 ساعات مضت, king5star said: شكراً لك اخى ابو جعفر على هذا المجهود ولكنها 1. لم تضبط معي فعلق البرنامج 2. وعندما دخلت الى مكان حفظ النسخة الاحتياطيه لاحظت ان حجمها يزداد اخي الفاضل احنا مبرمجين ، وانت تعرف ان هالكلمتين ما يوصلونا لحل اعطي مثال وتفصيل دقيق حتى نعرف ايش المشكلة بالضبط ، وعلى اي سطر ، ولا تنسى اننا لا نرى ما ترى جعفر 1
king5star قام بنشر يناير 28, 2017 الكاتب قام بنشر يناير 28, 2017 شكراً اخي جعفر على سعه صدرك واهتمامك عندما اخذت الكود وجربته على البرنامج البرنامج وقف عن العمل وعندما ذهبت الى مكان حفظ النسخة الاحتياطيه وجدت مكان النسخه الاحتياطيه يكبر كما فى الصوره مع العلم ان الصورتين ورا بعض
jjafferr قام بنشر يناير 28, 2017 قام بنشر يناير 28, 2017 منذ ساعه, king5star said: البرنامج وقف عن العمل على اي سطر من الكود؟
king5star قام بنشر يناير 28, 2017 الكاتب قام بنشر يناير 28, 2017 لم يقف عن خطأ بكود بل فقط Not responding وتتضخم النسخه الاحتياطيه بدون حدود .
king5star قام بنشر يناير 28, 2017 الكاتب قام بنشر يناير 28, 2017 اخى تقريباً المشكلة لدي موجودة بسبب جدول يسمي MSysAccessStorage ولا استطيع حذفه وظهر عندما قمت بوضع نموذج الغاء الشيفت واخفاء الجداول واظهارها .
أبو عبدالله الحلوانى قام بنشر يناير 28, 2017 قام بنشر يناير 28, 2017 2 دقائق مضت, king5star said: المشكلة لدي موجودة بسبب جدول يسمي MSysAccessStorage لا ليست المشكلة هنا أولا - هذا الجدول ومجموعة الجداول التى يبدأ اسمها ب هذه الحروف الأربع (MSys) اسمى هذه الجداول جداول النظام (system tabel) و التى يستخدمها الأكسس دون تدخل منا وأى عبث بها سيؤدى الى تدمير قاعدة البيانات الخاصة بك أو الحاقها بضرر بالغ لا يمكن تداركه بالغالب ثانيا - أعتقد أن مشكلتك بأحد أكواد الدوارات ( For - Next ) أو (Do - Loop) والتى لم تستطع ايقافها أو لم تجعل لها حدا تقف عنده ثالثا- وعلى كل كما ذكر أستاذى وأخى جعفر 16 ساعات مضت, jjafferr said: ولا تنسى اننا لا نرى ما ترى أعطنا مثالا فليس من رأى كمن سمع
king5star قام بنشر يناير 28, 2017 الكاتب قام بنشر يناير 28, 2017 (معدل) اخى ابو عبدالله لا يوجد سوي ما ابلغت فقط Not responding وتتضخم النسخه الاحتياطيه بدون حدود . اساتذتي أبو عبدالله الحلوانى jjafferr من قلبي لكم جزيل الشكر والعرفان وجعله الله فى ميزان حسناتكم ووفقكم الله دائماً الى ما تبغون واطال بالكم وفك الكرب عنكم ومنعه ان يصيبكم بحق ما تعملونه دون مقابل اللهم تقبل الدعاء وبارك لهم لكم جزيل الشكر للمساعده واسف للاطاله عليكم ومجهودكم المبذول ...، واذا كان لديكم نموذج جاهز لهذه العمليه ارفقوه لي ويتنهي كل هذا العناء . تم تعديل يناير 29, 2017 بواسطه king5star أخطاء إملائيه 1
king5star قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 للرفع برجاء المساعدة وحتى بنموذج جاهز ولكنه يعمل !
أبو عبدالله الحلوانى قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 جرب قراءة هذه الموضوعات وهذا وهذا وغيرها كثير بالمنتدى لو بحثت 1
king5star قام بنشر فبراير 4, 2017 الكاتب قام بنشر فبراير 4, 2017 السلام عليكم اخوانى مجدداً ولكن هذه المره بالحل لفت اتباهي اخى أبو عبدالله الحلواني إن من الممكن ان تكون المشكلة فى الدوال التكريريه والحمد لله طلعت هي فقط قم بابدال هذا الكود If (tdfCurr.Attributes And dbSystemObject) = 0 Then بهذا If (tdfCurr.Attributes) = 0 Then ولدي سؤال كيف اضع رقم سري للنسخة الاحتياطيه ؟ هل باستخدام كود او امر او ماذا !
king5star قام بنشر فبراير 5, 2017 الكاتب قام بنشر فبراير 5, 2017 (معدل) برجاء المساعدة اريد فقط عندما اضغط على عمل نسخة احتياطيه يوضع كلمه سر على النسخة . تم تعديل فبراير 5, 2017 بواسطه king5star
أمير2008 قام بنشر فبراير 6, 2017 قام بنشر فبراير 6, 2017 الفكرة العامة بالكود المفترض : DBEngine.CompactDatabase ExportedFile1, ExportedFile2, , , MyPass أنا حاولت أطبقها على ملفك وبالفعل عمل كلمة سر لكن السر في كيفية نسخ الجداول من القاعدة بعدما تم حمايتها هذا الأمر يحتاج للمزيد من التجارب لأنني عدلت أكودك بالملف بدون مراجعتها بمعنى آخر : إما صابت أو اثنين عور !! ههههههه backup 559.rar
king5star قام بنشر فبراير 8, 2017 الكاتب قام بنشر فبراير 8, 2017 الفكرة العامة بالكود المفترض : DBEngine.CompactDatabase ExportedFile1, ExportedFile2, , , MyPass أنا حاولت أطبقها على ملفك وبالفعل عمل كلمة سر لكن السر في كيفية نسخ الجداول من القاعدة بعدما تم حمايتها هذا الأمر يحتاج للمزيد من التجارب لأنني عدلت أكودك بالملف بدون مراجعتها بمعنى آخر : إما صابت أو اثنين عور !! ههههههه backup 559.rar شكراً لك اخى أمير2008 على المساعده الرائعة ولكنها لم تصب واعتمت نهائياً وقمت بطرح مشاركة جديدة هنا وتم الحل النصف وتبقى الاخر ولك جزيل الشكر اخى أمير2008
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.