النجاشي قام بنشر أغسطس 23, 2019 قام بنشر أغسطس 23, 2019 السلام عليكم احبتي الكرام هناك الكثير من النسخ الاحتياطي ولكن لم اجد ما اريده المطلوب عمل نسخ احتياطيه بمجلدBackUp مع تاريخ النسخه والاحتفاظ بالعلاقات عمل استيراد نسخه ويكون ربط الجدوال بالقاعده الام bb تحياتي احبتي xxx.rarFetching info...
د.كاف يار قام بنشر أغسطس 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
النجاشي قام بنشر أغسطس 23, 2019 الكاتب قام بنشر أغسطس 23, 2019 في 23/8/2019 at 13:40, د.كاف يار 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 Expand تسلم يديك استاذي والاستعاده للنسخه كيف
د.كاف يار قام بنشر أغسطس 23, 2019 قام بنشر أغسطس 23, 2019 في 23/8/2019 at 13:59, ابو زاهر said: تسلم يديك استاذي والاستعاده للنسخه كيف Expand بهذا الكود لن تحتاج الى استراداد من النسخة الاحتياطية في نسخة طبق الاصل انصحك بأن تضع الكود ضمن الاضافة و الحذف و التعديل
ابو ياسين المشولي قام بنشر أغسطس 23, 2019 قام بنشر أغسطس 23, 2019 في 23/8/2019 at 13:23, ابو زاهر said: السلام عليكم احبتي الكرام هناك الكثير من النسخ الاحتياطي ولكن لم اجد ما اريده المطلوب عمل نسخ احتياطيه بمجلدBackUp مع تاريخ النسخه والاحتفاظ بالعلاقات عمل استيراد نسخه ويكون ربط الجدوال بالقاعده الام bb تحياتي احبxxx.rar Expand لديك موضوع من قبل بنفس الطلب هنا وهناهنا 2
النجاشي قام بنشر أغسطس 23, 2019 الكاتب قام بنشر أغسطس 23, 2019 في 23/8/2019 at 17:14, ابو ياسين المشولي said: اتفضل xxx.rar 65.03 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download Expand ممتاز استاذ ابو ياسين الله يعطيك العافيه وبقي معنا الربط بعد الاسيراد يرتبط بالنسخه المستورده بدي يكون الربط بالقاعده الام بعد الاسيرادتحياتي يالغالي
د.كاف يار قام بنشر أغسطس 25, 2019 قام بنشر أغسطس 25, 2019 تفضل هذا المثال اخي الكريم تصدير و استيراد.accdbFetching info... 1
النجاشي قام بنشر أغسطس 25, 2019 الكاتب قام بنشر أغسطس 25, 2019 في 25/8/2019 at 16:04, د.كاف يار said: تفضل هذا المثال اخي الكريم تصدير و استيراد.accdb 756 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads Expand ان شاء الله اجربه غدا لاننا حاليا على الموبيل واشكرك استاذي الغالي ان شاء الله يكون المطلوب رغم ان الاستيراد عمل لي وجع راس ههههه تحياتي اليك دكتور
النجاشي قام بنشر أغسطس 26, 2019 الكاتب قام بنشر أغسطس 26, 2019 في 25/8/2019 at 16:04, د.كاف يار said: تفضل هذا المثال اخي الكريم تصدير و استيراد.accdb 756 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 5 downloads Expand استاذي تجي رساله لم يتم التعرف علي التنسيق اي لم تفتح القاعده معي
ابو ياسين المشولي قام بنشر أغسطس 26, 2019 قام بنشر أغسطس 26, 2019 شوف هذا لعله يكون هو طلبك للعم هذة الطريقه طبقها لي الاستاذ القدير ابوخليل xxx.rarFetching info... 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.