ابو ياسين المشولي

اتفضل قبل الحفظ رساله اذا تحفظ نعم واذا لا لايحفظ axss (1) (3).rar

طيب دام الامر كذلك فكيف يتم حذف الجداول واستبدالها

اخواني اعضاء ومشرفي المنتدى الكرام وجد للاخت زهرة نموذج تقدر من خلاله تنقل من ملفات الى من مجل الى مجلد وانا اريد نفس الطريقه ولكن اريد اختيار ملف محدد وانقله مع تغير الاسم هذا نموذج النقل والنسخ zaMove&CopyFiles.rar

شوف هذا اخر شي اعمل رقم 4 وابحث وبعدين غير اي رقم غير 4 لانه انا سجلت رقم 4 وشوف النتيجه اذا زبط دعوة بظهر الغيب تكفي axss (1).rar

اتفضل اخي غير بعض المسميات والله كنت غيرتها انا ولكن انشغلت وما عملت حفظ فراحت عليا Me.a4 = Rs![ab4] Me.a4 = Rs![ab4] Me.a4 = Rs![ab4] Me.a4 = Rs![ab4] Me.a4 = Rs![ab4] Me.nm = Rs![ab4] Me.nm = Rs![ab4] غير هذه حسب المسميات واذا لم تعرف ابشر بعدساعه اعملها لك لاني حاليا مشغول axss.rar

طيب اخي عدد ماذا تريد ان تبحث كي اعرف المطلوب

بارك الله فيك استاذنا ابو خليك هذه نقطه مهمه في النسخ ولكن باقي كيف استرجاع بعد النسخ

الله يحفظك اخي علي محمد الكعبي بالتوفيق

اتفضل اخي اتمنا يكون المطلوب عملت لك رساله اذا كان رقم الموظف اقل من 8 ارقام وعند عدم وجود رقم الموظف رساله اوقف عليك سطرين بالكود يمكنك ملراجعتها اخوك ابو ياسين واتمنى اكون قدرت انفذ طلبك axss.rar

تم وجود الحل وهو Public Function CreateDatabase() Dim wrkDefault As Workspace Dim dbsNew As Database Dim strPaht As String Dim dbNAME As String strPath = Application.CurrentProject.Path & "\" dbNAME = strPath & Forms!Form!strDBName.Value & ".mdb" Set wrkDefault = DBEngine.Workspaces(0) Set dbsNew = wrkDefault.CreateDatabase(dbNAME, dbLangGeneral) dbsNew.Close End Function

ارفق مثال

Dim wrkDefault As Workspace Dim dbsNew As Database Dim strPaht As String Dim dbNAME As String strPath = Application.CurrentProject.Path & "\" dbNAME = strPath & Forms!Form!strDBName.Value & ".mdb" Set wrkDefault = DBEngine.Workspaces(0) Set dbsNew = wrkDefault.CreateDatabase(dbNAME, dbLangGeneral, dbEncrypt) dbsNew.Close

اخي الكريم الضريبه المضافه 5% تقدر تعمل الاجمالي Me.الضريبه= Me.الاجمالي * (0.05)

والله يا اخي برمجيا انا ضعيف في الاكواد ولكن الاخ جعفر ان شاء الله ما بيقصر

هذا معنها السعر يساوي اسم الصنف

اتفضل ارجو يكون طلبك الكتاب.rar

اخواني هل لم تصل الفكرة الفكرة عندما تعمل نسخ احتياتي ثم تعمل استرجاع للنسخه Database81.rar

جرب اخر محاوله STOCK.rar

اخواني اعضاء المنتدى الكرام لدي مشكله عند الاستيراد المطلوب عند الضغط على الاستيراد يغير اسم الملف الى data وينقله الى القرص d تجربة.rar

اتفضل اخي هل هذا هو طلبك Walks_Backup.rar

شوف هذا STOCK (1).rar

انا اسف لم انتبه الى تحميل المرفقات نسخ تجربه.rar

استاذنا ابو خليل لم تفهم طلبي طلبي في هذا المرفق عندما اعمل استيراد اريده نسخ الذي اختاره ويغير اسمه الى هذا المسار "D:\برنامج \data\data.mdb"

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

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