مشكلة في الفورم

[sofiane05552]

السلام عليكم

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

Database3.rar

[Shivan Rekany]

اضف مكتبة ويندوز ميديا بلاير

Database3.rar

تم تعديل يناير 22, 2018 بواسطه Shivan Rekany

[sofiane05552]

9 دقائق مضت, Shivan Rekany said:

اضف مكتبة ويندوز ميديا بلاير

Database3.rar

بارك الله فيك استاذ مشاء الله ممكن تشرحلي  مشكل الي كان  فيها  وكيف تم تصليحه و بارك الله فيك استاذ

[Shivan Rekany]

47 دقائق مضت, sofiane05552 said:

بارك الله فيك استاذ مشاء الله ممكن تشرحلي  مشكل الي كان  فيها  وكيف تم تصليحه و بارك الله فيك استاذ

تم اضافة مكتبة ويندوز ميديا بلاير
شوف الصورة

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

[sofiane05552]

41 دقائق مضت, Shivan Rekany said:

تم اضافة مكتبة ويندوز ميديا بلاير
شوف الصورة

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

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

[sandanet]

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

[sofiane05552]

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

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

بارك الله فيك استاذ

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

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

هل يمكنك مساعدتي في اضافة فورم مشاهدة فيديو بهذا شكل في الفورم  10  نقلته الي فورم 10 لكن فيديوات صارت ماتشتغل صورة شكل 

و الغاء طريقة Hide access لكي تتماشي  مع  فورم الخاص بي المرفق في اسفل 

AccessMediaPlayer.rar

[sandanet]

عفواً اخي لم افهم المطلوب ارجو منك اعادة صياغة سؤالك بشكل اوضح .. لا اعرف ماذا تقصد بـ "اضافة فورم مشاهدة فيديو بهذا شكل في الفورم  10  نقلته الي فورم 10 لكن فيديوات صارت ماتشتغل صورة شكل" الوصورة المرفقة لاتوضح شيء كما ان الملف المرفق لاتوجد به مشكلة!!

على العموم اذا اردت الغاء  Hide access  فقم بحذف كلمة HideAccess من النماذج وقم بازالة الوحدة النمطية Hide Access

 

تم تعديل يناير 22, 2018 بواسطه sandanet

[sofiane05552]

18 دقائق مضت, sandanet said:

عفواً اخي لم افهم المطلوب ارجو منك اعادة صياغة سؤالك بشكل اوضح .. لا اعرف ماذا تقصد بـ "اضافة فورم مشاهدة فيديو بهذا شكل في الفورم  10  نقلته الي فورم 10 لكن فيديوات صارت ماتشتغل صورة شكل" الوصورة المرفقة لاتوضح شيء كما ان الملف المرفق لاتوجد به مشكلة!!

على العموم اذا اردت الغاء  Hide access  فقم بحذف كلمة HideAccess من النماذج وقم بازالة الوحدة النمطية Hide Access

 

الف شكر استاذ بارك الله فيك تم تصليح المشكل

[حسين العربى]

تفضل اخي سفيان  

كود عمل ارتباط بقاعدة بيانات 

عمل ارتباط بقاعدة بيانات.rar

[sofiane05552]

7 ساعات مضت, حسين العربى said:

تفضل اخي سفيان  

كود عمل ارتباط بقاعدة بيانات 

عمل ارتباط بقاعدة بيانات.rar

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

[sandanet]

الخطأ هو وجود عبارة else و end if  في حين ان عبارة if ملغية لذلك قم بحذف else وكل من end if في اخر الكود كما يجب عليك حذف سطر ال msgbox الاخيرة ايضا

 

تم تعديل يناير 23, 2018 بواسطه sandanet

[حسين العربى]

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

الخطأ هو وجود عبارة else و end if  في حين ان عبارة if ملغية لذلك قم بحذف else وكل من end if في اخر الكود كما يجب عليك حذف سطر ال msgbox الاخيرة ايضا

 

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

كل سطر خاص بجدول

بس اخي سفيان شغل الكود كده من غير تعديل عليه 

يعني لو جدول واحد هيكون الكود كده

Private Sub أمر4_Click()
   
      If AttachDSNLessTable("ITEMS_LABEL_PRINT_SALMYIA", "ITEMS_LABEL_PRINT_SALMYIA", "129.186.1.209", "ERP4_COOP", "hussin", "password") Then

                MsgBox "تم انشاء الاتصال "
                DoCmd.Requery
    Else
        MsgBox "حدث خطا فى انشاء الاتصال "
    End If
        
End Sub

 

[sofiane05552]

52 دقائق مضت, حسين العربى said:

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

كل سطر خاص بجدول

بس اخي سفيان شغل الكود كده من غير تعديل عليه 

يعني لو جدول واحد هيكون الكود كده

Private Sub أمر4_Click()
   
      If AttachDSNLessTable("ITEMS_LABEL_PRINT_SALMYIA", "ITEMS_LABEL_PRINT_SALMYIA", "129.186.1.209", "ERP4_COOP", "hussin", "password") Then

                MsgBox "تم انشاء الاتصال "
                DoCmd.Requery
    Else
        MsgBox "حدث خطا فى انشاء الاتصال "
    End If
        
End Sub

 

تمام جزاك الله استاذ ممكن سؤال  جدوال  بعدما اخذهم الي اس كي ال هل  احذفهم من اكسس  و الأداة تجلب  الجداول  من اس كي ال