ابوخليل

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

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

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

السلام عليكم السؤال لماذا تضع الحروف في حقول متعددة ؟ اليس الافضل كتابة الكلمة في حقل ؟ ام ان هذه الطريقة مقصودة ؟ وجهة نظر بان الافضل للمستخدم وضع حقلين اثنين : احدها لكتابة الكلمة والآخر لكتابة عدد الكلمات المطلوب توليدها

كلامك سليم 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