السلام
عندي نموذج فرعي اريد ان اظهر في حقل مستقل اخر قيمة من هذا النموذج
اظهار اخر سجل من نمودج
السلام عليكم أخي العزيز ورحمة الله وبركاته
ضع الكود التالي في الحدث oncurrent أو afterupdate :
dim Lrecord as string أو as integer
Lrecord =DLast("UnitPrice","table name")
أتمنى لك التوفيق
لنفترض أن عنصر التحكم هو مربع نص وإسمه البرمجي txtlast
ندرجه داخل النموذج الفرعي وفي الحدث afterupdate للنموذج الفرعي نضع الكود التالي
Txtlast = Dlast("fieldname","tablename")
ثم نقوم بإنشاء مربع نص آخر خارج النموذج الفرعي إسمه البرمجي txtlast2 ويكون مساوي للقيمة الموجودة في txtlast
أتمنى لك التوفيق
ممكن مثال اخي اعمل عليه
كيف اعطيه نفس القيمة لمربع النص واين اضعه في النموذج الرئيسي
السلام عليكم أخي العزيز ورحمة الله وبركاته
تفضل هذا المرفق ويوجد فيه الحل إن شاء الله
الشرح
أتمنى لك التوفيق أخي العزيز
ولا تنسانا من الدعاء
عذرا لقد نسيت الصورة وهي الخطوة قبل وضع الكود
شكرا للك اخي خودور على المساعدة وحفظك الله من كل سوئ
هذا هو طلبي لكن اريد اضهاره في نموذج الفرعي ادا امكن
لم أفهم قصدك
لماذا تريد وضعها في التموذج الفرعي، فإن ذلك سوف يؤدي إلى تكرار القيمة
سلام اخي خضر
اتبعت الطريقة ونجحت معي لكن بعد فتلرة ظهر رسالة خطئ خاصة باكسس تقول ان نموذج enregistre congé arabغير مووجود
مع علم ان الكود يعمل و يظهرفي الحقل اخر سجلات لكن عند خروجي من النموذج تظهر رسالة اكسس تنبهك بدخول الى محرر فيجيال بسيك ويظهر الخطئ 2450و كود بلون اصفر في كل مرة
هذا هو الكود الذي وضعته
[Forms]![enregistre congé arab]![dernier] = DLast("reliquat", "congé", "code_employé= " & Me.code_employé)
تم تعديل هذه المشاركة بواسطة nacer_alger في 10 يناير 2015 في 17:37
السلام عليكم أخي العزيز ورحمة الله وبركاته
أرجو من أن ترفق لي آخر تعديل على مشروعك وان شاء الله سوف تحل المشكلة
وشكرا