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

من فضلكم جميعا

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

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

وشكرا

db2.rar

تفضل المثال كم تريده ....... وللاستفادة اكثر يمكن البحث عن الدوال التجميعية فالمنتدى مليأ بها .... تحياتي لك B)

____________________DLookup.rar

مشكور جداااااااااااااااااااااااااااااااااااااا اخى

ولكنى بحثت عن دوال التجميع ولكنى فشلت ارجوا توضيح ما قمت بعملة

أسف على تطفلى

سيدى الفاضل

أشكرك جزيلا لقد وجد حل ولكنة غير عملى فقد دخلت لمحرر البرامج ونسخت الدالة بكاملها وحفظتها كما هى وجربتها اكثر من مرة مع تغير مسميات الحقول أشرك أخى

كرمك معى يطمعنى للمزيد

لقد أضفت لقاعدة بيانتى تلك جدول جديد يحتوى البيانات التالية

كود الشغلة كحقل غريب

رقم أمر الشغل كحقل أساسى

تاريخ أمر الشغل

القسم

أسم الشغلة

الكمية

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

وكل شغلة يتم تصنيعها بأكثر من أمر شغل

بعد ذلك قمت بعمل فورم لامر الشغل WorkingOrder

بها كل نفس الحقول السابقة وأردت عمل التالى

عند كتابة الكود يظهر تلقائيا أسم الشغلة والقسم المقابلين لنفس الكود فى جدول Kod

كذالك يظهر فى خانة تاريخ أمر الشغل تاريخ اليوم حسب نتيجة الكومبيوتر

أى اننى فقط أدخل فى تلك الفورم (WorkingOrder ) الكود ورقم أمر الشغل والكمية

أطلت عليك أسف جدا

ولكنى فعلا متشوق للمعرفة

وليجعلة الله فى ميزان حسناتكم

اليك الملف للتوضيح

db2.rar

B) اتمنى ان يكون هذا ما تريد ....... وان لم يكن يرجى التوضيح اكثر ... ونحن حاضرين ....مع اخلص التحيات

ملاحظة :

يجب تجنب الكلمات المحجوزه في الاكسس مثل Name و date وSection علشان ماتصير خربطه في محرر الاكسس ..... تم تبديل الى name1 , و date1

____________________DLookup1.rar

هذا بالضبط هو المطلوب الله عليك

متشكر جداااااا أخى

بس لو ممكن تكمل جميلك معى

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

أسف والله مكسوف من نفسى كتير على الحاحى هذا بس أعمل اية كرمكم طمعنى

وليجعلة الله فى ميزان حسناتكم

اسف على الأطالة

أخيكم أبو روان

   Private Sub Kod_AfterUpdate()
Me.SectionName = Nz(DLookup("[SectionName]", "[Kod]", "[Kod]=[FORMS]![workingorder]![Kod]"), "")
Me.Name1 = Nz(DLookup("[Name1]", "[Kod]", "[Kod]=[FORMS]![workingorder]![Kod]"), "")
Me.Date1 = Date
End Sub

شرح سريع للكود اعلاه

تم استخدم دالتين مع بعض وهما nz وdlookup .. اما عن nz فهي

تفيد في تخصيص قيمة في الحقل اذا كان خاليا او اذا لم يتحقق الشرط المطلوب ، وقد تم تخصيص "" (فراغ) في المثال اعلاه واما دالة dlookup فهي تفيد في البحث عن قيم في جداول او استعلام وادراجها في عنصر التحكم (مربع النص)

ما تقول الشفره اعلاه في الجملة الاولى

(( بعد تحديث حقل الكود .... ابحث او اعكس القيمة الموجوده في حقلSectionNameالموجود في جدول Kod شرط ان حقلKod الموجود في جدولKod يساوي حقل Kod الموجود في نموذج workingorder وضعها في حقل Me.SectionName الموجود في نموذج workingorder

وفي الرابطين ادناه معلومات وافيه واكافيه

http://www.officena.com/ib/index.php?showtopic=152&hl=dfirst

http://www.msaccess4arab.net/Droos/writingcode/index.htm

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

فعلا أنا أثقلت عليك كثيرا لكن أعزرنى أخى

طبعا شرحك للدالة مفيد جدا وفعلا بفضل الله أولا وفضل شرحك فهمت ما تقصد

لكن هناك مشكلة أخرى بسيطة

حاولت حلها ولكن لم أفلح

هناك حقل يسمى الكود فى جدول Kod

هذا الكود فى الحقيقة عبارة عن مجموعة أرقام تكتب كالتالى 80/100/25/1/2

أى على خمس مجموعات فالرقم الأول يرمز لشى والثاتى لأخر وهكذا فمثلا الرقم 80 يعنى أن هذا المنتج يصنع للمرة الأولى

والرقم 100 يعنى أن خامتة نحاس وهكذا لكل رقم دلالة وهذا للتيسير فى معرفة الأصناف

حاولت تقسيم حقل الكود فى جدول الكود الى خمس حقول واسميتهم ID&IS&IX&IP&IF

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

نفس الموضوع فى حقل رقم أمر الشغل من جدول WorkingOrder قمت بتغيرة ألى حقلين وبنفس الطريقة جعلتهم مفتاحا أساسيا

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

وهذا فعلى فكل كود يمثل شغلة يمكن تصنيعا أكثر من مرة بأكثر من أمر شغل

ولكن عندما أردت عمل العلاقة أعطانى علاقة غير معرفة لماذا ؟ الله أعلم فأين خطئى

أرجوا توضيح الخطأ وأيجاد الحل أكرمكم الله

وأسف على الأطالة وليجعلة الله فى ميزان حسناتكم

مع السلامة

أسف لو كنت أزعجتك

بس فعلا انا بدى أتعلم

شاكر جدااااااااااااااااا