كيف أعرف السعر من جدول أسعار

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

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

Private Sub الحجم_AfterUpdate()
Me.السعر = DLookup("[price]", "Prices", "[kind]='" & Me![الفئة] & "'")
End Sub

حيث السعر.Me يمثل مربع النص الخاص بالسعر في النموذج

price يمثل السعر في جدول الأسعار

Prices هو جدول الأسعار

kind هو نوع الفئة في جدول الأسعار ( اطفال - رجال - نساء )

[الفئة]!Me يمثل نوع الفئة في النموذج

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

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

وهذا ملفك بعد التعديل

za_price_up2.rar

ملاحظة : تم تعديل المثال بآخر جديد به التعديل المطلوب

الاستاذة الفاضلة زهرة

شاكرا لك جدا ولكن يتم إرجاع أول سعر فقط لكل فئة فعند اختيار الفئة أطفال واي حجم جديد يعيد السعر الأول للأطفال وهو 3 وعند اختيار فئة رجال وأي حجم يعيد أول سعر لحجم الرجال وهو 20

والمطلوب هو عند اختيار الفئة اطفال والحجم S يكون السعر 3 وعند اختيار الفئة اطفال والحجم L يعطينا السعر 10 وهكذا

وقمت بعمل ذلك بسجل جديد أو بالتعديل بالسجل باختيار فئة وحجم جديد

أخت زهرة هل من طريقة للتعديل على السجل بعد القيام للمرة الأولى

مع الشكر

فادي

لو سمحتوا

لو كان مربع النص موجود ضمن نموذج فرعي فماذا نضع بدلا من

me![الحجم] مثلا

مع الشكر

الملف بعد التعديل بناء على طلبك

سيصبح الكود الجديد هو

Private Sub الحجم_AfterUpdate()
Me.السعر = DLookup("[price]", "Prices", "[kind] ='" & Forms![الفئة]![الحركة] & "'" & " AND [size] = '" & Forms![الحجم]![الحركة] & "'")
End Sub

za_price_up2.rar

معذرة اخي ابو ساره

لم انتبه لردك إلا بعد الإجابة

حيث كنت اكتب الدالة واتعبتني الكتابة مع المسميات العربية في الكود

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

f_ajjour كتب:

لو سمحتوا

لو كان مربع النص موجود ضمن نموذج فرعي فماذا نضع بدلا من

me![الحجم] مثلا

مع الشكر

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

Private Sub الحجم_AfterUpdate()
Me.السعر = DLookup("[price]", "Prices", "[kind] ='" & Forms![MineForm]![subForm].Form![kind] & "'" & " AND [size] = '" & Forms![MineForm]![subForm].Form![size] & "'")
End Sub

