استفسار حول اعطاء اكثر من قيمة افتراضية للحقل

[ابو جودي]

23 دقائق مضت, ازهر عبد العزيز said:

 هناك اكواد لم افتهما مثال  الكود في الصورة فلا يوجد لة أي حدث في خصائص النموذج او الحقول 

هذا كود فرعى  اسمه  TYPE1Value  مثله مثل   UpdatetblTyp

انظر الى مربعات النص على اليمين والتى تساوى القيم الافتراضية

تجد الحدث لكل منهم هو عند التحديث
 

Call UpdatetblTyp

لو نظضرت الى الكود الخاص بـ  UpdatetblTyp

On Error GoTo ErrHandler

        Dim db As DAO.Database
        Dim Rs As DAO.Recordset
        
        Set db = CurrentDb
        Set Rs = db.OpenRecordset("tblTyp", dbOpenDynaset)
                Rs.Edit
                    Rs!TMK = txtTMK
                    Rs!TKR = txtTKR
                    Rs!TBG = txtTBG
                    
                    Rs!t2TMK = txtt2TMK
                    Rs!t2TKR = txtt2TKR
                    Rs!t2TBG = txtt2TBG
                    
                Rs.Update
                Set Rs = Nothing
Exit Sub

ErrHandler:
    If Err.Number = 3022 Then Resume Next

 

لو لم نفعله بهذه الطريقه لكتبنا كل هذه الاسطر لكل مربه نص منهم 

وعددهم الان صار  6  مربعات

   

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

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

[ابو جودي]

7 دقائق مضت, ازهر عبد العزيز said:

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

طيب شوف المرق الاتى 

 

المتغير .accdb

[qassim-t]

1 hour ago, ابا جودى said:

اصف حقول جديدة بالجدول وابدأ بتسمية كل حقل منها t2

وقم بعمل نفس الخطوات

انا عملت على اسلوبي المبتدئ ولم اجرؤ على اسلوب استاذنا ابو جودي

كنت افكر بايصال القكرة فقط

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

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

[ابو جودي]

1 دقيقه مضت, qassim-t said:

انا عملت على اسلوبي المبتدئ ولم اجرؤ على اسلوب استاذنا ابو جودي

كنت افكر بايصال القكرة فقط

انا طالب علم مثلك وخلقنا الله تعالى نكمل بعضنا بعضنا 

تم تعديل يوليو 12, 2019 بواسطه ابا جودى

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

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

[ابو جودي]

المرفق قبل الاخير تبعى كان به مشكله اسف
لانى عدلت على المرفق القديم بسبب اللغه الصينى ياللى انت رفعت لنا بها المرفق التانى  

الان المرفق الاخير يعمل بشكل ممتاز ورائع وبنفس الالية التى اعجبتك بالفكرة الذكية لاخونا الحبيب الاستاذ @qassim-t  

انتظر الرد بعد التجربه

ارجوا ابلاغى ان كان هناك اى خلل بدون اى احراج 

تم تعديل يوليو 12, 2019 بواسطه ابا جودى

[ابو جودي]

يا استاذ @ازهر عبد العزيز

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

 

المتغير .accdb

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

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

[ابو جودي]

انا مش زهلان بس حابب اعرف النتيجة وصلت لطلبك واللا نحاول تانى  

طيب رجاء  فكر وحدد طلبك تحديدا وان شاء الله الله المستعان 

تم تعديل يوليو 12, 2019 بواسطه ابا جودى

[qassim-t]

11 hours ago, ابا جودى said:

يا استاذ @ازهر عبد العزيز

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

 

المتغير .accdb 520 kB · 4 downloads

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

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

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

ا��تغ�ر (1).accdb

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

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

ا��تغ�ر (1).accdb

تم تعديل يوليو 13, 2019 بواسطه ازهر عبد العزيز

[ابو جودي]

اتفضل 

aa (1).accdb

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

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

@ابا جودى

[ابو جودي]

11 دقائق مضت, ازهر عبد العزيز said:

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

 

نعم التعديل هنا فقط لان مربع السرد يحتوى على عدد 2 عمود والعمود الثانى هو الذى يحتوى القيم الذى تريدها

بكودك كنت تستدعى قيم العمود الاول لذلك الكود لم يعمل 

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

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

تم تعديل يوليو 13, 2019 بواسطه ازهر عبد العزيز

[ابو جودي]

