ازهر عبد العزيز

وبأت محاولتي كالعادة بالفشل الذريع

اين اضع هذا الكود يا استاذ

الأستاذ @kaser906 ممكن الطريقة لو سمحت فانا مازلت مبتدئ ولم افهم الطريقة التي تتحدث عنها

الأستاذ العزي @kaser906 حل ذكي شكرا لك لكن اكو مشكلة قد تتغير قيمة 90 بعد فترة وهنا لا يستطيع المستخدم تغيرها الا من خلال خصائص النموذج

السلام عليكم ..... كيفي استدعي قيمة في الدالة DLookup لحقل ثاني في نفس الحقل اي TYP2 =90 New Microsoft Access قاعدة بيانات.accdb

الأستاذ @AlwaZeeR افتقدناك ان شاء الله تكون بخير

الأستاذ @ابا جودى ممكن التعديل على مثال الأستاذ @AlwaZeeR وجعلة يعتمد على حقل RID واضافة حقل TYPE2 اذا سمحت ومن رخصت الأستاذ الوزير طبعا DefltDb.accdb

الأستاذ @jjafferr صحيح كلامك لكن أيضا لايخفى عليك ان العلم يتطور وكذلك الآراء ولاضير في البحث عن الإجابات الحديثة مع احتراي الشديد لك

استاذ @ابا جودى اذا كان الحقل (RID) هو Column(1) فاي الحقول تكون Column (0))وColumn (2))وColumn (3))وColumn (4))وColumn (5))

@ابا جودى فقط هنا يكون التعديل @ابا جودى

أستاذ @kanory افتقدك ان شاء الله تكون بخير

الأستاذ @ابا جودى لقد حاولت في المثال التالي الاعتماد على حقل rid لجلب بيانات حقلي type1 و type2 وبعد التخريب انظر لما توصلت والمفرق يحتوي على محاولاتي الفاشلة ممكن تخبرني أي الخطاء جزاك الله كل خير اÙ�Ù�تغÙ�ر (1).accdb

شكرا أستاذ @عبد اللطيف سلوم

أستاذ @ابا جودى استفسار ماذا لو اضفنا قيمة جديدية الى الحقل RTYPE ا (jj) وكانت قيمتهن مساوية لقيمة (mk) أي مساوية لقيمة mk لحقلTYPE1 ومختلفة القيمة في حقل TYPE2 ,هل يجب إضافة اسم جديد كما فعلت مع بقية القيم ام توجد طرية مختصرة باختصار هل نستطيع دمجها مع mk داخل نفس الكود انا استطعت دمجها لنفس الحقل هنا اÙ�Ù�تغÙ�ر (1).accdb

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

ما قصرت أستاذ @qassim-t بالعكس انت خليت للموضوع طعم وجمالية بالاخص مع افكارك الجميلة

اللة يستر أخاف فكرة جديدة واني حاير هسة

الأستاذ @ابا جودى راح أحاول اطبق ما ذكرت ..... ولو ان مثالك الأول كان ممتاز لكن الأستاذ العزيز @AlwaZeeR ثم الأستاذ @qassim-t جاء بفكرة أخرى واني هسة حاير

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

شكرا أستاذ @qassim-t فعلا مبدع لكني اميل الى مثال الأستاذ @ابا جودى بانشاء جدول منفصل وكذلك في مثال أبا جودي استطيع تعديل القيم من خلال نفس النموذج شكرا لك ياصديقي

الأساتذة @ابا جودى @qassim-t @AlwaZeeR ماذل لو اضفت حقل جديد للنموذج باسم (TYPE2) وأريد قيمتة 1 اذا كان (RTYPE) = MK و 2 اذا كان KR و 3 اذا كان BG اÙ�Ù�تغÙ�ر - 2 (1).accdb

الأساتذة @ابا جودى @qassim-t @AlwaZeeR احسنت حفظكم الله ..... في الحقيقة اكو اشخاص لشديد اعجابي بهم سوف اترك الصورة تعبر عني [Hannibal]

أستاذ @qassim-t احسنت روعة فكرة ذكية لكن هناك مشكلة عند اغلاق النموذج يتم مسح القيم اريده ثابتة ان امكن

استاذي @AlwaZeeR احسنت شكرا

الأستاذ @AlwaZeeR كيف استدعي قيمة من داخل كود بصراحة الموضوع صعب علية البراحة قريت حول دالة dlookup ولم اتوصل لشئ ارجو المساعدة في الأسئلة التالية اين اضع الكود Private Sub TYPE1Value() Select Case RTYPE Case Is = text1 TYPE1 = 9 Case Is = text2 TYPE1 = 7 Case Is = text3 TYPE1 = 3 End Select End Sub في النموذج (satny) ام نموذج اخر والدالة dlookup في أي نموذج اضعها وكيف يكون كتابة كود الاستدعاء في الدالة