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

اتفضل التعديل الاخير الحذف بشرط رصيد صفر (3).rar

اتفضل هذا التعديل الاخير الحذف بشرط رصيد صفر.rar

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

جرب هذا اخي وضاح الحذف بشرط رصيد صفر.rar

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

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

اتفضل اخي هذا كما طلبت axss (1) (3).rar

انا الان بالجوال بكرة ان شاء الله

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

اتفضل قبل الحفظ رساله اذا تحفظ نعم واذا لا لايحفظ 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