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

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

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

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

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

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

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

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

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

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

الله يوفقنا وياك لما يحب ورضى هل هو طلبك ام لا

اتجاه النموذج الاساسي وليس الفرعي غو ارفع الملف

من الخصائص غيره من اليسار الى اليمين

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

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

كيف اعدلها على هذة On Error GoTo alalal Call SysCmd(acSysCmdSetStatus, "Re-linking the data tables...") Set Db = CurrentDb() For Each tdf In Db.TableDefs If (tdf.Attributes And dbAttachedTable) = _ dbAttachedTable Then tdf.Connect = ";DATABASE=" & "D:\بـرنـامـج الـخـيـاط\data\data.mdb" tdf.RefreshLink End If Next Call SysCmd(acSysCmdClearStatus) If blnSilent Then MsgBox " تم العوده الى النسخه الأصليه مره أخرى ", vbInformation, " بـرنـامـج الـخـيـاط : النسخه الأصليه " End If alalal: If err.Number = 3024 Then MsgBox " عفوا مجلد البيانات تم نقلة أو أعادة تسميتة " & Chr(13) & " لذا سوف يتم اغلاق البرنامج " & Chr(13) & " رجاء أذهب الى مصدر البرنامج وتأكد من وجود مجلد باسم " & Chr(13) & " بجوار ملف بـرنـامـج الـخـيـاط DATA ", vbYes, " بـرنـامـج الـخـيـاط : خطــــــأ " DoCmd.Quit وهذا الامر On Error GoTo aaaa If IsNull(Forms![استرجاع_البيانات]![النسخه]) Then MsgBox " من فضلك انقر فوق إختيار ملف لتحديد النسخه المراد استرجاعها ", vbInformation, " بـرنـامـج الـخـيـاط : استرجاع بيانات " DoCmd.GoToControl "استعراض" Else Call acbRelink(Me.النسخه, True) DoCmd.Close aaaa: If err.Number = 3011 Then MsgBox " مصرح بإسترجاع البيانات المنسوخه أو المحفوظه " & Chr(13) & " عن طريق ( بـرنـامـج الـخـيـاط ) فقط ", vbInformation, " بـرنـامـج الـخـيـاط : خطــــــــأ " النسخه = Null End If End If

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

شوف هذا المرفق اخي نسخ تجربه.rar

اخي بارك الله فيك انا عاملها حسب المسار اللي عندي tdf.Connect = ";DATABASE=" & "D:\بـرنـامـج الـخـيـاط\data\data.mdb" غيرها حسب المسار اللي عندك

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

لا اخي انت لم تفهمني في نموذج frm_Backup في كلمه نسخ هذا نسخ لك الجداول الى نفس مجلد البرنامج ويعمل مجلد Backupيضيف النسخه فيه بالوقت والتاريخ يسنخ جميع الجداول وفي اختيار بالون الازرق تختار مكان ما تريد تعمل نسخ في فلاش في سطح المكتب حسب رغبتك

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

اتفضل غير مسار حسب ماهو عندك انا عامله في مجدل برنامج الخياط قرصD نسخ_تجربه.rar

اخي العزيز بارك الله فيك الكود غير واضح كما شايف لكن اذا تريد عدم الخرو ج استخدم DoCmd.GoToControl "اسم الحقل" Me.اسم الحقل.Undo بدل Exit Sub

الله يوفق الجميع يارب

اخي الكود غير مفهوم ولكن من النظرة الاولى الكود ناقص كلمه end if تحت كلمه Exit Sub معنى الكود اذا كان الحقل1 فارغ والحقل2 فارغ جيب رساله تحياتي ولو ترفق مثل يكون افضل لان الكود فيه اسماء عربي ولم تطلع في رسالتك بسبب اعداد الجهاز