rudwan

بل خبير هكذا يتصرف الخبير , اضافة الى الأدب اللطيف حياك الله

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

أخي الكريم أولا شكرا على هذا المجهود ثانيا : حرصنا في المنتدى على الأمانة العلمية و أنا لا ألومك هنا , أعرف كل عضر يمكن أن يحمل برامج كثيرة من اي موقع و تجد في النهاية لديه كم هائل من الملفات و ربما يكون نسي من اين تم تحميلها لكن حتى ننشر مثل هكذا موضوع مهم , حبذا لو تضيف مصدر البرامج أو اسم مصممها و أرجو رجاء شديدا أن تكون كل هذه البرامج متاحة و مسموحة من قبل مؤلفها و اذا كنت تعرف أي برنامج منها تم اقتباسه بغير اذن صاحبه فأرجو ازالته من هنا المعذرة على كل ماشرحت لكن هي في النهاية أمانة ينبغي أن نؤديها جميعا حفاظا على حقوق اصحابها و الله و لي التوفيق

ينبغي أولا أن تختار عنوان مناسب للموضوع , ماهو البرنامج حتى نقوم بتعديل العنوان ؟ ثانيا : اشرح ماتريده بالضبط من البرنامج و ابدأ بما يسمى تحليل النظام على ورقة و قلم قبل البدء باي شي و من ثم نتناقش في قضية اختيار الجداول المطلوبة للعمل

ماشاء الله عليك اخ جعفر , خبير انا اجبت من منظور روية الملف فقط و لم اجرب النتائج كما فعلت انت

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

نعم التنسيق الآن صحيح بالنسبة لهذين الحقلين بقي عليك موضوع جدول الموظفين لم تفعل به شيئا - اضف جدول نوع الحركة ( تسليم - استلام - تلف ) ايضا جدول حركات المواد : - أضف حقل نوع الحركة ( نفس الربط السابق ) - غير اسم حقل التاريخ الى اي اسم آخر لأن كلمة date كلمة محجوزة

لاتستعجل في بناء اي شي قبل الانتهاء من الجداول بشكل صحيح لأنك ستقوم باعادة كل التصاميم بعد تصحيح الجداول لازالت الملاحظات نفسها في جدول حركة المواد بدون أي تغيير و قد أرفقت لك رابط الموضوع لكي تطلع عليه و تستفد منه في تنسيق الجداول لكن على مايبدو لم تطلع عليه أنت تحتاج الى رقم الموظف الموافق لرقم الموظف في جدول الموظفين مع تنسيقه بحيث يظهر لك الاسم بدلا من الرقم كذلك تحتاج رقم المادة ( و ليس الكود ) الموافق لرقم المادة في جدول المواد مع تنسيقه بحيث يظهر لك الاسم بدلا من الرقم كذلك لاتحتاج حقل اسم المادة في هذا الجدول كذلك نفس الملاحظات لازالت كما هي بالنسبة لجدول الموظفين دون أي تغيير بعد الانتهاء من الجداول و تصحيحها نبحث في قضية الاستعلامات و من ثم النماذج

طبعا يجب الانتباه هنا الى ضرورة استبدال اسم الجدول الذي لديك بدلا من mytable و اسم الحقل الذي يحتوي الترقيم التلقائي id يجب اتسبدال كل عبارة id وردت في الدالة باسم الحقل الذي لديك

انسخ الدالة التالية في وحدة نمطية جديدة Public Function GetMiss() As Long Dim sa As DAO.Recordset Dim mak As Long Set sa = CurrentDb.OpenRecordset("select * from mytable order by id") sa.MoveFirst mak = sa![id] GetMiss = 0 sa.MoveNext Do Until sa.EOF If sa![id] > mak + 1 Then GetMiss = mak + 1 Exit Function Else mak = sa![id] End If sa.MoveNext Loop sa.Close If GetMiss = 0 Then GetMiss = mak + 1 End If End Function ثم عند الترقيم استخدم قيمة الدالة لتعطيك الترقيم الجديد أو الفارغ ان وجد و بالله التوفيق

ألغي الشرط الذي في الاستعلام لتظهر لك كل الرتب في التقرير و الغي الفلتر في التقرير

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

أول بصمة في منتداك الجديد "أوفسينا" أخ جعفر و ننتظر المزيد حياك الله

السلام عليكم نبارك الأخوة الذين تمت ترقيتهم للتو بناء على مجهودهم الرائع في المنتدى و هم رمهان - الى خبير s s m الى عضو محترف أسير الشروق الى عضو مميز و بانتظار تفعيل ترقية الأخ "آخر الأرض" أيضا و التي تأخرت لأسباب فنية فقط و الشكر موصول لأخينا الأستاذ أبو خليل حفظه الله الذي شاركنا في عملية الاختيار للترقية مشكورا نأمل أن تكون هذه الترقيات حافزا للمذكورين أعلا لبذل مزيد من العطاء و حافزا لغيرهم ايضا للدخول في سلم الترقيات

الكود يعمل في حدث قبل التعديل و ليس بعد التعديل

اوضح طلبك بشكل اكثر تفصيلا مالذي تريده من حقول في الاستعلام ؟

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

مافهمنا شيء من المطلوب أوضح بشكل أكثر تفصيلا

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

انسخ هذا الكود في الوحدة النمطية الخاصة بالنموذج Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.ItemNo <> 9 And Me.ItemNo <> 8 And IsNull(Me.Result) Then MsgBox "You Should Post Result" Cancel = True End If End Sub

الطلب غير واضح اوضح تفاصيل ماتطلبه واحدا تلو الآخر حتى نتمكن من مساعدتك

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

لم تقم بعمل ماطلبته منك قم بالاطلاع على الموضوع التالي http://www.officena.net/ib/index.php?showtopic=13598 و استفد منه في تعديل تصميم الجداول ثم ارفعها

أهلا بك أبا آدم و شكرا على مشاركتك طمئنا عنك و عن صحتك

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