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

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

السلام عليكم  لدي نوذج  (satny) يحتوي على حقل "type1" اريد ان تكون لة اكثر من قيمة افتراضية أي لو كانت قيمة الحقل  "Rtype"  هي mk تكون قيمة الحقل type1  هي 9 واذا كانت  وكانت قيمة الحقل  Rrtype"  هي  KR تكون قيمة الحقل type1  هي  7   وكانت قيمة الحقل  "rtype"  هي BG  تكون قيمة الحقل type1  هي 3

 

المتغير.accdbFetching info...

[أواب]

ما هي الفائدة من السؤال ؟

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

اهلا أستاذ @أواب الفائدة لتسهيل  عملية ادخال البيانات ياصديقي 

[ابو جودي]

  في 11‏/7‏/2019 at 07:36, ازهر عبد العزيز said:

السلام عليكم  لدي نوذج  (satny) يحتوي على حقل "type1" اريد ان تكون لة اكثر من قيمة افتراضية أي لو كانت قيمة الحقل  "Rtype"  هي mk تكون قيمة الحقل type1  هي 9 واذا كانت  وكانت قيمة الحقل  Rrtype"  هي  KR تكون قيمة الحقل type1  هي  7   وكانت قيمة الحقل  "rtype"  هي BG  تكون قيمة الحقل type1  هي 3

 

المتغير.accdb 1.53 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

Expand  

قم بعمل call  للكود فى الحدث المناسب لك

Private Sub TYPE1Value()
    Select Case RTYPE
        Case Is = "mk"
        TYPE1 = 9
        Case Is = "KR"
        TYPE1 = 7
        Case Is = "BG"
        TYPE1 = 3
    End Select
End Sub

مثلا

Private Sub RTYPE_AfterUpdate()
    Call TYPE1Value
End Sub

او 

Private Sub Form_Current()
    Call TYPE1Value
End Sub

 

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

@ابا جودى شكرا جزيلا 

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

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

الأستاذ @ابا جودى لدي سؤال لو سمحت بنفس الموضوع هنا بعد ادخال الاكواد  هل من الممكن تغير القيمة الافتراضية من نموذج منفصل أي لو اردت تغير القيمة الافتراضية كمثال كانت قيمة الحقل  Rrtype"  هي  KR تكون قيمة الحقل type1  هي 7  ماذا لو  أراد المستخدم تغيرها الى 10 فهو لا يستطيع الدخول الى تصميم النموذج وتغيرها  ارجو ان يكون استفساري واضح صحيح سؤال معقد ومتفرع بس ان شاء الله تجد له حل  

[AlwaZeeR]

الجواب عن أبا جودي

اجعل مصدر القيمة الافتراضية متغير

وتستطيع ان تغير القيمة التي تريد في هذا المتغير

حيث يكون الكود كالتالي

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

حيث تكست 1 و 2 و 3

هي مربعات نص متغيرة تضعها في المكان المناسب مثلا في نموذج يسمى

ثوابت البرنامج الافتراضية

ويتم استدعاؤها بواسطة 

Dlookup

 

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

  اقتباس

 

Expand  

الأستاذ @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 في أي نموذج اضعها 

وكيف يكون  كتابة كود الاستدعاء في الدالة 

[AlwaZeeR]

اليك تطبيق لما ذكرته لك

 

DefltDb.accdbFetching info...

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

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

[qassim-t]

  في 12‏/7‏/2019 at 08:58, AlwaZeeR said:

اليك تطبيق لما ذكرته لك

 

DefltDb.accdb 568 kB · 1 download

Expand  

شكرا للوزير

ولو الحقول بنفس النموذج اسهل

المتغير - Copy.rarFetching info...

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

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

[ابو جودي]

  في 12‏/7‏/2019 at 09:59, ازهر عبد العزيز said:

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

Expand  

Go ahead 

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

 

المتغير - 2.accdbFetching info...

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

[qassim-t]

  في 12‏/7‏/2019 at 09:59, ازهر عبد العزيز said:

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

Expand  

هذا لانني عملتها حقول غير منظمة

تفضل جرب هذا حيث اضفت حقول للحدول

المتغير - Copy.rarFetching info...

  في 12‏/7‏/2019 at 12:08, ابا جودى said:

Go ahead 

 

المتغير - 2.accdbUnavailable

Expand  

اذا حضر الاساتذة فما على الطلاب الا الاصغاء

[ابو جودي]

  في 12‏/7‏/2019 at 12:14, qassim-t said:

هذا لانني عملتها حقول غير منظمة

تفضل جرب هذا حيث اضفت حقول للحدول

اذا حضر الاساتذة فما على الطلاب الا الاصغاء

Expand  

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

وهنا اقتبس قول استاذى الجليل ومعلمى القدير الاستاذ @jjafferr
 

  اقتباس

في اعتقادي ،
مشاركة أكثر من شخص في الرد على السؤال ، 
يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، 
فمنه نتعلم الطرق الاخرى للإجابة على السؤال 

Expand  

ولانه ادرى بمراده ولان الفكرة اعجبته فقط قمت بعمل ما يناسبه 

كل الشكر والتقدير لكم 

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

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

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

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

[ابو جودي]

  في 12‏/7‏/2019 at 12:58, ازهر عبد العزيز said:

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

Expand  

انت هيك بتخوفنى ب ها النظرة  

[qassim-t]

  في 12‏/7‏/2019 at 12:58, ازهر عبد العزيز said:

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

Expand  

اعتقد هي لقطة من صمت الحملان..بتطير العقل

شكرا لك اخ ازهر عبد العزيز

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

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

ا��تغ�ر - 2 (1).accdbFetching info...

[qassim-t]

  في 12‏/7‏/2019 at 15:40, ازهر عبد العزيز said:

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

اÙ�Ù�تغÙ�ر - 2 (1).accdb 608 kB · 0 downloads

Expand  

تفضل

المتغير - Copy.rarFetching info...

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

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

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

[ابو جودي]

  في 12‏/7‏/2019 at 19:36, ازهر عبد العزيز said:

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

Expand  

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

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

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

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

[ابو جودي]

طيب ممكن مرفق تجربتك

[ابو جودي]

 ولا تزعل اتفضل

 

المتغير - 2 (1).accdbFetching info...