المساعدة فى اكمال مشروع تسجيل فيروس كورونا

[mostafa2500]

ارجو من السادة الأفاضل جزاكم الله خيرا فى جعل المشروع يعمل على backup تلقائياً كل يوم وكذلك عدم تكرار سجل بمجمل بياناته بمعنى عند ادخال الرقم الفومى والاسم وتاريخ الدخول وتاريخ الخروج ....إلخ يعطى البرنامج تنبيه بوجود السجل من قبل ولا يكمل السجل ويفرغ حقوله .... وجب التنويه ان هذا العمل مرضاة لوجه الله تعالى حيث اننى اعمل بمستشفى صدر وجزاكم الله خيراً وجعله فى ميزان حسناتكم والشكر موصول لحضراتكم .

رابط المشروع

http://www.mediafire.com/file/v1gw6yab7cd5xc6/%D9%83%D9%88%D8%B1%D9%88%D9%86%D8%A7.accdb/file

حجم المشروع 7 ميجا

[mostafa2500]

ملحوظه ارجو من حضراتكم ترك حقل رقم الدفتر لانه يوجد ارقام مشتركة

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم ارجو ان يكون هو المطلوب

UPكورونا.rar

تحياتي

[mostafa2500]

بارك الله فيك اخى محمد أبوعبدالله لسرعة استجابتك ومجهوك الرائع وجعله الله لك فى ميزان حسناتك الف شكر لحضرتك

👍👍👍

[mostafa2500]

سؤال لحضرتك لو تسمح هو مسار حفظ النسخة الاحتياطى backup اين سوف تتواجد ولك جزيل الشكر لحضرتك

[محمد أبوعبدالله]

7 دقائق مضت, mostafa2500 said:

هو مسار حفظ النسخة الاحتياطى backup اين سوف تتواجد

لديك جدول باسم copy1

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

يمكنك تحديد المكان حسب رغبتك او حسب حاجة البرنامج لذلك

تحياتي

[mostafa2500]

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

[mostafa2500]

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

وجزاكم الله خير الثواب .... والسلام عليكم ورحمة الله وبركاته

[محمد أبوعبدالله]

اخي الكريم باذن الله كل شىء متاح

وقد سألت عن مكان حفظ النسخة الاحتياطية واجبتك

وقد وجدت اكثر من نموذج ووحدة نمطية لعمل نسخة احتياطية من البرنامج

ويكفي كود واحد فقط استخدمه عند الخروج من البرنامج

Public Function vback()

Dim DBOld As String
Dim DBNew As String
Dim BackUpname As String
Dim BackUpType As String

    DBOld = DLookup("pate1", "copy1") ' ÞÇÚÏÉ ÈíÇäÇÊ ÇáãÑÊÈØÉ
    DBNew = DLookup("pate_copy", "copy1")  ' ãßÇä ÍÝÙ ÇáäÓÎÉ
    BackUpname = DLookup("c_ymd", "copy1")
    BackUpType = DLookup("cv", "copy1")
    

     Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & _
     DBNew & "\" & CurrentProject.name & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & BackUpType & """", 0

End Function

سيقوم بحفظ اخر نسخة من البرنامج بالتاريخ (اسم البرنامج - سنة - شهر - يوم - ساعة - دقيقة - ثانية )

وفي حدث عند الخروج في النموذج الرئيسي ضع الكود التالي

    Call vback

تحياتي

[mostafa2500]

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