عمل زر لعمل نسخة احتياطية

السلام عليكم

يمكنك عمل نسخه عن طريق الاكسس انظر الصورة

اختي الفاضلة نادية

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

وكل عام وانتم بخير

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

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

za-Nadih-Last-4.rar

بالتوفيق

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

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

وشكرا لك على مساعدتك لي

ولكن بعد اضافة زر لعمل نسخة احتياطية من البرنامج ظهرت عندي مشكلة في نموذج الاحصائية وهي عند الضغط على الايقونة الخاصة في استخراج ملف الاكسل تظهر لي رسالة خطا ولا يظهر لي ملف الاكسل مع انه كان شغال 100% قبل عمل زر النسخة الاحتياطية ارجو الاطلاع على المرفق

وانا اسف كثير على كثر طلابتي ولكن هذا طمع في كرمك وتواضعك وحفظك الله لنا

وارجو المساعدة

اختي الفاضله نادية

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

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

هل من الممكن اعرف ماذا فعلتي بالضبط بعد ان قمتي بتحميل الملف الأخير ؟؟؟

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

ولكن في كل مره تطلبين تحديث تضعين ملف مختلف .

الآن اخبريني بالخطوات وحده وحده كي اعرف اين المشكله .

او ضعي الملف الخاص بك والذي تعملين عليه الآن لأعرف اين المشكله

بالتوفيق

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

انا لا افعل شئ سوى حملت الملف ثم عملت على فك الضغط عن الملف

حاولت التجربة زر النسخة الاحتياطية يعمل بشكل ممتاز

حولت الضغط على ايقونق الاكسل لا تعمل وتظهر لي هذه الرسالة

'run-time error'2282'

التنسيق الذي تحاول إخراج الكائنالحالي به غير متوفر

وعند الضغط على debug توجهني الى السطر هذا في الوحدة النمطية

DoCmd.OutputTo acOutputReport, "rptALL", "Excel97-Excel2003Workbook(*.xls)", "ÇÍÕÇÆíÉ ÇáÏÑÌÉ ÇáÚãáíÉ" & ".xls", True, "", 0, acExportQualityPrint

كذلك انا لا اقم باستيراد اي شئ حاولت مرة استيراد نموذج الاحصائية ظهرت لي مشكلة في النموذج وهي اختيار سنة التخرج ثم اختيار الدرجة العلمية لا يظهر لي العدد

واعمل على نفس الملف هذا

nkater كتب:

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

انا لا افعل شئ سوى حملت الملف ثم عملت على فك الضغط عن الملف

حاولت التجربة زر النسخة الاحتياطية يعمل بشكل ممتاز

حولت الضغط على ايقونق الاكسل لا تعمل وتظهر لي هذه الرسالة

'run-time error'2282'

التنسيق الذي تحاول إخراج الكائنالحالي به غير متوفر

وعند الضغط على debug توجهني الى السطر هذا في الوحدة النمطية

DoCmd.OutputTo acOutputReport, "rptALL", "Excel97-Excel2003Workbook(*.xls)", "ÇÍÕÇÆíÉ ÇáÏÑÌÉ ÇáÚãáíÉ" & ".xls", True, "", 0, acExportQualityPrint

كذلك انا لا اقم باستيراد اي شئ حاولت مرة استيراد نموذج الاحصائية ظهرت لي مشكلة في النموذج وهي اختيار سنة التخرج ثم اختيار الدرجة العلمية لا يظهر لي العدد

واعمل على نفس الملف هذا

اختي الغالية : ناديه

قولي آمين ان الله يسامحك دنيا وآخره

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

1. من نموذج الإحصائيات اختاري السنه ثم اختاري واحد من الخيارات ( الدرجة العلمية او التخصص او المعدل التراكمي ) واحد منها فقط

2. الآن سيظهر لك رقم اسفل في مربع النص حسب الذي قمتي بإختياره

3. افتحي التقرير ( اعيد واكرر ) افتحي اولا التقرير افتحي اولا التقرير افتحي اولا التقرير ( حتى ما تنسي هذه الخطوه )

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

لا تنسي هذه الخطوات علقيها قدامك

الآن جربي هذه الخطوات واعطيني خبر ماذا حصل معك

بالتوفيق

مسا الخير ويديك الف عافية لكن انا عملت نفس الخطوات السابقة ولكن كان التصدير شغال في النموذج السابق قبل زر الاحصائية

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

وشكرا لك على حسن تعاونك

nkater كتب:

