بســم الله الـرحمــن الرحيــم
الرجاء الأفادة
اريد عندما اختار رقم المشروع من الكمبو بوكس في نموزج ان يظهر لي في التيكست بوكس اسم العميل لهذا المشروع
مرفق المثال
على اكسيس2007
وشكرا
[ تمت الإجابة ]تيكست بوكس
بســم الله الـرحمــن الرحيــم
يا جماعة الموضوع مهم جدا جدا
لو سمحتم ساعدوني
انا بجد محتاج للمساعدة
مرفق نموزج للمشكلة على الأكسيس2003
الرجاء التعاون وشكرا
يا هلا اخوي
تفضل البرنامج بعد التعديل ان شاء الله يكون هذي طلبك
اخوك محمد
شكرا للأهتما اخي محمد
بس لا يوجد طريقة لعمل هذا على Text Box
ال Text Box ممكن في حالة ربطه على الجدول مباشرة
اما في حالة الQuery فعجزت عن استخدام ال Text box
مازلت المشكلة قائمة
وفعلا شكرا على اهتمامك
تم تعديل هذه المشاركة بواسطة ahmedico في 27 يناير 2009 في 14:59
اشكرك اخي محمد
بس ممكن لو تكرمت تشرحلي الفكرة علشان اطبقها على المشروع اللي قايم بيه
وربنا يا أخي يكرمك ويجعله في ميزان حسنااااتك يا رب
دعوة صادقة من القلب
اخي تم عمل ماكرو ليقوم بالبحث في السجلات
وتم اضافة الكود المبني على هذا الماكرو في حدث بعد التحديث ادخل على التيكست بوكس وشوف الكود وادخل على الميكرو وكل ما عليك الى
طبيق نفس الطريقة في برنامج انشاء ماكرو ادخل على خصائصه واهب الى الاجراء واختار منه GoToControl وتحت اكتب اسم عنصر التحكم
لهذي الاجراء باسم مربع النص الي تبي تبحث فيه يعني مثلا نفس الموجود في المرفق Project_no
وفي الاجراء اختار FindRecord ليتم البحث في السجلات عن طريق مربع النص الي انت تختاره وحط له الاسم نفس اسم مربع النص الي
انت تبحث فيه وفي حالتنا هذي سميته search
الان نذهب الى النموذج ونضيف مربع نص ونسميه search ونذهب الى حدث عند التحديث ونضع الكود التالي كما هو موجود في المرفق
Private Sub search_AfterUpdate() With CodeContextObject DoCmd.GoToControl "Project_no" لاحظ اسم مربع النص المراد البحث عنه DoCmd.FindRecord .[search], acAnywhere, True, , False, acCurrent, True لاحظ اسم مربع النص المراد البحث به search = Null وهذي الكود لتفريغ مربع النص بعد الكتابة به End With End Sub
وهذي كل شي
تم تعديل هذه المشاركة بواسطة مشارف في 27 يناير 2009 في 16:20
اولا اشكرك يا اخي ا/محمد على مجهودك
وثانيا انا طبقت الخطوات التي اشرت اليها في المثال ولكن للأسف
اولا: قمت بإعداد ماكرو كما هو معروض
قمت بإدراج الإجراء GoToControl والإجراء FindRecord
كما هو موضح
ثانيا: قمت بإضافة مربع نص
كما هو مبين وسميته list
ثالثا: تم إضافة الكود كما هو مبين
والحفظ بعد ذلك
هل لابد من تشغيل الكود قبل إغلاق الVB؟؟ وفي حالة تشغيله بيطلب مني إسم الماكرو
إسم الماكرو الذي تم إنشائه في الأكسيس غير موجود لإختياره
ده في حالة الضغط على تشغيل او run
انا قمت بالحفظ فقط وغلق ال VB
رابعا: كما هو مبين
معلش اخي محمد انا عارف انك قلبك كبير
فالرجاء المساعدة
مرفق النموزج
تم تعديل هذه المشاركة بواسطة ahmedico في 28 يناير 2009 في 09:42
السلام عليكــم ورحمـة الله وبركاتــه
تفضل اخي البرنامج بعد التعديل
وتم جعل نموذج المشروع يفتح عند الدخول على البرنامج
شرح المشكله
عند البحث عن عنصر Project
لم يكن موجود في النموذج وللبحث في عنصر معين لابد من وجوده لانك طلبت البحث في Project وهو غير موجود
هذي المشكله بس وتم اضافة حقل Project في النموذج ليتم البحث فيه
والتعديل على اسمه ليكون Project
اخوك محمد
تم تعديل هذه المشاركة بواسطة مشارف في 28 يناير 2009 في 12:30
اخي المحترم محمد
جزاك الله كل خير
والف الف الف شكر