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

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

استاذي ابو خليل والله ليس لم يعجبني النقاش ولكن انا عامل ارتباط بالقاعده data وعامل مسار القاعده في الدي مجلد data وعامل بالبرنامج عند الاقلاع ياخذ من القاعده data Public Function acbRelink2(strPath As String, Optional blnSilent As Boolean) As Boolean 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) alalal: If err.Number = 3024 Then DoCmd.Beep MsgBox " ÚÝæÇ ãÌáÏ ÇáÈíÇäÇÊ Êã äÞáÉ Ãæ ÃÚÇÏÉ ÊÓãíÊÉ " & Chr(13) & " áÐÇ ÓæÝ íÊã ÇÛáÇÞ ÇáÈÑäÇãÌ " & Chr(13) & " ÑÌÇÁ ÃÐåÈ Çáì ãÕÏÑ ÇáÈÑäÇãÌ æÊÃßÏ ãä æÌæÏ ãÌáÏ ÈÇÓã " & Chr(13) & " ÈÌæÇÑ ãáÝ ÈÜÑäÜÇãÜÌ ÇáÜÎÜíÜÇØ DATA ", vbYes, " ÈÜÑäÜÇãÜÌ ÇáÜÎÜíÜÇØ : ÎØÜÜÜÜÜÜà " DoCmd.Quit End If End Function

اتفضل التعديل الاخير الحذف بشرط رصيد صفر (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)

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