مسا الخير ويديك الف عافية لكن انا عملت نفس الخطوات السابقة ولكن كان التصدير شغال في النموذج السابق قبل زر الاحصائية

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

وشكرا لك على حسن تعاونك

انا في اعتقادي ان المشكلة في جهازي وليس في البرنامج انا ساحاول فتح البرنامج على جهاز آخر مادام يعمل عندك الملف معك بشكل ممتاز تكون المشكلة في جهازي وانا لا اريد اغلبك معي كثيير

زر النسخة الاحتياطية يعمل بشكل جيد

ولكن بعد اذنك تتمي جميلك وتعطيني شرح كيفية تم تصميم الزر

وشكرا لك على حسن تعاونك

nkater كتب:

انا في اعتقادي ان المشكلة في جهازي وليس في البرنامج انا ساحاول فتح البرنامج على جهاز آخر مادام يعمل عندك الملف معك بشكل ممتاز تكون المشكلة في جهازي وانا لا اريد اغلبك معي كثيير

زر النسخة الاحتياطية يعمل بشكل جيد

ولكن بعد اذنك تتمي جميلك وتعطيني شرح كيفية تم تصميم الزر

وشكرا لك على حسن تعاونك

قمت بفتح البرنامج من خلال اكسس 2010 يفتح بشكل جيد ويسلم يديك ولا اعلم لماذا لايعمل باكسس 2007

اختي الفاضله : ناديه

هل تقصدين زر النسخة الإحتياطيه

اذا كان هذا ما تقصدينه فهذا الزر يستدعي داله fMakeBackup في الوحده الوحده النمطية الموجوده في البرنامج بإمكانك الإطلاع عليها

فعند الضغط على زر امر النسخة الإحتياطيه في النموذج الرئيسي يستدعي الداله بهذه الطريقة Call fMakeBackup

بالتوفيق

zahrah كتب:

اختي الفاضله : ناديه

هل تقصدين زر النسخة الإحتياطيه

اذا كان هذا ما تقصدينه فهذا الزر يستدعي داله fMakeBackup في الوحده الوحده النمطية الموجوده في البرنامج بإمكانك الإطلاع عليها

فعند الضغط على زر امر النسخة الإحتياطيه في النموذج الرئيسي يستدعي الداله بهذه الطريقة Call fMakeBackup

بالتوفيق

Function fMakeBackup() As Boolean

Dim strMsg As String

Dim tshFileOp As SHFILEOPSTRUCT

Dim lngRet As Long

Dim strSaveFile As String

Dim lngFlags As Long

Const cERR_USER_CANCEL = vbObjectError + 1

Const cERR_DB_EXCLUSIVE = vbObjectError + 2

On Local Error GoTo fMakeBackup_Err

If fDBExclusive = True Then Err.Raise cERR_DB_EXCLUSIVE

strMsg = "åá ÊÑíÏ ÇÎÐ äÓÎÉ ÇÍÊíÇØíÉ áÞÇÚÏÉ ÇáÈíÇäÇÊ"

If MsgBox(strMsg, vbQuestion + vbYesNo, "äÓÎÉ ÇÍÊíÇØíÉ") = vbNo Then _

Err.Raise cERR_USER_CANCEL

lngFlags = FOF_SIMPLEPROGRESS Or _

FOF_FILESONLY Or _

FOF_RENAMEONCOLLISION

strSaveFile = CurrentDb.Name

With tshFileOp

.wFunc = FO_COPY

.hwnd = hWndAccessApp

.pFrom = CurrentDb.Name & vbNullChar

.pTo = strSaveFile & vbNullChar

.fFlags = lngFlags

End With

lngRet = apiSHFileOperation(tshFileOp)

fMakeBackup = (lngRet = 0)

fMakeBackup_End:

Exit Function

fMakeBackup_Err:

fMakeBackup = False

Select Case Err.number

Case cERR_USER_CANCEL:

Case cERR_DB_EXCLUSIVE:

MsgBox "The current database " & vbCrLf & CurrentDb.Name & vbCrLf & _

vbCrLf & "is opened exclusively. Please reopen in shared mode" & _

" and try again.", vbCritical + vbOKOnly, "Database copy failed"

Case Else:

strMsg = "Error Information..." & vbCrLf & vbCrLf

strMsg = strMsg & "Function: fMakeBackup" & vbCrLf

strMsg = strMsg & "Description: " & Err.Description & vbCrLf

strMsg = strMsg & "Error #: " & Format$(Err.number) & vbCrLf

MsgBox strMsg, vbInformation, "fMakeBackup"

End Select

Resume fMakeBackup_End

