[احمد عبد الحكيم]

بسم الله الرحمن الرحيم
السلام عليكم شباب

انا عندى ملف قاعدة بيانات يتم الحفظ يومى بتاريخ اليوم

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

[احمد عبد الحكيم]

هذا هو كود قاعدو البيانات
فى حدث عند الاغلاق

اذا كان اسم المجلد بتاريخ اليوم لا يعمل الامر غير ذلك تظهر رسالة

PHP كود :

Dim oCnn As OleDbConnection

        oCnn = New OleDbConnection
        oCnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LibraryData\LibraryData.accdb;"
        oCnn.Close()

        SourceFile = "D:\LibraryData\LibraryData.accdb"
        DestinationFile = "D:\DataCopy\" & Format(Date.Now, "yyyy-MM-dd ") & ".accdb"
        FileCopy(SourceFile, DestinationFile)

        oCnn.Open() 


[thevest_knight]

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

PHP كود :

       Dim SourceFile As String
        Dim DestinationFile As String

        SourceFile = "D:\LibraryData\LibraryData.accdb"
        DestinationFile = "D:\DataCopy" & "-" & Format(Date.Now, "yyyy-MM-dd ") & ".accdb"

        If File.Exists(DestinationFile) Then
            If MsgBox("الملف موجود هل تريد حفظه مرة أخرى", vbYesNo) = vbYes Then
                FileCopy(SourceFile, DestinationFile)
                MsgBox("تم الحفظ بنجاح")
            Else
                Return
            End If
        Else
            FileCopy(SourceFile, DestinationFile)
            MsgBox("تم الحفظ بنجاح")
        End If

     


تقبل مروري