al.sheen2000 قام بنشر نوفمبر 5, 2023 مشاركة قام بنشر نوفمبر 5, 2023 السلام عليكم اسعد الله او قاتكم بكل خير فضلا المثال ادناه المرفق مثال للنسخ الاحتياطي وينسخ الملف لاكن عند فتح القاعدة المنسوخة يعطي رسالة لا يمكن التعرف ياليت التعديل جزاكم الله خير تحياتي للجميع النسخ الاحتياطي.mdb رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر نوفمبر 6, 2023 مشاركة قام بنشر نوفمبر 6, 2023 (معدل) تفضل أخي قاعدة من تصميم أحد عمالقة المنتدى ومسامحة لم أتذكر الاسم . يعمل لدي بكفاءة ولايوجد به أخطاء . Backup.rar تم تعديل نوفمبر 6, 2023 بواسطه kkhalifa1960 3 1 رابط هذا التعليق شارك More sharing options...
al.sheen2000 قام بنشر نوفمبر 6, 2023 الكاتب مشاركة قام بنشر نوفمبر 6, 2023 اشكرك محتاج نسخة 2003 رابط هذا التعليق شارك More sharing options...
al.sheen2000 قام بنشر نوفمبر 6, 2023 الكاتب مشاركة قام بنشر نوفمبر 6, 2023 للرفع رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر نوفمبر 6, 2023 مشاركة قام بنشر نوفمبر 6, 2023 2 ساعات مضت, al.sheen2000 said: للرفع جرب هذه الفكرة في هذه المشاركه رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر نوفمبر 7, 2023 مشاركة قام بنشر نوفمبر 7, 2023 17 ساعات مضت, al.sheen2000 said: اشكرك محتاج نسخة 2003 تفضل أخي . Backup.mdb 1 رابط هذا التعليق شارك More sharing options...
al.sheen2000 قام بنشر نوفمبر 9, 2023 الكاتب مشاركة قام بنشر نوفمبر 9, 2023 اشكرك رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر نوفمبر 10, 2023 مشاركة قام بنشر نوفمبر 10, 2023 تفضل هذا هو كود النسخة الاحتياطية بإختصار لإنشاء نسخة احتياطة من القاعدة الحالية Dim MyFile As String Dim DstFile As String Dim Syso As Object Dim GetType As Variant MyFile = CurrentProject.FullName ' مسار القاعدة الحالية GetType = Right$(MyFile, Len(MyFile) - InStrRev(MyFile, ".")) DstFile = CurrentProject.Path & "\" & Format(Now, "dd-mm-yyyy-nss") & "." & GetType ' الاسم الجديد للنسخة الاحتياطية 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" لإنشاء نسخة احتياطية لقاعدة البيانات في حال ان القاعدة منفصلة عن الواجهة Dim MyFile As String Dim DstFile As String Dim Syso As Object Dim GetType As Variant MyFile = CurrentProject.FullName ' مسار قاعدة البيانات GetType = Right$(MyFile, Len(MyFile) - InStrRev(MyFile, ".")) DstFile = CurrentProject.Path & "\" & Format(Now, "dd-mm-yyyy-hnss") & "." & GetType ' الاسم الجديد للنسخة الاحتياطية Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing 1 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر نوفمبر 10, 2023 مشاركة قام بنشر نوفمبر 10, 2023 استاذ @دروب مبرمج ممكن الكود لما تكون قاعدة البيانات بيوزر وباسوورد . رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر نوفمبر 12, 2023 مشاركة قام بنشر نوفمبر 12, 2023 في 10/11/2023 at 21:19, kkhalifa1960 said: استاذ @دروب مبرمج ممكن الكود لما تكون قاعدة البيانات بيوزر وباسوورد . ما تحتاج كود لأن الكود يقوم بإنشاء نسخة مماثلة من النسخة الاساسية يعني ما راح يفتح الملف و يقرأ الجداول 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر نوفمبر 14, 2023 مشاركة قام بنشر نوفمبر 14, 2023 شكر وتقدير واحترام رابط هذا التعليق شارك More sharing options...
طير البحر قام بنشر April 14 مشاركة قام بنشر April 14 Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" ممكن تشرحلى القطعه دي من الكود رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر April 16 مشاركة قام بنشر April 16 في 6/11/2023 at 07:46, kkhalifa1960 said: تفضل أخي قاعدة من تصميم أحد عمالقة المنتدى ومسامحة لم أتذكر الاسم . يعمل لدي بكفاءة ولايوجد به أخطاء . Backup.rar 314.34 kB · 86 downloads 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.