End Function

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

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

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

اختي الفاضلة : ناديه

ولماذا تتعبي نفسك بمثل هذه الأمور البرمجيه المعقده

كل ما عليك هو استيراد هذه الوحده النمطية الى اي قاعدة بيانات اكسيس وبعدها اعملي زر أمر وضعي في حدث عند النقر هذه العباره Call fMakeBackup وانتهى الموضوع

بالتوفيق

zahrah كتب:

اختي الفاضلة : ناديه

ولماذا تتعبي نفسك بمثل هذه الأمور البرمجيه المعقده

كل ما عليك هو استيراد هذه الوحده النمطية الى اي قاعدة بيانات اكسيس وبعدها اعملي زر أمر وضعي في حدث عند النقر هذه العباره Call fMakeBackup وانتهى الموضوع

بالتوفيق

هذا ماكنت اريد معرفته شكرا اختي زهرة

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

الرجاء المساعدة يااخت زهرة

لاني حاولت فتح البرنامج على جهازي في العمل على اكسس 2007 ظهرت لي نفس المشكلة التقرير يعمل ولكن الاكسل لا يعمل تظهر لي نفس الرسالة مع اني فتحت نفس البرنامج على اكسس 2010 شغال طبيعي

رجاءا المساعدة

nkater كتب:

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

الرجاء المساعدة يااخت زهرة

لاني حاولت فتح البرنامج على جهازي في العمل على اكسس 2007 ظهرت لي نفس المشكلة التقرير يعمل ولكن الاكسل لا يعمل تظهر لي نفس الرسالة مع اني فتحت نفس البرنامج على اكسس 2010 شغال طبيعي

رجاءا المساعدة

اختي الفاضله : ناديه

البرنامج يعمل عندي بدون مشكله على اكسيس 2007

رجاء راجعي هذا الموضوع للأهمية

/index.php?showtopic=251213

بالتوفيق

الاخت الفاضلة زهرة

لدي مشكلة لن يحلها غيرك إن شاء الله

مشكلة عويصة بعد تحويل البرنامج الى صيغة EXE

بسم الله والصلاة والسلام على خير خلق الله سيدنا محمد وعلى آله وصحبه وسلم

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

بعد تعب وسهر تقريبا شهر وأكثر

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

ولكن بعد الانتهاء من عمل البرنامج وقمت بتحويله الى exe عن طريق تحزيمه ببرنامج Microsoft Office Access 2003 Developer زي ما تفضلت وشرحته وكان الموضوع من الألف إلى الياء ناجح والحمد لله ماعدا ما اكتشفته أثناء تجربة البرنامج ووضعه تحت الإختبار طوال اليوم وهي شريط الأدوات الذي وضعته في الأكسس لا يظهر بعد تحزيم البرنامج وتحويله إلى exe حتى القائمة المختصرة بالضغط على كليك يمين بالماوس علشان تظهر قائمة بها أمر طباعة أو معاينة قبل الطباعة لا تظهر

والآن لا أستطيع طباعة التقارير وهذا مهم جدا بالنسبة لأي برنامج وهي التقارير وطباعتها

لذلك أرجو منك الاهتمام ولو هناك حل لهذه المشكلة فأرجو أن تفيديني فيه

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

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

شكرا لك اختي زهرة

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

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

لاني كتبت مشاركة جديدة ولكن لم ياتني الرد حتى الآن

وشكرا لك على مساعدتك الجبارة

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

رسالة خاصة الى الاخت زهرة اتمنى مساعدتي في البرنامج في ترتييب نماذجه وانهاؤه لكي استطيع تسليمه واكون شاكرة لك

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

الرجاء المساعدة

هلوقت انا قمت بتزيل حزمة تحديث اكسس 2007 على الجهاز عندي

ولكن ظهرت عندي مشكلة اخرى هو ان اكسس 2010 اصبح لا يعمل البرنامج لا يعمل

ارجو الافادة ماهي المشكلة

zahrah كتب:

 

اختي الفاضلة نادية

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

وكل عام وانتم بخير

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

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

za-Nadih-Last-4.rar

بالتوفيق

 

السلام عليكم  نشكر الست زهرة على التعديل ولكنه لايعمل على نظام 64 بت  واكسس 2010  ارجو مساعدتي مع الشكر الجزيل

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

معلمتنا العزيزة زهرة

هل النسخ الاحتياطى هذا ينفع فى الجداول المرتبطة

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

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

معلمتنا العزيزة زهرة

هل النسخ الاحتياطى هذا ينفع فى الجداول المرتبطة

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