ازهر عبد العزيز قام بنشر يوليو 11, 2019 قام بنشر يوليو 11, 2019 السلام عليكم لدي نوذج (satny) يحتوي على حقل "type1" اريد ان تكون لة اكثر من قيمة افتراضية أي لو كانت قيمة الحقل "Rtype" هي mk تكون قيمة الحقل type1 هي 9 واذا كانت وكانت قيمة الحقل Rrtype" هي KR تكون قيمة الحقل type1 هي 7 وكانت قيمة الحقل "rtype" هي BG تكون قيمة الحقل type1 هي 3 المتغير.accdb
ازهر عبد العزيز قام بنشر يوليو 11, 2019 الكاتب قام بنشر يوليو 11, 2019 اهلا أستاذ @أواب الفائدة لتسهيل عملية ادخال البيانات ياصديقي
ابو جودي قام بنشر يوليو 11, 2019 قام بنشر يوليو 11, 2019 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 1 1
ازهر عبد العزيز قام بنشر يوليو 11, 2019 الكاتب قام بنشر يوليو 11, 2019 (معدل) @ابا جودى شكرا جزيلا تم تعديل يوليو 11, 2019 بواسطه ازهر عبد العزيز 1
ازهر عبد العزيز قام بنشر يوليو 11, 2019 الكاتب قام بنشر يوليو 11, 2019 الأستاذ @ابا جودى لدي سؤال لو سمحت بنفس الموضوع هنا بعد ادخال الاكواد هل من الممكن تغير القيمة الافتراضية من نموذج منفصل أي لو اردت تغير القيمة الافتراضية كمثال كانت قيمة الحقل Rrtype" هي KR تكون قيمة الحقل type1 هي 7 ماذا لو أراد المستخدم تغيرها الى 10 فهو لا يستطيع الدخول الى تصميم النموذج وتغيرها ارجو ان يكون استفساري واضح صحيح سؤال معقد ومتفرع بس ان شاء الله تجد له حل
AlwaZeeR قام بنشر يوليو 11, 2019 قام بنشر يوليو 11, 2019 الجواب عن أبا جودي اجعل مصدر القيمة الافتراضية متغير وتستطيع ان تغير القيمة التي تريد في هذا المتغير حيث يكون الكود كالتالي 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 2
ازهر عبد العزيز قام بنشر يوليو 12, 2019 الكاتب قام بنشر يوليو 12, 2019 اقتباس الأستاذ @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 في أي نموذج اضعها وكيف يكون كتابة كود الاستدعاء في الدالة
qassim-t قام بنشر يوليو 12, 2019 قام بنشر يوليو 12, 2019 42 minutes ago, AlwaZeeR said: اليك تطبيق لما ذكرته لك DefltDb.accdb 568 kB · 1 download شكرا للوزير ولو الحقول بنفس النموذج اسهل المتغير - Copy.rar
ازهر عبد العزيز قام بنشر يوليو 12, 2019 الكاتب قام بنشر يوليو 12, 2019 أستاذ @qassim-t احسنت روعة فكرة ذكية لكن هناك مشكلة عند اغلاق النموذج يتم مسح القيم اريده ثابتة ان امكن 1
ابو جودي قام بنشر يوليو 12, 2019 قام بنشر يوليو 12, 2019 (معدل) 2 ساعات مضت, ازهر عبد العزيز said: أستاذ @qassim-t احسنت روعة فكرة ذكية لكن هناك مشكلة عند اغلاق النموذج يتم مسح القيم اريده ثابتة ان امكن Go ahead وللعلم انا اضفت لك كود من عندى لو غيرت القيم لمربعات النص على اليسار تتحدث بالجدول ويتم الاحتفاظ بها عند اغلاق النموذج المتغير - 2.accdb تم تعديل يوليو 12, 2019 بواسطه ابا جودى تعديل المرفق ☺
qassim-t قام بنشر يوليو 12, 2019 قام بنشر يوليو 12, 2019 2 hours ago, ازهر عبد العزيز said: أستاذ @qassim-t احسنت روعة فكرة ذكية لكن هناك مشكلة عند اغلاق النموذج يتم مسح القيم اريده ثابتة ان امكن هذا لانني عملتها حقول غير منظمة تفضل جرب هذا حيث اضفت حقول للحدول المتغير - Copy.rar 10 minutes ago, ابا جودى said: Go ahead المتغير - 2.accdbUnavailable اذا حضر الاساتذة فما على الطلاب الا الاصغاء 1
ابو جودي قام بنشر يوليو 12, 2019 قام بنشر يوليو 12, 2019 (معدل) 13 دقائق مضت, qassim-t said: هذا لانني عملتها حقول غير منظمة تفضل جرب هذا حيث اضفت حقول للحدول اذا حضر الاساتذة فما على الطلاب الا الاصغاء انا اقل طالب علم بالمنتدى انا حتى مجرد طويلب لم احصل طالب الى الان كما انا كل الفضل لك بعد رب العزة سبحانه وتعالى هذه فى الاساس فكرتك واعجب بها اخونا الحبيب @ازهر عبد العزيز وهنا اقتبس قول استاذى الجليل ومعلمى القدير الاستاذ @jjafferr اقتباس في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال ولانه ادرى بمراده ولان الفكرة اعجبته فقط قمت بعمل ما يناسبه كل الشكر والتقدير لكم تم تعديل يوليو 12, 2019 بواسطه ابا جودى 1
ازهر عبد العزيز قام بنشر يوليو 12, 2019 الكاتب قام بنشر يوليو 12, 2019 (معدل) الأساتذة @ابا جودى @qassim-t @AlwaZeeR احسنت حفظكم الله ..... في الحقيقة اكو اشخاص لشديد اعجابي بهم سوف اترك الصورة تعبر عني [Hannibal] تم تعديل يوليو 12, 2019 بواسطه ازهر عبد العزيز 1 2
ابو جودي قام بنشر يوليو 12, 2019 قام بنشر يوليو 12, 2019 4 دقائق مضت, ازهر عبد العزيز said: الأساتذة @ابا جودى @qassim-t @AlwaZeeR احسنت حفظكم الله ..... في الحقيقة اكو اشخاص لشديد اعجابي بهم سوف اترك الصورة تعبر عني انت هيك بتخوفنى ب ها النظرة
qassim-t قام بنشر يوليو 12, 2019 قام بنشر يوليو 12, 2019 2 hours ago, ازهر عبد العزيز said: الأساتذة @ابا جودى @qassim-t @AlwaZeeR احسنت حفظكم الله ..... في الحقيقة اكو اشخاص لشديد اعجابي بهم سوف اترك الصورة تعبر عني [Hannibal] اعتقد هي لقطة من صمت الحملان..بتطير العقل شكرا لك اخ ازهر عبد العزيز
ازهر عبد العزيز قام بنشر يوليو 12, 2019 الكاتب قام بنشر يوليو 12, 2019 الأساتذة @ابا جودى @qassim-t @AlwaZeeR ماذل لو اضفت حقل جديد للنموذج باسم (TYPE2) وأريد قيمتة 1 اذا كان (RTYPE) = MK و 2 اذا كان KR و 3 اذا كان BG اÙ�Ù�تغÙ�ر - 2 (1).accdb
qassim-t قام بنشر يوليو 12, 2019 قام بنشر يوليو 12, 2019 1 hour ago, ازهر عبد العزيز said: الأساتذة @ابا جودى @qassim-t @AlwaZeeR ماذل لو اضفت حقل جديد للنموذج باسم (TYPE2) وأريد قيمتة 1 اذا كان (RTYPE) = MK و 2 اذا كان KR و 3 اذا كان BG اÙ�Ù�تغÙ�ر - 2 (1).accdb 608 kB · 0 downloads تفضل المتغير - Copy.rar
ازهر عبد العزيز قام بنشر يوليو 12, 2019 الكاتب قام بنشر يوليو 12, 2019 (معدل) شكرا أستاذ @qassim-t فعلا مبدع لكني اميل الى مثال الأستاذ @ابا جودى بانشاء جدول منفصل وكذلك في مثال أبا جودي استطيع تعديل القيم من خلال نفس النموذج شكرا لك ياصديقي تم تعديل يوليو 12, 2019 بواسطه ازهر عبد العزيز
ابو جودي قام بنشر يوليو 12, 2019 قام بنشر يوليو 12, 2019 1 دقيقه مضت, ازهر عبد العزيز said: شكرا أستاذ @qassim-t لكني اميل الى مثال الأستاذ @ابا جودى بانشاء جدول منفصل وكذلك في مثال أبا جودي استطيع تعديل القيم من خلال نفس النموذج شكرا لك ياصديقي اصف حقول جديدة بالجدول وابدأ بتسمية كل حقل منها t2 وقم بعمل نفس الخطوات 1
ازهر عبد العزيز قام بنشر يوليو 12, 2019 الكاتب قام بنشر يوليو 12, 2019 الأستاذ العزيز @ابا جودى بعد محاولة كثيرة جدا استطعت ان اجلب البيانات الى النموذج لكني لم استطع نقلها الى الحقول و هناك اكواد لم افتهما مثال الكود في الصورة فلا يوجد لة أي حدث في خصائص النموذج او الحقول واستفسار لماذ اسمي الحقول الجديدة t2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.