ابوخليل

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

تفضل تم اعداد مثال وتطبيق الكود اعلاه تشغيل فيديو.rar

تفضل الكود المشغل Dim FilePath As String FilePath = Application.CurrentProject.Path & "\myv.wmv" WindowsMediaPlayer6.URL = FilePath WindowsMediaPlayer6 هذا اسم عنصر التحكم الذي ستقوم بإضافته الى النموذج من مربع الادوات من زر : عناصر تحكم اضافية myv.wmv هو اسم ملف الفيديو يكون بجانب قاعدة البيانات

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

وهذا لفتح قاعدة بيانات اكسس Dim app As New Access.Application app.OpenCurrentDatabase "D:\mydb.mdb"

اذا لم تحل مشكلتك يمكنني مساعدتك راسلني على الخاص واكتب بياناتك

شكرا لاخونا صالح حمادي وبعد اذنه استبدل الرقم الظاهر في آخر الكود : الرقم 2 للذهاب الى أخر الحقل الرقم 1 للذهاب الى اول الحقل الرقم صفر لتحديد الحقل بالكامل ولزيادة المعلومات وربط المتجانسات : هنــــا وهنـــــا

السلام عليكم انظر في هذا الموضوع ستجد ما تبحث عنه

تستاهل اكثر الف مبروك شكرا لادارة الموقع

ترقية مستحقة الف مبروك شكرا لادارة الموقع

ترقية مستحقة .. الف مبروك شكرا لادارة الموقع

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

ابداع ليس له حدود عمل جميل مليء بالاكواد الاحترافية وهذه النسخة مرة اخرى معدلة لانها تخرج رسائل خطأ ، فأنت نسيت تعدل الصيغ داخل الاكواد قمت بتعديل اسماء الملفات داخل القاعدة من accdb الى mdb جزاك الله خيرا Elsayed Pro2003.rar

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

الخطأ يوجد مسافة فارغة في اول الجملة بين علامتي التنصيص " behavior entering field"

تفضل هذا مثال آخر عليه صبغة الاستاذة زهرة وفيه مطلوبك برنامج اقساط ممتاز%.rar

سبب المشكلة في تسمية الحقول في الجدول فالوحدة النمطية يتم الفلترة فيها بناء على حقل اسمه id ولكن في الجدول 2 لا نجد هذه التسمية كمفتاح للجدول تم تعديل الحقل الفرعي المرتبط الى id_2 وتعديل المفتاح الى id اتبع هذا الترتيب اذا اردت اضافة جداول اخرى tree customer5.rar

رأينا المظهر فاشتقنا للمخبر شكرا جزيلا استاذنا وحبيبنا هل يوجد نسخة mdb ؟

جرب بعد حذف البيانات اعمل ضغط واصلاح لقاعدة البيانات ويبدو ان القاعدة mdb والطريقة : من شريط الادوات / ادوات / ادوات مساعدة لقواعد البيانات / ضغط واصلاح قاعدة البيانات

الحل هو التحايل على مربع البحث وتحريره من التركيز جرب ارسال المفتاح كما هو موضح وافدنا بالنتيجة Dim X X = text1.Text text2 = X Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & text2 If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Me.text1.SetFocus SendKeys "{f2}" Else DoCmd.GoToRecord , , acNewRec End If

نعم الايام معرفة مسبقا وتأخذ اليوم من التاريخ ()Date الذي هو فعلا تاريخ الجهاز ولاشتراط الجمعة والسبت تكتب الدالة هكذا : if Weekday(Date();1) = 6 or Weekday(Date();1) = 7 then على اعتبار يوم الاحد هو اول ايام الاسبوع

بعد اذن استاذنا كرار انا وجدت مثالا جاهز ا يشبه مثالك تماما ولا اعلم لمن وحق لصاحبه منكم دعوة بظهر الغيب حساب اقساط.rar

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

السلام عليكم يوجد افضل من ذلك وهي الدالة : Weekday(Date();1) تعطي رقم اليوم في الاسبوع من 1 الى 7 والرقم واحد الموجود في الدالة يدل على ان اول ايام الاسبوع هو يوم الاحد فلو كان اول ايام الاسبوع هو يوم الاثنين نضع رقم 2 بدل الواحد فاذا اردت ان تضع شرطا ليوم الجمعة يكون الكود كالتالي : if Weekday(Date();1) = 6 then