omarahmed1424 قام بنشر يناير 3, 2018 قام بنشر يناير 3, 2018 السلام عليكم ورحمة الله وبركاته وبعد الأخوة أعضاء المنتدى الكرام في المدارس التي أعمل بها نعمل على قاعدة بيانات للطلاب من تصميمي ويتم تسجيل الطلاب لدي اولا ثم كل فترة أسبوع أو أكثر يقوم الإداريون بالمراحل الأخرى بأخذ نسخة من القاعدة المحدثة مني ويقومون بالعمل عليها مع حذف القديمة التي لديهم وفي الأونة الأخيرة أضفت لهم نموذج لإدخال مواقف خاصة بالطلاب في مرحلتهم على القاعدة وبما أنهم يستبدلون القاعدة التي لديهم بالقاعدة المستلمة الجديدة فمن المؤكد فقدهم للمواقف . وللأسف خبرتهم ضعيفة بالأكسيس لا تسمح لهم باستيراد جدول الطلاب من القاعدة الجديدة مع الحفاظ على البيانات التي أدخلوها . معذرة للإطالة في الشرح ما أبحث عنه الآن حلا برمجيا بنموذج منفصل يستورد جدول بيانات الطلاب من قاعدتي ويقوم بحذف جدول بيانات الطلاب في قاعدتهم و تبديله بالجدول المأخوذ من قاعدتي . هذه هي الفكرة وأرجو أن نتعاون سويا في تنفيذها ولكم جزيل الشكر بالطبع لا حاجة لإرفاق قاعدتي أولا لكبر حجمها وتشعب علاقاتها وثانيا لعمومية الفكرة على أي قاعدة وأي جدول . المهم الأكواد فقط
ابوخليل قام بنشر يناير 3, 2018 قام بنشر يناير 3, 2018 تفضل يمكنك بهذا الكود تصدير جدول محدد الى قاعدة بيانات اخرى وسيتم استبداله اذا كان بالمسمى نفسه DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\b.mdb", acTable, "tbl2", "tbl2", False
omarahmed1424 قام بنشر يناير 3, 2018 الكاتب قام بنشر يناير 3, 2018 56 دقائق مضت, ابوخليل said: تفضل يمكنك بهذا الكود تصدير جدول محدد الى قاعدة بيانات اخرى وسيتم استبداله اذا كان بالمسمى نفسه DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\b.mdb", acTable, "tbl2", "tbl2", False السلام عليكم ورحمة الله وبركاته وبعد ... ممتاز ورائع جزاكم الله خيرا وسعدتم في الدنيا والآخرة .
ابو ياسين المشولي قام بنشر يناير 3, 2018 قام بنشر يناير 3, 2018 استاذنا ابو خليل واذا كان قاعده كامله فيها اكثر من جدول واريد اسبدالها بقاعده اخرى كيف الطريقه
ابوخليل قام بنشر يناير 3, 2018 قام بنشر يناير 3, 2018 هذه الدالة FileCopy تنسخ اي ملف من وجهة الى وجهة أخرى ولها معاملين : FileCopy path1,path2 مثال : CopyFile CurrentProject.path & "\db1.mdb", "D:\db1.mdb"
ابو ياسين المشولي قام بنشر يناير 3, 2018 قام بنشر يناير 3, 2018 10 دقائق مضت, ابوخليل said: هذه الدالة FileCopy تنسخ اي ملف من وجهة الى وجهة أخرى ولها معاملين : FileCopy path1,path2 مثال : CopyFile CurrentProject.path & "\db1.mdb", "D:\db1.mdb" كيف اعدلها على هذة 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
ابوخليل قام بنشر يناير 3, 2018 قام بنشر يناير 3, 2018 ليتك اخي الحبيب من الاول فتحت موضوع جديد بنسخ ملفات لان الموضوع الحالي يخص نسخ جدول وتصديره الثانية ان الكود اعلاه ليس لنسخ ولصق وانما للارتباط بقواعد بيانات اخرى باعتبارها نسخ سابقة من البرنامج 1
ابو ياسين المشولي قام بنشر يناير 3, 2018 قام بنشر يناير 3, 2018 2 دقائق مضت, ابوخليل said: ليتك اخي الحبيب من الاول فتحت موضوع جديد بنسخ ملفات لان الموضوع الحالي يخص نسخ جدول وتصديره الثانية ان الكود اعلاه ليس لنسخ ولصق وانما للارتباط بقواعد بيانات اخرى باعتبارها نسخ سابقة من البرنامج بارك الله فيك استاذي ابو خليل هو كما قلت انا عندما اشغل الكود هو فقد يغير الربط انا اريد يحذف الجداول ويستبدلها بدل ربطها لاني لا اريد تغير مكان الداتا اذا كنت تريد فتح موضوع اجديد ابشر واذا كان الرد هنا فلك الخيار تحياتي لك
omarahmed1424 قام بنشر يناير 4, 2018 الكاتب قام بنشر يناير 4, 2018 (معدل) 16 ساعات مضت, ابوخليل said: تفضل يمكنك بهذا الكود تصدير جدول محدد الى قاعدة بيانات اخرى وسيتم استبداله اذا كان بالمسمى نفسه DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\b.mdb", acTable, "tbl2", "tbl2", False السلام عليكم ورحمة الله و بركاته بعد ... عمل النسخ للجداول فهل تتكرم علينا بكيفية نسخ النماذج أو الاستعلامات أو الوحدات النمطية واستبدالها . ولكم جزيل الشكر تم تعديل يناير 4, 2018 بواسطه omarahmed1424
ابوخليل قام بنشر يناير 4, 2018 قام بنشر يناير 4, 2018 طريقة عمل المبرمج الصحيحة وتجنب المتاعب : اولا يجب تقسيم قاعدة البيانات الى : 1- واجهات 2-قاعدة خلفية تشتمل على الجداول من المتعارف عليه غالبا ان القاعدة الخلفية (الجداول) غير قابلة للتحديث ومن غير المتصور ان يجرى عليها اي تعديل لذلك يحسن بالمبرمج ان يزيد في الجداول بعض الحقول التي يتوقع الحاجة اليها مستقبلا خاصة اذا كان البرنامج طور الاستخدام لاول مرة والا فإن الاصل عدم المساس بقاعدة البيانات اما الواجهات فيمكن التحديث يوميا بالزيادة و النقص والتنسيق ونحوة كزيادة تقارير او نماذج ولا حرج ، وفي النهاية ترسل الى المستخدم ليلصقها في مجلد البرنامج ويوافق على اللصق والاستبدال . 1
ابو ياسين المشولي قام بنشر يناير 4, 2018 قام بنشر يناير 4, 2018 (معدل) 7 دقائق مضت, ابوخليل said: طريقة عمل المبرمج الصحيحة وتجنب المتاعب : اولا يجب تقسيم قاعدة البيانات الى : 1- واجهات 2-قاعدة خلفية تشتمل على الجداول من المتعارف عليه غالبا ان القاعدة الخلفية (الجداول) غير قابلة للتحديث ومن غير المتصور ان يجرى عليها اي تعديل لذلك يحسن بالمبرمج ان يزيد في الجداول بعض الحقول التي يتوقع الحاجة اليها مستقبلا خاصة اذا كان البرنامج طور الاستخدام لاول مرة والا فإن الاصل عدم المساس بقاعدة البيانات اما الواجهات فيمكن التحديث يوميا بالزيادة و النقص والتنسيق ونحوة كزيادة تقارير او نماذج ولا حرج ، وفي النهاية ترسل الى المستخدم ليلصقها في مجلد البرنامج ويوافق على اللصق والاستبدال . استاذي ابو خليل انا عامل كل هذا كما قلت تماما ولكن عندما انسخ هو ينسخ الجداول وهذا ممتاز ولكن ينقصني شي واحد وهو عند استيراد نسخه من النسخ اللي نسختها اريد كود نسخ لي ملف الى مجدل مع استبدال اسم الملف تحياتي لك تم تعديل يناير 4, 2018 بواسطه ابو ياسين المشولي
ابوخليل قام بنشر يناير 4, 2018 قام بنشر يناير 4, 2018 38 دقائق مضت, ابو ياسين المشولي said: وهو عند استيراد نسخه من النسخ اللي نسختها اريد كود نسخ لي ملف الى مجدل مع استبدال اسم الملف عذرا .. لم افهم شي
ابو ياسين المشولي قام بنشر يناير 4, 2018 قام بنشر يناير 4, 2018 1 دقيقه مضت, ابوخليل said: عذرا .. لم افهم شي اريد كود نسخ ملف بامتداد meb من مجلد انا احدد المجلد مع الملف الى مجلد اخر بالسي او بالدي وعند النقل يغير اسمه الى data
ابوخليل قام بنشر يناير 4, 2018 قام بنشر يناير 4, 2018 حبيبنا ابو ياسين الكود السابق : CopyFile CurrentProject.path & "\db1.mdb", "D:\Data.txt" ينسخ الملف اللذي بجنب قاعدة البيانات والذي اسمه db1.mdb الى قرص D بمسمى آخر وبامتداد آخر يمكنك تسميه بالذي تريد وحتى بدون امتداد وبهذه الصفة : CopyFile "C:\db1.mdb", "D:\Data.mdb" ينسخ من مكان الى مكان آخر وبمسمى مختلف 1
ابو ياسين المشولي قام بنشر يناير 5, 2018 قام بنشر يناير 5, 2018 4 ساعات مضت, ابو ياسين المشولي said: اريد كود نسخ ملف بامتداد meb من مجلد انا احدد المجلد مع الملف الى مجلد اخر بالسي او بالدي وعند النقل يغير اسمه الى data استاذنا ابو خليل لم تفهم طلبي طلبي في هذا المرفق عندما اعمل استيراد اريده نسخ الذي اختاره ويغير اسمه الى هذا المسار "D:\برنامج \data\data.mdb"
ابوخليل قام بنشر يناير 5, 2018 قام بنشر يناير 5, 2018 3 ساعات مضت, ابو ياسين المشولي said: استاذنا ابو خليل لم تفهم طلبي طلبي في هذا المرفق ?
ابو ياسين المشولي قام بنشر يناير 5, 2018 قام بنشر يناير 5, 2018 6 ساعات مضت, ابوخليل said: ? انا اسف لم انتبه الى تحميل المرفقات نسخ تجربه.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.