علي المصري قام بنشر أكتوبر 28, 2015 قام بنشر أكتوبر 28, 2015 السلام عليكم ورحمة الله وبركاته بعد إذن حضراتكم أريد كود يعمل نسخ احتياطي للجداول وكود آخر لاسترجاع دون حذف الجداول القديمة ولكن يعمل حذف للبيانات القديمة ويستبدلها بالبيانات في الجداول المراد استرجاعها أو عمل نسخة احتياطية لكامل قاعدة البيانات وحفظها في مسار يتم اختياره من قبل المستخدم 1
محمد سلامة قام بنشر أكتوبر 28, 2015 قام بنشر أكتوبر 28, 2015 تفضل لعل هذه يفيدك http://www.officena.net/ib/topic/63797-دعوة-لتطوير-اداه-لنسخ-قاعدة-البيانات-المرتبطة-كل-مدة-زمنية-ساعةيومشهرسنة/ المثال لاستاذنا ابوخليل يقوم المثال بعمل نسخه جديدة حسب ما انت تختار (ساعة-يوم-شهر-سنه) باي صيغه تريدها وعند الخروج يعمل نسخه احتياطية اتوماتيكيا وذلك في المسار الذي تحدده انت وكل هذا تقوم بضبطه مرة واحدة من خلال النموذج تحياتي 1
علي المصري قام بنشر أكتوبر 29, 2015 الكاتب قام بنشر أكتوبر 29, 2015 شكرا أستاذ محمد على سرعة الرد وبارك الله فيك لكن المثال به قاعدة بيانات مقسمة وانا لا أريد تقسيم قاعدة البيانات الموضوع به عمل نسخة احتياطية ولا يوجد به أي شيء عن الاسترجاع ودا طبعا على حد علمي بسبب وجد قاعدة البيانات المرتبطة ولكن ليس كل مستخدم يعرف الاكسيس جيدا فاريد عمل ذلك بسهولة للمستخدم حتى ولو لم يكن على دراية بالاكسيس شكرات 1
محمد سلامة قام بنشر أكتوبر 29, 2015 قام بنشر أكتوبر 29, 2015 تمام سوف ارفع لك مثال اخر عندما اجلس علي الكمبيوتر الشخصي وهو يفي بما تريد باذن الله وهو من عمل المبدع/ الظل الغامض. ابا غازي
أبوبسمله قام بنشر أكتوبر 29, 2015 قام بنشر أكتوبر 29, 2015 اتفضل هذا مثال لاحد الاخوه ان شاء الله تستفاد منه بالتوفيق BackupCompactRepair.rar 2
علي المصري قام بنشر أكتوبر 31, 2015 الكاتب قام بنشر أكتوبر 31, 2015 اتفضل هذا مثال لاحد الاخوه ان شاء الله تستفاد منه بالتوفيق BackupCompactRepair.rar شكرا جزيلا جزاك الله الفردوس الأعلى في الجنة جاري تركيب النموذج على قاعدة البيانات والتجربة جزاكم الله خيرا برجاء الاطلاع على الموضوع التالي http://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/ المشاركة الخاصة بي في هذا الموضوع ارجو حل هذه المشكلة
أبوبسمله قام بنشر أكتوبر 31, 2015 قام بنشر أكتوبر 31, 2015 العفو اخى على ولك بمثل مادعوت وان شاء الله يظبط معك اما بالنسبه للموضوع الثانى نزلت المرفقات ولكنى لم استطع الاطلاع عليها لانى مازلت اعمل على اوفيس 2003 وان شاء الله اخونا جعفر يضع لك مثال مناسب لك يوضح لك فعالية هذه الوحده النمطيه وكيفية استدعائها بالنموذج تمنياتى لك بالتوفيق
علي المصري قام بنشر أكتوبر 31, 2015 الكاتب قام بنشر أكتوبر 31, 2015 أستاذ أحمد الفلاحجي شكرا جزيلا على البرنامج الخاص بالنسخ الاحتياطي ولكن عند تجربة البرنامج على اكسيس 2013 حيث امتداد قاعدة البيانات هو accdb يعطي النسخة الاحتياطية بالفعل ولكن التاريخ يتداخل مع الامتداد حيث انني حصلت على التاريخ بعد حرف a وهو الحرف الأول من الامتداد فهل من تعديل شكرا
علي المصري قام بنشر أكتوبر 31, 2015 الكاتب قام بنشر أكتوبر 31, 2015 تم تعديل الكود كالتالي : If [BKUP] = True Then NewFile = [StrNew] & "\" & Format(Date, "dd-mm-yyyy") & " " & Format(Now(), "Hh-Nn AMPM") & "-" & DBwithoutEXT & right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Do Until CheckMyFile(NewFile) = 1 [ResultLBL].Visible = False Loop [ResultLBL].Visible = True If [CloseMe] = True Then DoCmd.Close Exit Sub End If ' --------------------- äÓÎ ÇÍÊíÇØí ãÚ ÇáÖÛØ æ ÇáÇÕáÇÍ ------------- Dim NewTempFile As String, NewCompFile As String If [COMP] = True Then NewTempFile = [StrNew] & "\" & "MAXXIN" & right(DBwithEXT, 4) NewCompFile = [StrNew] & "\" & Format(Date, "dd-mm-yyyy") & " " & Format(Now(), "Hh-Nn AMPM") & "-" & DBwithoutEXT & right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewTempFile & """" Shell CopyMyDB, 0 Do Until CheckMyFile(NewTempFile) = 1 [ResultLBL].Visible = False Loop Dim MyPass As String MyPass = ";" & "PWD" & "=" & [PW] On Error GoTo Err_Compact If IsNull([PW]) Then DBEngine.CompactDatabase NewTempFile, NewCompFile If Not IsNull([PW]) And [PSWRD] = True Then DBEngine.CompactDatabase NewTempFile, NewCompFile, , , MyPass On Error GoTo 0 [ResultLBL].Visible = True Kill (NewTempFile) If [CloseMe] = True Then DoCmd.Close Exit Sub End If MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If Err_Compact: [ResultLBL].Visible = True [ResultLBL].Caption = "áã" & vbCr & "íäÌÍ" & vbCr & "ÇáÇÌÑÇÁ" Kill (NewTempFile) MsgBox Err.Number & " - " & Err.Description, , "áã ÊäÌÍ ÇáÚãáíÉ" End Sub ولكن عن عمل نسخة احتياطية مع الضغط يعطى خطأ عن Kill (NewTempFile) فلا أدري كيف يمكن التعديل عليها هذه النقطة
علي المصري قام بنشر أكتوبر 31, 2015 الكاتب قام بنشر أكتوبر 31, 2015 اعتقد ان الرقم 4 لابد ان يتغير إلى 6 وبالفعل تم ذلك ولكن مازال الخطأ في السطر Kill (NewTempFile)
أبوبسمله قام بنشر نوفمبر 1, 2015 قام بنشر نوفمبر 1, 2015 اهلا بك استاذ على ان شاء الله يفيدك احد الاخوه فى تعديل الكود ليتناسب معك لاننى الى الان استعمل اوفيس 2003 بالتوفيق
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.