النجاشي قام بنشر أغسطس 23, 2019 مشاركة قام بنشر أغسطس 23, 2019 السلام عليكم احبتي الكرام هناك الكثير من النسخ الاحتياطي ولكن لم اجد ما اريده المطلوب عمل نسخ احتياطيه بمجلدBackUp مع تاريخ النسخه والاحتفاظ بالعلاقات عمل استيراد نسخه ويكون ربط الجدوال بالقاعده الام bb تحياتي احبتي xxx.rar رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 23, 2019 مشاركة قام بنشر أغسطس 23, 2019 (معدل) تفضل هذا الكود يقوم بنسخ القاعدة بالكامل مع النماذج و كل شئ 'تم وضع اسم المجلد الخاص بك فقط انسخ الكود و الصق Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "BackUp\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select تم تعديل أغسطس 23, 2019 بواسطه د.كاف يار 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 23, 2019 الكاتب مشاركة قام بنشر أغسطس 23, 2019 19 دقائق مضت, د.كاف يار said: تفضل هذا الكود يقوم بنسخ القاعدة بالكامل مع النماذج و كل شئ 'تم وضع اسم المجلد الخاص بك فقط انسخ الكود و الصق Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "BackUp\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select تسلم يديك استاذي والاستعاده للنسخه كيف رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 23, 2019 مشاركة قام بنشر أغسطس 23, 2019 10 دقائق مضت, ابو زاهر said: تسلم يديك استاذي والاستعاده للنسخه كيف بهذا الكود لن تحتاج الى استراداد من النسخة الاحتياطية في نسخة طبق الاصل انصحك بأن تضع الكود ضمن الاضافة و الحذف و التعديل رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 23, 2019 مشاركة قام بنشر أغسطس 23, 2019 1 ساعه مضت, ابو زاهر said: السلام عليكم احبتي الكرام هناك الكثير من النسخ الاحتياطي ولكن لم اجد ما اريده المطلوب عمل نسخ احتياطيه بمجلدBackUp مع تاريخ النسخه والاحتفاظ بالعلاقات عمل استيراد نسخه ويكون ربط الجدوال بالقاعده الام bb تحياتي احبxxx.rar لديك موضوع من قبل بنفس الطلب هنا وهناهنا 2 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 23, 2019 مشاركة قام بنشر أغسطس 23, 2019 اتفضل xxx.rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 23, 2019 الكاتب مشاركة قام بنشر أغسطس 23, 2019 53 دقائق مضت, ابو ياسين المشولي said: اتفضل xxx.rar 65.03 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download ممتاز استاذ ابو ياسين الله يعطيك العافيه وبقي معنا الربط بعد الاسيراد يرتبط بالنسخه المستورده بدي يكون الربط بالقاعده الام بعد الاسيرادتحياتي يالغالي رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 25, 2019 الكاتب مشاركة قام بنشر أغسطس 25, 2019 للرفع رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 25, 2019 مشاركة قام بنشر أغسطس 25, 2019 تفضل هذا المثال اخي الكريم تصدير و استيراد.accdb 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 25, 2019 الكاتب مشاركة قام بنشر أغسطس 25, 2019 4 ساعات مضت, د.كاف يار said: تفضل هذا المثال اخي الكريم تصدير و استيراد.accdb 756 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads ان شاء الله اجربه غدا لاننا حاليا على الموبيل واشكرك استاذي الغالي ان شاء الله يكون المطلوب رغم ان الاستيراد عمل لي وجع راس ههههه تحياتي اليك دكتور رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 26, 2019 الكاتب مشاركة قام بنشر أغسطس 26, 2019 14 ساعات مضت, د.كاف يار said: تفضل هذا المثال اخي الكريم تصدير و استيراد.accdb 756 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 5 downloads استاذي تجي رساله لم يتم التعرف علي التنسيق اي لم تفتح القاعده معي رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 26, 2019 مشاركة قام بنشر أغسطس 26, 2019 شوف هذا لعله يكون هو طلبك للعم هذة الطريقه طبقها لي الاستاذ القدير ابوخليل xxx.rar 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان