ابوخليل

مسألة اننا نحذف النسخة السابقة ونلصق النسخة الجديدة فهي فكرة للحد من تراكم النسخ ولكن ما النتيجة و ماالمخرج من المصيبة حين تأخذ نسخة من قاعدة بيانات معطوبة لتحل محل السابقة السليمة يوجد طريقتين لاخذ الاحتياط من الوقوع بهذا الخطأ الطريقة الاولى : ان تكون النسخة شهرية (اي يتم تسمية النسخة بالسنة والشهر فقط ) وخلال الشهر تتم العملية بالكتابة آليا فوق النسخة فإذا دخل الشهر الجديد يتم وضع نسخة جديدة بجانب نسخة الشهر السابق وهكذا .. نتحصل على 12 نسخة في السنة الواحدة الطريقة الثانية : وهي الافضل على الاطلاق ان يكون هناك عملية تسبق عملية النسخ داخل الاجراء نفسه ومهمتها تحسس مجلد النسخ يتم من خلالها حذف النسخ الزائدة ان وجدت والابقاء على آخر ثلاث نسخ جديدة وبالنسبة لطلبك اظهار التاريخ والوقت في اسم النسخة يمكنك استبدال الجزء الخاص بالنسخ بالكود في مشاركتي الاولى بهذا : Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & _ DBNew & "\" & Format(Now(), "yymmddhhnn") & ".mdb" & """", 0 لاحظ انه يمكنك حذف ما تشاء من تنسيق التاريخ فإن حذفت nn سيتم اخذ نسخة بجانب الاولى بعد دقيقة وان حذفت hh ================= بعد ساعة وان حذفت dd ================= بعد يوم وهكذا ...............

اخي حسين كودك الذي عرضته بالمشاركة الاولى يحقق طلبك If Dir("C:\WINDOWS\MOVI.txt") = "" Then MsgBox "يعمل" Else MsgBox "لا تعمل" End If ايضا الكود الثاني والذي عرضه الاستاذ محمد If Len(Dir("C:\WINDOWS\MOVI.txt")) > 0 Then MsgBox "لا يعمل" Else MsgBox "اعمل" End If

استاذ مدحت المشكلة عندك فقط حاول تخفض امان الماكرو الى الحد الادنى ستجد ان الامثلة كلها تفتح معك ابحث داخل المنتدى عن ذلك

تستطيع بالكود نفسه تحقيق الشرط الكود يقول : اذا كان الملف غير موجود إذا فيكون الجواب الاول = تشغيل ، وإلا = اغلاق اما ان كنت تريد من الكود عكس هذا فيمكن تعديله على هذا النحو If Len(Dir("C:\WINDOWS\MOVI.txt") )>0 Then الكود يقول : اذا كان عدد حروف الملف اكبر من صفر ( يعني موجود) إذا فيكون الجواب الاول = اغلاق ، وإلا = تشغيل ما شاء الله اخوي حسين فكرة بديعة لم تخطر على البال من قبل

يتكرر بسب عدم وجود مفتاح اساسي منفرد ويبدو ان لديك تكرار حقيقي في رقم الفاتورة انظر التعديل الآن : يستحيل التكرار سيتم عرض سجل واحد فقط بمعلومية حقلي رقم الفاتورة والشراء يوجد عندي مشكلة في رفع الملفات الحل هو ان تجعل حقل الشراء معيار ايضا مع رقم الفاتورة في التقرير ليصبح داخل التقرير معيارين

وجزاك ربي خيرا اخونا عزيز اقصد بالنسخة واللاحقة هي اسم قاعد الجداول ولاحقتها : Data.mdb والموجودة بهذه العبارة Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "Data.mdb" & """", 0

تفضل التعديل جعلنا رقم الفاتورة معيارا داخل مصدر بيانات التقرير CopyCopy.rar

السلام عليكم اسمحوا لي بالمشاركة معكم هذا الكود كامل بالمطلوب ويمكنكم تسمية النسخة واللاحقة بما تريدون يتم اخذ النسخة عند اغلاق النموذج / انظر المرفق Dim DBOld As String Dim DBNew As String Private Sub Form_Load() DBOld = CurrentProject.Path & "\Data.mdb" 'اختيار قاعدة بيانات الجداول DBNew = CurrentProject.Path & "\Backup" 'اختيار مكان حفظ النسخة End Sub Private Sub Form_Close() On Error Resume Next Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "Data.mdb" & """", 0 End Sub xxxx.rar

ارفق مثالا يشتمل على المشكلة لتمكن اخوتك من تشخيص السبب

الخطوة المطلوبة الصحيحة ان تكون في موضوع جديد

السلام عليكم اخوتك وجهوك الى الطريق الافضل والاسهل للتعلم فاذا اخذت بالاساليب الصحيحة لن تندم تفضل تم التعديل على المثال .. آمل ان يكون هو ما تقصده zaza26.rar

نسأل الله سبحانه وتعالى أن يغفر له و يرحمه .. ويرزق أهله و ذويه الصبر والاحتساب إنّا للّه و إنّا إليه راجعون

اسأل الله الكريم في هذه الساعة المباركة ان يكفيك ما اهمك ويوفقك لدروب الخير

انظر الخيارات الاقليمية في وندز : لوحة التحكم / المنطقة واللغة وانظر في اعداد وخصائص التاريخ

اخي الكريم في المرات القادمة احرص على اختيار عنوان مناسب يصف الموضوع حتى لا تعرض موضوعك للغلق ،،

افتح على خصائص الحقل / لسان التبويب تنسيق الصق هذه العبارة داخل القيمة تنسيق : yyyy/mm/dd

الصق هذا الكود في محرر الفيجوال لنموذج البحث Private Sub text7_AfterUpdate() DoCmd.OpenForm "tabel", , , "[رقم الصنف]=forms!tabel1!text7" End Sub

بل نحن من يفتقدك ،،، حفظكم الله ورعاكم في الحضور والغيبة .

مرحا مرحا استاذ جعفر ... طريقة ترقيم ثابتة بامتياز وايضا اعيد المثال بطريقتي السابقة ولكن بزيادة لمسة تنسيقية للرقم مثال2.rar

في مثالي المرفق تم التطبيق بشكل سليم لاحظ ان حقل ID رقميا هل نوع الحقل عندك نصيا ؟

المعذرة اخوي الشاعر عن هذه الغفلة بعد تصفح مثالك وجدتك وقعت في خطأ بتسميتك الجدول بــ tab فالكلمة محجوزة لدى اكسس كعلامة جدولة اليك المثال بعد التعديل مثال.rar

السلام عليكم ورحمة الله اخواني الكرام قد يكون هذا الاعلان هذا خارج اختصاصات الموقع نوعا ما والطلب مقدم من مؤسسة ادارية وتعليمية تتكون من 50 فرعا المطلوب برنامج شؤون موظفين مع قسم تعليمي على ان يكون ربط الفروع عبر صفحات النت من يجد لديه الاستعداد والمقدرة مراسلتي على الخاص او على الايميل : mzm1430@gmail.com

جميع اكواد ومحاولات الاخوة الاعزاء لم تعمل معك .. اكيد المسألة فيها إنّ يمكن الخلل عندك فقط تفضل وضعت الكود في مثال حسب الامتدادات والاسماء التي طرحتها تمت التجربة ويعمل على اكمل وجه فك المرفقات داخل قرص D المرفقات عبارة عن مجلدين وبرنامج ، و داخل احد المجلدات النسخة الخلفية انسخ اي شيء.rar استدراك : اخي آخر الارض انتبه عند فك الملفات ان تفقد شيئا من عملك حيث يوجد لديك مجلدات بالاسم نفسه

وعليكم السلام في مكتبتي امثلة كثيرة متنوعة للنسخ ولكني عثرت لك على هذا الكود الصغير يقوم بنسخ اي شيء باي اسم واي امتداد وصيغة ولصقه على اي اسم نختاره واي امتداد وصيغة Private Sub zer1_Click() CopyFile CurrentProject.Path & "\xx.accdb", "D:\xx.accdb" End Sub Function CopyFile(vPathSource As String, vPathDestination As String) As Boolean FileCopy vPathSource, vPathDestination CopyFile = True End Function اخي آخر الارض .. جرب ووافنا بالنتائج

الحمد لله .. ولك بمثل ما دعوت وفقك الله لكل خير