ادراج ملفات في نموذج الاكسس صوت+فلاش+فيديو+تكبير+ تصغير+ استعاده

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

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


الخطوة الثانية


الان ضع الكود


كما تلاحظ في اخر الكود يوجد ملف صوتي غيره بملفك الخاص

Private Sub Form_Open(Cancel As Integer)
    Call PlaySound(Application.CurrentProject.Path & "\Ekhlas.wav")
        End Sub

في حدث عند النقر


ثانيا:

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


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


الان سينتج لدينا هذا الكائن


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


قم بوضع الماوس داخل المربع الاسود اي الكائن واضغط بالماوس مره واحده فقط وستظهر لك المقابض في الاطراف قم بوضع الماوس على الركن الايمن العلوي للكائن حتى تتغير الى يد سوداء تشير بالاصبع اضغط الان بالماوس الايمن واختر خصائض الكائن


بعد الضغط بالماوس الايمن ستظهر لك لوحة الخصائص قم بتغيير الاسم كما هو ظاهر في الصوره اي الى obj_flashmovvie


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



الان ضع هذا الكود في حدث عند التنشيط مع ملاحظة تغيير ملف الفلاش قي اخر السطر بملفك انت كما تلاحظ هنا اسم الملف Bee.swf

Private Sub Form_Activate()
    Me.obj_flashmovie.Movie = Application.CurrentProject.Path + "\Bee.swf"  
End Sub

الخطوة الاخيره : والهامة جدا لجعل الفلاش في قاعدة البيانات يعمل بسلاسة بدون تقطيع اتبع التالي
1. اعرض النموذج الذي عليه ملف الفلاش في عرض التصميم وقم بالنقر على الكائن بالماوس الايمن ةاختر خصائص كما في الصوره رقم 1
2. من الخصائص اختر التبويب الكل ثم اختر مخصص وسيظهر لك مربع ذو ثلاث نقط قم بالضغط عليه كما في الصوره رقم 2
3. ستفتح لك لوحة خصائص الكائن ضع اسم الكائن " ملف الفلاش بكامل مساره " كما في الصوره رقم 3 ثم قم بالتاشير بعلامات الصح على الاختيارات المطلوبه كما في الصوره بالترتيب .

الان قم بحفظ ماعملته ( الله يحفظك ) ثم شغل ملفك ومبروك عليك


ثالثا :
لتكبير الشاشه
انشئ زر امر وضع له هذا الاسم Maximize ثم ضع هذا الكود في حدث عند النقر

Private Sub Maximize_Click()
DoCmd.Maximize
End Sub

Private Sub Minimize_Click()
DoCmd.Restore
End Sub