اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


kkhalifa1960
إذهب إلى أفضل إجابة Solved by kkhalifa1960,

الردود الموصى بها

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

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

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

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

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

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

 

1.png

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

الان جربته 

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

انا راسي لفت .

 

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

و واحد شغال 100%  

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

رابط هذا التعليق
شارك

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

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

عندي يعمل 

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

رابط هذا التعليق
شارك

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

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

Zip Folder and CopyLast.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

وانى استخدم اوفيس 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

 

 

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information