حيث MineForm هو اسم النموذج الرئيسي ( ضع بدلا منه اسم النموذج الرئيسي الخاص بك

حيث subForm هو اسم النموذج الفرعي ( ضع اسم النموذج الفرعي الخاص بك )

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

ووضعت ملفي فيه على

/index.php?showtopic=151855

أرجو المساعدة

فادي

اخي فادي قد ينفعك هذا المثال

اخوك حازم

Sub_price.zip

أخي حازم

لدي كافة الحقول في نموذج فرعي فما العمل

عزيزي فادي ....اليك هذا المثال المتواضع بعد التعديل

اهم شيء انك تستفيد من الكود في النموذج الفرعي

اخوك حازم

Sub_price____.rar

اخي الفاضل فادي

لقد ذهبت الى مشاركتك وبرنامجك ووجدت لخبطه كبيره به ولم اعلرف ما هو النموذج المطلوب او الجداول المطلوبه تصحيحها

اتمنى ان تبلغنا في مشاركتك الذي وضعت لها الرابط المطلوب بالضبط في برنامج وما هي الجداول والنماذج الذي تريد التعديل عليها

او ان تضع لنا مثال صغير حل نحل لك المشكلة ومن ثم قم بتطبيقها على برنامجك

أختي زهرة

شكرا جزيلا على الردود السريعة وسامحيني اذا كنت قد أربكتك معي

عني نموذج الأطباء وهو سوف يفتح مع بدء التشغيل في المرفق

يوجد مربع تحرير وسرد اريد أنه اذا اخترت العمل المرسل أن يقوم بوضع سعر العمل لهذا الطبيب وهو ذو الرقم (1)

من الجدول prices

لقد وضعت في حدث بعد التحديث هذا الكود ولكن لم ينفع

أرجو المساعدة وأكون قد وفقت في شرحي

مع الشكر الجزيل

فادي

مشكور أخي حازم ولكن انظر المرفق ولكن لم تنفع معي

db1.rar

الشكر والعرفان للأخت زهرة

لقد طبقت الكود الخاص بمشاركتي كمثال على قاعدة بياناتي وقد كانت النتائج رائعة جدا

مع تحياتي للجميع بمشاركتهم بهذا الموضوع

والسلام عليكم ورحمة الله وبركاته

اخي فادي

اعتقد الخلل كان في مصدر عنصر التحكم لمربع نص غير المنضم [descr0] وقد اعطيتها انت القيمة [سعر العمل]

منين جبتها يا اخي فادي ؟؟

على العموم ملفك المرفق بعد التعديل اتمنى ان يكون ما تبغيه انت

price.rar

أخي حازم

شكرا جزيلا مشي الحال ولو شوي تانية كان صار لي شي

لأنو كل شي تمام إلا هالشغلة ماكانت على بالي

مع الشكر لجهودك ولكل الأخوة الذين لم يبخلوا علي بشيء

فادي

أخي حازم

مشكور كتير لكن عم تعبك معي

الوضع تمام التمام

ولكن عند اضافة طبيب جديد وسعر جديد لا يقوم بأخذ السعر الجديد

أي يوجد شرص ثاني للعملية:

الشرط الأول هو: العمل المرسل

الشرط الثاني هو: رقم الطبيب أو اسم الطبيب

ولا أرى في الكود سوى شرط واحد فقط " مع العلم أني وضعت الشرط الثاني ولم يفلح

مع الشكر الجزي

فادي

اقتباس

حيث كنت اكتب الدالة واتعبتني الكتابة مع المسميات العربية في الكود

دائما ننصح الاخوة باستخدام اللغة الانجليزية في اوفيس اكسس، وذلك للمشاكل الكثيرة التي تحدثها التسميات العربية "في البرمجة"

اشكرك اخي حازم على هذه المشاركات واتمنى لك التوفيق.

همام ابوعرقوب كتب:

اشكرك اخي حازم على هذه المشاركات واتمنى لك التوفيق.

بارك الله فيك اخي همام

فأنتم اساتذتنا ونحن نتعلم منكم دوما ، ليس تواضعا ولكنها الحقيقة فانا ليس الا مبتدئ في مجال الاكسس

ولك ولكل مشرفي وخبراء المنتدى الفضل بتعليمنا

وستكون لكم صدقة جارية تعود عليكم بالاجر ان شاء الله

:ألى الأخوة لقد وجدت الحل في أحد المواقع بمساعدة أحد الأخوة جزا الله خيرا وذا هو الكود

Me.price = DFirst("price", "Prices", "works = " & Str(sentwork) & " 

and  iddoctor = " & Str(iddoctor))

يا أم عهود

لا داعي للإعتذار

أخوة نكّمل بعضنا بارك الله فيك

zahrah كتب:

حيث كنت اكتب الدالة واتعبتني الكتابة مع المسميات العربية في الكود

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

نعم فتسمية الكائنات بحروف عربية هي عملية مرهقة جداً عند كتابة او تعديل الدالة....

وشخصيا اذا صادفتني دالة بمسميات عربية فانني اقوم بعمل الاتي:

1- نسخ الدالة الى الاكسل

2- اجراء عملية احلال replacement(بالضغط على Ctl+H) وذلك لتبديل كل اسم عربي برمز لاتيني a1-a2.... مثلا

3- اجراء التعديلات المطلوبة على الدالة

4- اجراء عملية احلال جديدة لاعادة الرموز الى مسميات عربية كما كانت

5- اعادة نسخ الدالة الى مكانها في قاعدة البيانات.

طبعا هي عملية مرهقة نوعا ما ولكن ارحم من المعاناة مع المسميات العربية