عمل رسم بياني & , الغاء الحفظ التلقائي

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

اخي الكريم

هذا مثال على الرسم البياني وهو من منتداء اوفيسان

والله اعلم

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

gfx.zip

اخي الطيب

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

وبارك الله فيك على هذا المثال الجميل

اخي وليد اليك الشرح الكامل المصور لهذه العملية

1. قم بإنشاء نموذج بواسطة معالج النماذج من اطار قاعدة البيانات مبني على الجدول المطلوب

2. بعد اختيار الجدول وحقول البيانات اختر التالي ومنه ستظهر لك هذه اللوحة

اختر منها PivotChart ثم التالي حتى اكمال المعالج

3. وستجد انه اصبح بهذا الوضع

اختر منه قائمة حقول التخطيط ثم اضغط على علامة + الخاصة بخانة البيانات للحقل المطلوب وهو في مثالنا الحقل ( A ) سيتفرع منه ايضا حقل اخر ( A ) حقل مجموع البيانات قم بإختياره .

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

4. قم بحفظ النموذج

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

6. الان انظر الى شريط ادوات برنامج الاكسيس وسترى ان قد اضاف لك رمز خصائص التخطيطات

قم بالضغط عليها واختر من التبويب الذي سيظهر لك النوع ( سترى جميع انواع التخطيطات اختر ما يناسبك )

وهذا هو الشكل النهائي للنموذج

Chart.rar

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

يوضع في حدث عند اغلاق النموذج

Private Sub Form_Close()
DoCmd.CancelEvent
End Sub

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

Private Sub Form_Close()
Me.Undo
End Sub

ايضا يمكنك استخدام رسالة للحفظ او عدم الحفظ حسب اختيارك

Private Sub Form_Close()
Dim strMsg As String
strMsg = strMsg & "هل ترغب بحفظ التغييرات " & vbCrLf & vbCrLf & " إضغط   نعم  للحفظ او  لا   لعدم الحفظ "
If MsgBox(strMsg, vbQuestion + vbYesNo, "حفظ البيانات") = vbYes Then
DoCmd.Save
Else
Me.Undo
End If
End Sub

اختكم

زهره

الاخ الطيب

متشكر جدا جدا جدا جدا

الاخت زهرة

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

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

بارك الله فيك اخي الكريم

مشكوورة أختي زهرة على هذا الشرح الوافي لعملية الرسم البياني و سوف أحاول العمل على تطبيق الشرح، وإن شاء الله يكون الشرح به مطلوبي

شكرا ألف شكر على هذه المعلومات القيمة

شكراً للسائل وشكراً لكل من أجاب

شكرا جزيلا اخت زهرة و الله قد ابدعتي

لا اقول الا ان يجازيكي الله خيرا

تحياتي