ادراج ملفات في نموذج الاكسس

نتابع الشرح لما بقي من الموضوع

ثانيا:

طريقة عمل ملف فلاش

انشئ نموذج فاضي في عرض التصميم حسب المقاسات المناسبه لحجم ملف الفلاش المطلوب

اختر من شريط الادوات ادراج ثم عنصر تحكم 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

لاعادة الشاشة لوضعها الطبيعي انشئ زر امر وضع له هذا الاسم Minimize وفي حدث عند النقر ضع هذا الكود

Private Sub Minimize_Click()
DoCmd.Restore
End Sub

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

وختاما اشكركم جميعا ولكم مني خالص الدعاء والشكر والتقدير واتمنى ان ارى تطبيقاتكم

AddSound.rar

-09

جهد تشكرين عليه

لكن أرجو وضع الصور هنا في الفريق العربي وإليك رابط رفع الصور

http://www.arabteam2000.com/picload/

===

الاستاذ / فيصل الحربي

ومشرفنا الغالي

والله انك خدمتني اكبر خدمه وكانت غايبه عني فلم اعلم بها الا منك الان وسيتم تلافي الملاحظات في المرات القادمه إن شاء الله فجزاك الله الف خير

اختكم

زهره

مرحبا

وكل عام والاعضاء والمشرفين بخير

والله يعطيك العافيه اختي زهره

على الشرح الرئع والممتاز والله يزيدك ويزيدك

اخي الراحل

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

هل وفيت بوعدي معاك ؟

اختكم

زهره

جهد مقدر وواضح ، الله يوفقك.

وفيتي بالعهد اختي الزهره

واشهد الله انك ما قصرتي في شي ابدء

الله يزيدك ويزيدك اكثر واكثر

الأخت zahrah

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

الله يعطيكي العافية ويستر عليك ، والله جهد كبير

اختي زهره

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

بصراحة موضوع تشكرين عليه

نحن نعتز ونفتخر بامثالكم

الاخ الراحل

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

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

اختكم

زهره

اختة زهرة

انا جربت المثل بتاع الفلاش لكن مش شغل حيث انا كلمة movie

غير موجودة لم اكتب بيدي بيقول خطا

ياريت الرد

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

اختنا العزيزة أ/ زهرة

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

انا حاولت انفذ كل اللي حضرتك تفضلتي وقولتيه لكن كل مرة تظهر عندي نفس المشكلة

اسف لاني مش قادر انزل اصورة كصورة وهنزلها كمرفق

وشكرا لتفاعلك

untitled.zip

اخي الفاضل

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

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

وطريقة الاستيراد هي :

1. افتح قاعدة بياناتك ثم اختر ملف ثم احضار بيانات خارجية ثم استيراد

2. سيظهر لك عارض الملفات اختر الملف المرفق AddSound الخاص بالشرح ثم انتقل للوحدات النمطية

3. استورد الان الوحدة النمطية الخاصة بالصوت وسوف يعمل المثال لديك

السبب في ان برنامجك لا يتعرف على الصوت لانه يحاول استدعاء الوحدة النمطية من خلال الامر Call PlaySound وعندما لا يجده تظهر رسالة الخطأ

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

عند الضغط بالزر الأيمن للماوس علي ملف الفلاش ينتج القائمة الخاصة ب flash player والتي تحتوي علي zoom in ,zoom out ,show all,........ هل هناك طريقة لمنع ظهور هذه القائمة مشكورين

اخي الفاضل ابو هاشم المصري

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

1. فبل فتح قاعدة البيانات اضغط على مفتاح الشفت Shift في لوحة المفاتيح ولا ترفع يدك عن المفتاح ثم افتح قاعدة البيانات

2. الان انتقل الى نموذج الفلاش واعرضه في وضع التصميم

3. اختر كائن الفلاش ذو اللون الاسود ثم اضغط بالماوس الايمن عليه واختر خصائص

4. اختر التبويب الكل

5. اختر مخصص

6. قم بإزالة علامة الصح من امام Show Menu

7. اضغط موافق ثم انظر النتيجه

8. يتبقى خانة واحدة وهي About الخاصة ببرنامج الفلاش لا يمكن ازالتها

الاخت / zahrah

مجهود كبير.. بوركت اناملكِ

لكِ منا خالص الشكر والامتنان

ألف شكر لك أختي الفاضلة ..

بارك الله فيك أختي زهرة

والحق يقال بأنك زهرة هذا المنتدى

جعل الله ذلك في موازين أعمالك

شكرا جزيلا ا/ زهرة وجزاكم الله خيرا جميعا

الف شكر والله انك تستحقين التقدير

تحياااااااااااااااتي

الاخت / zahrah

عذرا علي الرد المتأخر لأنني فتحت الموضوع الأن

وبارك الله فيك وجعله في ميزان حسناتك ( علم نافع ينتفع به) هذا هو العمل الغير المنقطع

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

محب للعلم

بارك الله فيك اختنا العزيزة زهرة

للرفع اعترفا بفضل الاخت زهرة على المنتدى لحين معرفة اخبارها