رمهان

السلام عليكم جرب ومحاولا بدون تعديلات كثيرة على التصميم والاكواد RealisationReintegration - 7.rar

هذا رابط شبيه لما تريد ويعتبر مصدر جيد للفائده

اخي صالح اسمح لي بالتعقيب عندما نظرت للكود لم اتوقع عمله كما هو مضمون بعنوان ونص الموضوع ! فقمت بتحميل الملف والتجربة ولم يقم بما ذكرت حيث لا يعطي التسلسل وهناك رسالة خطأ في تكرار المفتاح الاساسي قمت بالتعديلات التالية وحسب فكرتك : 1. الكود خلف زر الحذف Private Sub حذف_Click() On Error Resume Next DoCmd.RunCommand acCmdDeleteRecord Me.Requery For i = 1 To Me.Recordset.RecordCount Me.الرقم = CurrentRecord DoCmd.GoToRecord , , acNext Next i End Sub وتلاحظ الدوران على كل السجلات واضافة رقم السجل للحقل الرقم وهذا اكثر منطقيا . ولم يعد للحدث في الحالي للنموذج اهمية بل انه لايستحب ان يكون هناك تحرير للسجلات في حدث الحالي للنموذج 2. حدث سجل جديد Private Sub اضافة_Click() DoCmd.GoToRecord , , acNewRec Me.الرقم = CurrentRecord End Sub كما ان هناك تنبيه انه يمكن ان ياخذ حقل الرقم قيمة الدوران i بدلا من currentrecord فهما نفس القيمة بالتوفيق

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

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

حياك الله استاذ صالح من وين نبدأ اخوي ... الموضوع متشعب ولكن : من المعروف الكائنات يكون لها خصائص او طرق (اوامر تنفذ شيئا ما ) فمثلا الكائن me وهو يعبر عن النموذج الحالي وبعد اسم الكائن نكتب نقطة لكي نستخدم خاصية له وحسب نوع الخاصية هل هي للقراءة فقط ام ممكن ان تتغير ياسناد قيم لها . او نكتب طريقة method تقم بامر ما لهذا الكائن فمثلا me.backcolor هي خاصية الخلفية لوضع خلقية للكائن . me.move هي طريقة لتحريك الكائن . نرجع للسطر السابق وبمشاركتك : الامر createobject هي دالة معرفة لدى الاكسس تقم بانشاء كائن في الذاكرة . يمكن انشاء الكائنات بمدلول المكتبة library . هذا الكائن من نوع wshshell ويمكن البحث للاطلاع اكثر . الان نضع النقطة لكي نقرا او نعين خاصية لهذا الكائن وهنا انت استخدمت الخاصية او الطريقة SpecialFolders والتي تطلب اسم المجلد وتعود بالمسار ومن نوع نص . واسم المجلد هنا يكون ضمن اسماء مجلدات الويندوز الخاصة مثل desctop او fonts وغيره فالامر هو عباره عن : انشات كائن لاحتاج وظيفة لديه مهمتها ارجاع مسار احد مجلدات الويندوز الخاصة ! تحياتي

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

جزيت خيراً !

لو ترفق المرفق افضل ! واعتقد يوجد امثلة بالمنتدى لو بحثت قليلا هذا احدها وقريب لما تريد بالتوفيق

تفضل المرفق وهو بطريقة دوال المجال ! تم انشاء استعلامين query4 and query5 وشف المعادلات في التقرير ترا اغلبها نسخ ولصق وتغيير المعيار فقط والله شكلك لازم تستخدم البخور ووو ! فلما يوجد بلاغ وليس له حالات هذه طلعت اسهل من بين الاخريات ! شوف المرفق ولك اجمل التحايا تحياتي Database11.rar

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

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

يوجد خاصية اخرى باسم allow datasheet view تقريبا السماح عرض ورقة بيانات اختر القيمة= نعم . يمكن موجوده لديك=لا بالتوفيق

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

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

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

تمام ! راح نلبي طلبك لو حنصدم في الحيط ! الان شوف القيمة في السجل الثالث =40 ! واحنا اتفقنا ان القيمة تكون الاول - الثاني ! يعني = 200-125= 75 والا ايه رايك !

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

مشكور اخ محمد وابشر بالخير الان هل نعتمد + ام - ؟

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

بصراحة اخي محمد اقول واؤكد يعني مانلوم السحر العماني تحياتي

مرحبا استاذ صالح مشاركة مع اخوتي جرب لكي تعرف اول سجل في الجدول وكما هو بدون تاثيرات الفرز و بعد الاستيراد استخدم =DLookUp("[nom]","tbl") ولكي تعرف اول سجل بعد الفرز (الترتيب) اعمل استعلام مطبقا به الترتيب حسب الاختيار ثم احفظه وليكن باسم query1 واستخدم =DLookUp("[nom]","Queryl") هذا والله اعلم

العفو ! والشكر موصول لجميع الاخوة وخصوصا الاستاذ جعفر ياثرائه للموضوع !

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

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