السلام عليكم :)
شاهدة في عدة مواضيع نماذج لإستدعاء حقول متساوية ولكن كلها عبارة عن أمثلة جاهزة و عندما أتي لأطبقها تحدث لي أخطاء و ربما هذا هو حال الكثيرين من أمثالي فلي رجاء ياريت لو أحد الأعضاء أو المشرفين أن يدلونا على الطريقة الصحيحة و جزاكم الله عنا كل خير
فمثلا أريد عندما أختار إسم في الحقل Nom تظهر المعلومات الحقول التابعة له أوتوماتيكيا وهي Tel1 , Adress , Tel2 , Fax, E-mail,
تم تعديل هذه المشاركة بواسطة teminaomar في 3 يونيو 2014 في 01:03
وعليكم السلام
أخي العزيزالمساعدة النظرية قد لا تفيدك
فمثلاً سأقول لك اذهب لحدث AfterUpdate
واستخدم دالة Dlookup لاسترجاع القيم من الجدول لكل حقل على حده
أما الكيفية والتطبيق العملي على مثالك فكيف يتم بدون مرفق !!!
لذلك ارفق مثالا ليقوم أحد الزملاء أو الأساتذة بالتطبيق عليه
ثم تنظر سيادتك للحل لتعرف كيف تم
وعليكم السلام
الأفضل كان أن ترفق نموذجك ليتسنى للإخوة الكرام التعديل عليه
عموما تفضل هذا المرفق لعله يفيدك
أمير2008 كتب:وعليكم السلام
أخي العزيزالمساعدة النظرية قد لا تفيدك
فمثلاً سأقول لك اذهب لحدث AfterUpdate
واستخدم دالة Dlookup لاسترجاع القيم من الجدول لكل حقل على حده
أما الكيفية والتطبيق العملي على مثالك فكيف يتم بدون مرفق !!!
لذلك ارفق مثالا ليقوم أحد الزملاء أو الأساتذة بالتطبيق عليه
ثم تنظر سيادتك للحل لتعرف كيف تم
عذرا أخي ومعلمي الفاضل لم أرى ردك أثناء إرسالي رد على هذه المشاركة :)
ههههههه
يا باشا ده اسمه توارد خواطر
و نفس المعنى عن ضرورة ارفاق ملف للتطبيق عليه.
المصلحة واحدة
المهم تتم مساعدة الزميل ويستفيد آخرون
أول شيء شكرا إخواني أمير 2008 و عبد الرحمن هشام على سرعت التفاعل اللتي لطالما عودنا عليه مشرفي و أعضاء هذا الصرح العلمي الضخم
-1 أرفقت جزء من قاعدة البيانات ليتم عمل التطبيق عليها مشكورين سالفا :)
2-المثال اللذي أرفقه الأخ عبد الرحمن هشام لم يثتغل عندي و كذالك أمثلة كثيرة تشبهها هل هناك عطب ما في الأكسس عندي؟
تم تعديل هذه المشاركة بواسطة teminaomar في 3 يونيو 2014 في 04:04
شكر :) ا أخي ولكن الملف لم يشتغل :( معي على الكمبيوتر مع العلم أني أعدت تنصيب الأكسس
عندما اقوم بتفعيل خاصية الأمان في أكسس و أشغل النموذج الرئيسي تظهر هذه الرسالة 
هل اعدادات اللغة بالويندوز فرنسية ؟
ولماذا تفعل أمان أكسس قبل تشغيل برنامجك ؟
نعم أخي الكريم إعدادات الجهاز بالغة الفرنسية
وهذه هي الرسالة اللتي تخرج عند تخفيظ مستوى الأمان و السماح للأكود البرمجية بالعمل
وقبل الضغط وبعد الضغط عليها لا يشتغل معي البرنامج :mellow:
و أسف على أخذي الكثير من وقتك :)
يا باشا ولا يهمك
إن كانت هناك استفادة لسيادتك فهناك أيضا استفادة لي بالتعلم
الرسالة تقول يستحسن ألا تستمر في عملية تخفيض مستوى أمان الماكرو (اختيار موصى به)
وطبعاً عليك أن تختار الاختيار الثاني :
Activer ce contenu
ودي معناها : الاستمرار في تمكين وحداث الماكرو
ربما بعد أن تقوم بالتمكين تظهر مشكلة مسميات الكائنات باللغة العربية خاصة في النماذج بقاعدة بياناتك
حيث ربما تظهر الرسالة بالصورة قبل السابقة عندئذ .
ويبدو أن سيادتك إما في وزارة التربية والتعليم أو وزارة السياحة وإما من دول المغرب العربي وإما مواطن فرنسي
نظرا لاحتياجك للغة الفرنسية
نعم أخي أنا من الجزائر وكل معاملاتنا اليومية تتم باللغة الفرنسية :)
لقد قمت بالعديد من المحاولات لتشغيل النموذج بعد التعديل عليه من طرفك لكن بدون جدوى وياريت يا أخى الكريم لو تكرمت تشرح لي الكود اللذي كتبته لعلي أستطيع تطبيقه عندي......ومشكور ألف مرة مجدد على إهتمامك بموضوعي
Private Sub Combo6_AfterUpdate()Me.adress = Nz(DLookup("[adress]", "client", "[nom]='" & Me![combo6] & "'"), "")Me.t1 = Nz(DLookup("[ntelephon1]", "client", "[nom]='" & Me![combo6] & "'"), "")Me![t2] = Nz(DLookup("[ntelephon2]", "client", "[nom]='" & Me![combo6] & "'"), "")Me![fax] = Nz(DLookup("[fax]", "client", "[nom]='" & Me![combo6] & "'"), "")Me![Email] = Nz(DLookup("[Email]", "client", "[nom]='" & Me![combo6] & "'"), "")End Subهههههه
توقع في محله
أهلا بيك وبأحباءنا أهل الجزائر الشقيق
AfterUpdate : الأوامر التي تكتب في هذا الحدث يتم تنفيذها اذا تم عمل تحديث للبيانات
يعني مثلا عندما تختار من القائمة اسم شخص فهذا معناه تحديث للبيانات فعنئذ يتم تنفيذ الأوامر الموجودة في حدث (بعد التحديث)
Me.adress = Nz(DLookup("[adress]", "client", "[nom]='" & Me![combo6] & "'"), "")Me.adress : مربع النص في الفورم الذي يدل على العنوان
= تقوم باعطاء قيمة سوف تظهر لذلك المربع
NZ : هذه الدالة تساعد على عدم ارجاع Null وتستبدلها بالقيمة النصية الفارغة ""
DLookup : دالة الحث عن قيمة في الحقل ولها ثلاثة بارامترات على الترتيب :
اسم الحقل بين أقواس مزدوجة
فاصلة
اسم الجدول
فاصلة
الشرط أو المعيار : ( وهنا الشرط أن حقل nom بالجدول المذكور يساوي قيمة مربع القائمة المنسدلة بالنموذج )
لاحظ الآتي :
' " & Me![combo6] & " ' : تستخدم للمقارنة مع قيمة نصية
وهكذا على باقي الحقول المطلوبة والمعروضة بالنموذج مثل fax و t1 (التليفون الأول) وهكذا
على العموم عليك أن تتجنب اللغة العربية تماما في برنامجك
ولا تقوم بتعريب الأوفيس واستخدام واجهة عربي
ولا تجعل المسميات بالعربي للجداول أو الاستعلامات أو النماذج أو أو أو وحتى تسميات مربعات النص داخل النموذج
وأهلا بحبايبنا ناس مصر وكل الوطن العربي الموجدين معانا بالمنتدى :)
لا حظت في جهازين عندي الأكواد البرمجية لا تشتغل فهل هناك سبب لذالك و لكي أتمكن من تنفيد مثال أخي أمير2008
السلام عليكم
أشكر جميع الإخوة و بالأخص الأخ أمير 2008 :)
لقد وجدة حل لمشكلتي دون كتابة أي سطر برمجي وهو عن طريق إستعلام جدولي
و هذا الرابط فيه شرح الطريقة على اليوتيب ليستفيد جميع من لديه إشكالتي ;)
يا باشا الشكر لله
وإن شاء الله تجد حلا للمشكلة الأساسية
وهي تشغيل الأكواد البرمجية في برنامجك
حيث من المؤكد أنك ستحتاج لها مستقبلاً
وبالتوفيق
إتشاء الله و أنا أعمل على ذالك حاليا