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

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

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

 

المتغير.accdb

[أواب]

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

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

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

[ابو جودي]

2 ساعات مضت, ازهر عبد العزيز 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

قم بعمل 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

 

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

اقتباس

 

الأستاذ @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.accdb

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

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

[qassim-t]

42 minutes ago, AlwaZeeR said:

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

 

DefltDb.accdb 568 kB · 1 download

شكرا للوزير

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

المتغير - Copy.rar

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

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

[ابو جودي]

2 ساعات مضت, ازهر عبد العزيز said:

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

Go ahead 

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

 

المتغير - 2.accdb

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

[qassim-t]

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

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

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

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

المتغير - Copy.rar

10 minutes ago, ابا جودى said:

Go ahead 

 

المتغير - 2.accdbUnavailable

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

[ابو جودي]

13 دقائق مضت, qassim-t said:

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

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

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

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

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

اقتباس

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

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

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

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

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

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

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

[ابو جودي]

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

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

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

[qassim-t]

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

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

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

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

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

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

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

[qassim-t]

1 hour ago, ازهر عبد العزيز said:

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

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

تفضل

المتغير - Copy.rar

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

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

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

[ابو جودي]

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

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

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

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

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

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

[ابو جودي]

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

[ابو جودي]

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

 

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