sofiane05552

السلام عليكم

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

15 دقائق مضت, ابو زاهر said:

If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL " delete * from ABC"
MsgBox "لقد تم حذف جميع الاصناف بنجاح!!!!", vbOKOnly, "تنبيه"
Else
DoCmd.CancelEvent
End If

 

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

ان شاءالله يكون طلبك

بارك الله فيك جزاك الله خيرا 

السلام عليكم

طلب  كود حذف  جدول  معين مثلا لدي جدول اسمه  (ABC) اريد كود عشان  لو ضغطت عليه يحذف كل  ماهو موجود في جدول (ABC) فقط

هل من حل 

بارك الله فيك

السلام عليكم 

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

3 دقائق مضت, رعد داود said:

وعليكم  السلام  أخي 
الاكسس قاعدة بيانات  فيها  كائنات  جداول  واستعلامات ونماذج ...

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

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

السلام عليكم

لدي ملف اكسل  اريد تحويله الى الأكسس 

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

ملف اكسل.zip

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

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

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

تحياتي 

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

في 22/01/2018 at 18:37, sandanet said:

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

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

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

 

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

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

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

Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Commande0.Picture = "1"
End Sub

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

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Commande0.Picture = "0"
End Sub

لكي يظهر صورة الاولى على الزر

 

Database3.zip

بارك الله فيك استاذ جزاك الله خيرا

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

19 دقائق مضت, صالح حمادي said:

السلام عليكم

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

Me.button1.Picture = CurrentProject.Path & "\6.bmp"

بحيث : 6.bmp هو اسم الصورة و امتدادها

جزاك الله خيرااخي ممكن تضع لي مثال في  هذا الفورم فيه فورم فيها  زر فيه صورتين ممكن تطبق طريقة ذي لكي افهم 

Database3.zip

السلام عليكم 

اريد مساعدة لوضع صورتين في زر عند وضع ماوس على  الزر تتغير صورة ممكن كود وطريقة 

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

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

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

AccessMediaPlayer.rar

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

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

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

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

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

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

Database3.rar

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

السلام عليكم

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

Database3.rar

استاذ سؤال  لو اعمل share  ويتم توزيخ نسخة  اكسس الخاصة بفديوات ونزلت  مثلا فيديو جديد هل يمكن ان يضهر الفيديو  بكل  نسخ التي  تم توزيعها  

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

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

تحية طيبة وبعد..

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

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

اما النسخة الاخرى فيجب عليك وضع الفيديوات في مجلد مع البرنامج اسمه media كما يجب عليك وضع كامل مجلد البرنامج في احدى اقراص الجهاز c او d  او غيرها مباشرة وسيقوم البرنامج بضبط المسار تلقائياً

 

باسورد الدخول لاضافة فيديوات الى البرنامج هو 12345

تحياتي

AccessMediaPlayer.zip

AccessMediaPlayer.zip

أخي @sofiane05552 كنت تبحث عن هذا البرنامج ارجو ان يكون هو المطلوب

 

الله الله مشاء الله مشاء الله مشاء الله بارك الله فيك  عمل جبار بارك الله فيك احسنت واو الف الف الف الف  مليار شكر اعجبني كثيرا 

السلام عليكم 

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

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

ان شاء الله سوف يتم طرح الموضوع خلال هذه الفترة

ان شاء الله انا بنتضاره بفاغ الصبر

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

نعم يمكن عمل ذلك .. ارجو منك متابعتي لاني مازلت اعمل على هكذا موضوع ولم انتهي منه بعد

تحياتي

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