1 دقيقه مضت, ازهر عبد العزيز said:

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

 

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

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

DefltDb.accdb

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

الاساتذة الكرام @ابا جودى و @AlwaZeeR , @qassim-t تم الحل معكم لكني هنا احب شرح الاحداث لكي تعم الفائدة للجميع وكل من يبحث عن نفس الموضوع في البداية كان مطلبي جلب القيم الافتراضية للحقلين type 1 , type 2  واستطاع أبا جودي المحترم عمل ذلك من خلال المثال الأول لياتي الأستاذ الوزير بفكرة ولا أروع بفصل القيم الافتراضية  لنموذج ثاني وكانت الفكة مدهشة ثم جاء الأستاذ قاسم بفكرة جعل القيم الافتراضية بنفس النموذج وكانت الفكرة مذهلة لكن كانت القيم الافتراضية كثيرة أي هناك العديد من القيم الافتراضية التي احتاجها للنموذج لهذا لم استطع جمعها كلها في نفس النوذج لكن الفكرة جميلة لو كانت القيم الافتراضية هي فقط اثنان او ثلاثة او حتى ستة لكني كنت احتاج الى 25 قيمة افتراضية لهذا اخترت طريقة الأستاذ الوزير  ارجو انكم فهمتم القصد الان ارجو من الأساتذة الكرام شرح ما انهم من الاكواد الموجودة في الأمثلة السابقىة ونبدئ بذا الكود للأستاذ أبا جودي لتعم الفائدة للجميع 

تم تعديل يوليو 16, 2019 بواسطه ازهر عبد العزيز

[qassim-t]

52 minutes ago, ازهر عبد العزيز said:

الاساتذة الكرام @ابا جودى و @AlwaZeeR , @qassim-t تم الحل معكم لكني هنا احب شرح الاحداث لكي تعم الفائدة للجميع وكل من يبحث عن نفس الموضوع في البداية كان مطلبي جلب القيم الافتراضية للحقلين type 1 , type 2  واستطاع أبا جودي المحترم عمل ذلك من خلال المثال الأول لياتي الأستاذ الوزير بفكرة ولا أروع بفصل القيم الافتراضية  لنموذج ثاني وكانت الفكة مدهشة ثم جاء الأستاذ قاسم بفكرة جعل القيم الافتراضية بنفس النموذج وكانت الفكرة مذهلة لكن كانت القيم الافتراضية كثيرة أي هناك العديد من القيم الافتراضية التي احتاجها للنموذج لهذا لم استطع جمعها كلها في نفس النوذج لكن الفكرة جميلة لو كانت القيم الافتراضية هي فقط اثنان او ثلاثة او حتى ستة لكني كنت احتاج الى 25 قيمة افتراضية لهذا اخترت طريقة الأستاذ الوزير  ارجو انكم فهمتم القصد الان ارجو من الأساتذة الكرام شرح ما انهم من الاكواد الموجودة في الأمثلة السابقىة ونبدئ بذا الكود للأستاذ أبا جودي لتعم الفائدة للجميع 

 من رخصة استاذي ابا جودي

 قمنا بتعريف المتغير A الذي تكون وظبفته بالبحث عن القيم المذكورة في tblTyp... ثم قمنا بتعريف المتغير X الذي يقوم بفصل القيم الموجودة في A ... بحيث اذا كان

Me.[txtTMK]

فانه سيكون مساويا لقيمة X  في الحقل الاول

ارجو وصول الفكرة فلست متمرسا في الشرح

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

جميل جدا  استاذ @qassim-t وماذا عن هذا الكود ماهو 

[qassim-t]

4 hours ago, ازهر عبد العزيز said:

جميل جدا  استاذ @qassim-t وماذا عن هذا الكود ماهو 

ياصديقي ازهر..لست ضليعا في البرمجة

لكن ما افهمه من الكود المشار اليه...وكمثال للتقريب

انه في ضابط اسمه A قالو له ابحث لنا عن الجنود TMK,TBG الخ ...الموجودين في اللواء واسمه tblTyp

وبالفعل قام الضابط A بالبحث عن الجنود وحجزهم عنده لكي يأتي الضابط X الذي مهمته يأخذ كل جندي حسب مواصفات ذلك الجندي المكتوبة عنده...

هههههه اسف على طبيعة المثال احببت التغيير

طبعا علامة التنصيص ''  استخدمت لان الموجود في الحقل نص وليس رقم

مع تقديري لك