ابوخليل

بارك الله فيك ووفقك لكل خير

من حقك اخونا محمد وتستاهل الله يوفقك لكل خير

تم التعديل بحيث عن طريق نموذج 2 يفتح نموذج1 على السجل المحدد فقط ج.rar

اذا تم تحديث مصدر السجلات بعد ادراج الرقم مباشرة لااعتقد امكانية حدوث التكرار

بل ان الجمع بين جدول employees وجدول الرواتب اقرب وافضل

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

تفضل اخي الكريم هذا مثال يشتمل على الكود الذي طلبته وقد تم ضبطه على ثلاث سجلات ويمكنك تغيير الرقم داخل الكود كما تشاء Example1.rar

المطلوب بحاجة الزيادة ايضاح فلو جعلت في المثال بيانات كافية تدل على المطلوب ؟

يمكننا الحصول على العدد من الجدول مباشرة Me.dorat = DCount("id", "table2", "id='" & Me.id & "'") om4.rar

الحمد لله ، ولك بمثل مادعوت

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

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

جرب : احذف الجداول المرتبطة ثم اعمل لها ربط من جديد لسان التبويب جداول / جديد/ ربط واذا لم تصل الى حل فلا بأس ان تعيد تنصيب اوفيس

اخي رعاك الله عملت لك ابتداء حسب تصوري لطريقة تنفيذ البرنامج ، ويبدو اننا غير متوافقين من هذا الباب سأشرح لك تفصيلا : 1- قبل الجرد يتم تسجيل العملية ورقمها وتاريخها لذا سيكون رقمها هو اعلى رقم في الجدول ويمكن وضع ضابط بحيث لا يمكن اجراء عملية الجرد الا بعد ادخال هذه البيانات 2- الجرد لا يتم الا على الكتب الموجودة ويكون لها نموذجا خاصا . وهذا شيء منطقي لان الكتب التالفة او المفقودة لن تكون على الارفف 3- لا نبحث الا عن كتاب نريد استبعاده 4- بعد اتمام عملية الجرد ؛ رقم الجرد في الجدول لا يظهر الا امام الكتب المستبعدة 5- التالف والمفقود يتم البحث عنه في نموذج خاص ، لاحتمال عودة مفقود فيتم التعديل من خلال هذا النموذج

عدل في سطر الرسالة لتصبح هكذا : MsgBox "الكتاب تالف في عملية الجرد رقم" & G_N

استبدل الكود المعدل بهذا : Dim rs As Object Me.Requery If Me.CaseBook.Value = "فاقد" Then MsgBox "الكتاب فاقد في عملية جرد سابقة" ElseIf Me.CaseBook.Value = "تالف" Then MsgBox "الكتاب تالف في عملية جرد سابقة" Else Me.G_N = DMax("no_Gard", "T_Gard") End If

في اي اصدار استخدم استعلام الالحاق من خلاله يمكنك الحاق بيانات من جدول الى جدول آخر في القاعدة نفسها او في قاعدة بيانات خارجية .

تم التعديل - تغيير طريقة البحث - البحث بالارقام الموجودة فقط - اظهار رقم آخر جرد db23.rar

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

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

احببت ان اشرح تصوري ووجهة نظري في المثال المرفق وهي كالتالي : اولا : سيكون مصدر البيانات للبرنامج هو الاستعلام QryKotob لانه يشتمل على الكتب الموجودة فقط لذا لن يظهر في نموذج الجرد الا الكتب الموجودة فعلا . ثانيا : قبل البدء بعملية الجرد يجب ادخال بيانات الجرد الحالي : رقم الجرد والتاريخ والمسؤول في نموذج frmGard ثالثا : تتم عملية الجرد باستخدام النموذج frmExCuGard وانظر الضوابط داخله كرقم الجرد وحالة الكتاب ومربع الاختيار اخيرا : العلاقة بين الجدولين يمكنك انشاؤها كما يمكنك تفعيلها لاحقا حسب الحاجة داخل الاستعلامات db21.rar

يوجد في التعديل السابق طلباتك كلها وزيادة

حسب رأيي الشخصي ( وهو قابل للخطأ والصواب ) فيما لو قمت انا بعمل البرنامج : الجدول الثالث ( الوسيط ) لا معنى له ، فهو زائد ويمكن الاستغناء عنه

تفضل : استبعد نوع2.rar

تمت الاجابة هنا http://www.officena.net/ib/index.php?showtopic=37777#entry324992