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

[kkhalifa1960]

لإبداء الرأي والتعديل .

رجاء ألا تبخلوا عليا بالرد أو المشورة .

واليكم المرفق........

Zip Folder and CopyLast.rar

[kanory]

13 دقائق مضت, kkhalifa1960 said:

لإبداء الرأي والتعديل .

رجاء ألا تبخلوا عليا بالرد أو المشورة .

واليكم المرفق........

بارك الله فيك اخي @kkhalifa1960 

ملاحظة عند الضغط يظهر الملف المضغوط فارغا .... جزاك الله خيرا ...

 

[kkhalifa1960]

انما يعمل عندي تمام واليك نسخة من الفولدر كله 

Zip Folder and CopyLast-1.rar

[محمد احمد لطفى]

الملف المضغوط ملف فارغ

[kkhalifa1960]

نقلت الفورم والجدول لبرنامج أخر ويعمل عادي .

انا اعمل على ويندوز 2010 اوفيس 2010 32بت.

هل عمل لدي أي أحد .

هل من مكتشف للخطأ .

واذا تم اكتشاف خطأ ممكن ارساله لي أو يقوم بالتعديل .

جزاكم الله خير ...........

 

[TQTHAMI]

نفس المشكلة التي عند الاخوان  

الملف المظغوط  فارغ

ويندوز 2010 اوفيس 2010 32بت

ويندوز 2010 اوفيس 2016 32بت

 

[kkhalifa1960]

up

[TQTHAMI]

تمام شغال 100% على اوفس 2019

الان جربته 

[kkhalifa1960]

6 دقائق مضت, TQTHAMI said:

تمام شغال 100% على اوفس 2019

الان جربته 

أستاذي TQTHAMI هل ممكن اكتشاف السبب لانه يعمل عندي تمام  ويندوز 2010 اوفيس 2010 32بت

انا راسي لفت .

 

[Moosak]

أنا يظهر لدي الملف فارغ .. 🙂 

أوفيس 365 ويندوز 10 ..

وأعتقد أن المشكلة ليس لها علاقة بالأوفيس ولا الويندوز .. لعلها مشكلة ترتيب الكود فقط ..

[TQTHAMI]

والله وانا اخوك انا مبتدي كل ما فعلته جربته على الاجهزة الي عندي 2 منها يطلع فارغ الملف المضغوط 

و واحد شغال 100%  

لتنبية اسف الي شغال 2016 وليس 2019

[kkhalifa1960]

الأخوة همتكم معي لاكتشاف الخطأ أو ترتيب الكود لأني مقدر أكتشفه  لأنه يعمل عندي !!!!!!!!!!!!!

[ابوخليل]

14 دقائق مضت, kkhalifa1960 said:

الأخوة همتكم معي لاكتشاف الخطأ أو ترتيب الكود لأني مقدر أكتشفه  لأنه يعمل عندي !!!!!!!!!!!!!

عندي يعمل 

جهازي وندوز 7 اوفيس 10 /32 بت

[kkhalifa1960]

يشرفي تفاعلك معنا استاذي أبو خليل أثلجت صدري وشكراً لكل الزملاء وجزاكم الله عنا كل الخير .

اخواني رتبت الكود وأرجو التجربة وأفيدونا ........

Zip Folder and CopyLast.rar

[محمد احمد لطفى]

مازال الملف المضغوط فارغ

[أبو امين]

البرنامج شغال : بارك الله في صاحبه وجعله في ميزان حسناته 

لكن لي استفسار : البرنامج يخزن نسخة من قاعدة البيانات بامتداد accdb 

هل عند تغيير امداد النسخة الى : accdr اوaccde 

تبقى دائما النسخة المضغوطة بامتداد :accdb 

ساجرب الموضوع و اضيف الجواب 

للاسف عند تغيير امداد النسخة من accdb الى accdr

تقوم بتسجيل ملف مضغوط لكنه فارغ : لنجرب الدخول الى كود البرنامج و تغيير الامتداد به الىaccdr : 

[سامي الحداد]

1 ساعه مضت, kkhalifa1960 said:

