رمهان

اسفين ! عدل سطر ال elseif لهذا الكود ElseIf DCount("*", "table1", "rkm_alktah=form!rkm_alktah") = 1 And Me.NewRecord Then بالتوفيق

حياك الله اخي مارد !! لو لاحظت في الكود انه سيقوم باظهار المسج حسب عدد السجلات !! وهذا مزعج !! كما اريدك ان تعلم ان هناك : برمجة اكسس : اي استخدام كائنات الاكسس ووظائفه فقط مع الكائن docmd وهذا يظهر في كود رمهان وهناك برمجة قواعد البيانات بالـ DAO وهذا ظهر في كود مارد ! من الافضل في الاكسس ان نستخدم برمجة الاكسس ولا نلجأ لبرمجة ال DAO الا في حالات خاصة ! تحياتي

علشان خاطر الاخ مارد !! اللي لحد الان مش مبين حار والا بارد !! هذا الكود لماطلبت ولاحظ انه قبل التحديث للنموذج الفرعي !! Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "table1", "rkm_alktah=form!rkm_alktah") = 0 Then Cancel = MsgBox("not found") Exit Sub ElseIf DCount("*", "table1", "rkm_alktah=form!rkm_alktah") = 1 And Me.NewRecord Then Cancel = MsgBox("duplicate") End If End Sub الاخ مارد : اذا تريد شرح الكود الذي رفعته مستعدين لافادتك !! تحياتي

هنا ياتي سؤال وقبل الاجابة : لماذا تمنع تكرار الكود في جدول1 ؟ فربما يستلم اكثر من مره نفس الجهاز بتواريخ مختلفة !! ام انت تريد كما طلبت وبس ؟؟ بالتوفيق

تنبيه بوجود ثغرة : جرب ان تكتب في كود الصنف وبدون انتر انما انتقل بالماوس للسجل التالي مباشرة ! هنا شبيه لما طلبت بالتمام .. http://www.officena.net/ib/index.php?showtopic=61326 بالتوفيق

عزيزي الآن فهمت المشكلة الاولى !! باستخدام دالة cdate ضع هذا التعبير !! ورتب كما تريد ! CDate([purchases_date] & [sales_date]) بالتوفيق

عزيزي اعجبتني فكرة دمج التاريخ !! وفعلا تحل مشكلة تسلسل الفواتير سواء كانت شراء او بيع !! الحقيقة لم تظهر لي المشكلة . رتبت تصاعديا او تنازليا وتظهر البيانات مرتبة : طبعا في الاستعلام "كرت الصنف" او انني لم افهم المطلوب !! تحياتي

تفضل رمهان-التراجع-2003.rar

اخي عل فتحي اسف عالتاخير !! جرب لعلني فهمت المقصود ! او اكتب الملاحظات لتقريب الفهم !! بالتوفيق New-last.rar

مبروك اخي ابو ياسر !! مشكور استاذ عبدالله !

تفضل مشرفنا الغالي ! هي محاولة لفكرة ! ومن حسن الحظ ان وجدت هذا الملف لدي رفعته كمشاركة في منتدى شقيق بل قد اشرت له في المشاركة رقم 9 حيث لا احتفظ بملفات ما اشارك به ! تحياتي رمهان-التراجع.zip

للربط ... وللفائدة .. http://www.officena.net/ib/index.php?showtopic=61030&hl=

مشاركة مع الاستاذ عبدالرحمن اولا : لا حبذا التسمية ب listbox حيث هذا اسم كلاس عناصر مربعات القائمة! ثانيا : مارايك في هذه لفكرة استاذ عبدالرحمن : طبعا اذا مربع النص غير منضم . نضع التعبير التالي : ="0" & me.list1.listindex تحياتي

اخي حربي هل تم حل المشكلة ؟ وبتحميل السيرفيس باك ؟ شكرا

اخي حربي هذا تشخيص المشكلة بعد النقاش : الاداة مسجلة تمام والذي يؤكد ذلك نزولها مع الفيجول بيسك 6 وظهورها في قائمة المراجع !! الحل : قم بتنزيل سيرفيس باك 6 للفيجول بيسك 6 ومن هنا http://www.microsoft.com/en-us/download/details.aspx?id=24417 بالنسبة للكود السابق : هو مستخدم نفس الاداة والتي بها المشكلة !! المشكلة الان هي توافق الاداة مع win 7 !! بالتوفيق

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

حياك الله اخ احمد ابا ندى .. والحل من الرحمن قد اتى.. يعطيه من يشاء واحسن النوى ..

تفضل ! افتح التقرير !! بالتوفيق نتيجة الطلبة11.rar

تفضل ابو ندى ! نتيجة الطلبة11.rar

اخي ابو ندى اشكرك على دعاؤك وهذا هو الصيد الثمين بالنسبة للتقرير فرمهان ليس له به علاقة وقد قلت لك ان هناك حلول.. رمهان ليس مقتنع بها !! بالنسبة لترتيبهم حسب الابجدية : فقط ما عليك الا الذهاب لخصائص النموذج الفرعي وعند خاصية "ترتيب حسب" اكتب [اسم الطالب] ثم اعد الترتيب بالنقر على الزر مرة اخرى! فقط واعمل تقريرك كما تحب !! تحياتي

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

تفضلو !! وعلى فكرة : هذا الحل يشبه حلول الاستاذ جعفر! وفكرتك اخي ابو ندى صحيحة واذ حبيت ننفذها لك !! حاضرين !! دعواتكم في هذا اليوم المبارك !! نتيجة الطلبة1.rar

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

جاي لك مشرفنا الغالي !! نيفا من الوقت ! بحد اقصى أسبوع ! تحياتي

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