الأخوة همتكم معي لاكتشاف الخطأ أو ترتيب الكود لأني مقدر أكتشفه  لأنه يعمل عندي !!!!!!!!!!!!!

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

أحسنت وبارك الله فيك اخي @kkhalifa1960

[أبو امين]

البرنامج يشتغل عال العال لكن بامتداد accdb

لكن عند تغيير القاعدة الى امداد  مثلا accdr 

يكون الملف المضغوط  فار غا 

[محمد احمد لطفى]

عند تغيير الامتداد الى accdr يعمل 

[أبو امين]

الحمد لله مثال استاذي الكريم لو سمحت لانني جربت ءلك لكن لم ينجح الامر

[محمد احمد لطفى]

تفضل قمت بتغيير الامتداد فقط من accdb الى accdr (الملف الاصلى )

Zip Folder and CopyLast.rar

[الحلبي]

17 ساعات مضت, kkhalifa1960 said:

رجاء ألا تبخلوا عليا بالرد أو المشورة .

الاستاذ / خليفة

لا يعمل عندى  وقد حملت جميع المرفقات حتى مرفق الاستاذ / محمد احمد لطفى ولن يعمل عندى

وانى استخدم اوفيس 2010 ويندوز 7 ـ 32 بت

جزاكم الله كل خير

[سامي الحداد]

  

من بعد إذن الاستاذ @kkhalifa1960 جزاه الله خيرا

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

تحياتي للجميع

Sub AddToZip(ByVal zipArchivePath As String, ByVal addPath As String)
    Dim sh As Object
    Dim fSource As Object
    Dim fTarget As Object
    Dim iSource As Object
    Dim sourceItem As Object
    Dim i As Long
    Set sh = CreateObject("Shell.Application")
    Set fTarget = sh.Namespace((zipArchivePath))
    If fTarget Is Nothing Then
        createZipFile zipArchivePath
        Set fTarget = sh.Namespace((zipArchivePath))
        If fTarget Is Nothing Then
            MsgBox "فشل إنشاء ملف مضغوط", vbCritical
            Exit Sub
        End If
    End If
    Dim containingFolder As String
    Dim itemToZip As String
    containingFolder = Left(addPath, InStrRev(addPath, "\"))
    itemToZip = Mid(addPath, InStrRev(addPath, "\") + 1)
    Set fSource = sh.Namespace((containingFolder))
    For i = 0 To fSource.items.Count - 1
        If fSource.items.Item((i)).Name = itemToZip Then
            Set sourceItem = fSource.items.Item((i))
            Exit For
        End If
    Next i
    If sourceItem Is Nothing Then
        MsgBox "فشل العثور على ملف لإضافة ملف مضغوط  ", vbCritical
        Exit Sub
    End If
    On Error Resume Next
    fTarget.CopyHere sourceItem
    If Err.Number <> 0 Then
        MsgBox "فشل في إضافة ملف لضغطه", vbCritical
        Err.Clear
    End If
    On Error GoTo 0
End Sub

 

 

[محمد احمد لطفى]

برنامج الوينرير محدث 
الرسالة 

[سامي الحداد]

قد لا يحتوي متغير addPath على مسار ملف صالح. يجب عليك التحقق من أن قيمة addPath هي مسار ملف صالح وأن الملف موجود في هذا الموقع.

قد لا يتم تعيين المتغير المحتوي على المجلد بشكل صحيح. يجب عليك التحقق من أن قيمة containsFolder هو مسار المجلد الصحيح الذي يحتوي على الملف المراد إضافته.

قد لا يتم تعيين متغير itemToZip بشكل صحيح. يجب عليك التحقق من أن قيمة itemToZip هو اسم الملف الصحيح لإضافته إلى أرشيف zip.

قد تكون هناك مشكلة في fSource.items.Item ((i)) مقارنة الاسم في حلقة For. يجب عليك التحقق من صحة المقارنة ومن أنه تم العثور على الملف الصحيح المراد إضافته.

هل البرنامج موجود في فولدر واحد ام يندرج تحت عدة فولدرات ؟