ابوخليل

يمكننا الحصول على العدد من الجدول مباشرة 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

يعني انك تريد ارجاع الحماية ؟ والسبب في عدم تمكنك هو في التسجيل او ما يسمى الريجستري ومؤكد انك استخدمت الاداة او ما يشابهها لتخفيض الامان HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 0) HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 0) حيث يتم تنفيذ واحد من هذين السطرين فقط عند الارجاع اليدوي فقد مررت بهذه المشكلة والحل السريع هو أن تجرب المرفق الآخر لابي ياسر والذي يعيد الحماية الى اكسس lock.rar

تم التعديل الى طريقة لعلها تكون انسب db11.rar

اعتبر الحقول ارقام هذا كل شيء مثلا : text3=text1+text2 السطر اعلاه يكتب في محرر الفيجوال الخاص بالنموذج او التقرير ويمكن ان نكتب داخل الحقل الذي هو ( text3) او نكتبها في مصدر عنص التحكم كليك يمين على الحقل ثم خصائص تم لسان التبويب بيانات تجد مصدر عنصر التحكم الخاص بالحقل ونكتب المسألة هكذا =text1+text2

هل جربت الاداة الموجودة في هذا الموضوع http://www.officena.net/ib/index.php?showtopic=37777#entry203485

اعذرني فلا يمكنني الاطلاع المرفق ولكن شرحك واضح حيث ذكرت انت ان الاجازات اربع خلال الشهر وكل واحدة ساعتين ارى ان تجمع الاجازات باعتبار كل سجل اجازة فتعد السجلات وليس الساعات المسألة الاخرى : اننا نتعامل ضمن الشهر الحالي حيث قلت : فأرى ان تستخدم مثل هذا الكود لاستخراج العدد : dim i i= month(date()) txt1=DCount("fild1","QryName","flddate=i") حيث fild1 اي حقل في الاستعلام او الجدول صالح للعد

تمام ... اذا العمل سيكون بدون حساب رصيد بمعنى ان الموظف يستحق الاجازة الساعاتية وتصرف له متى اراد شريطة الا تتعدى السقف الاعلى المقرر لكل موظف

من وجهة نظري هذا اقرب واضبط لأن التوالف والمفقودات يجب الا تظهر بعد الجرد ضمن سجلات المكتبة لذا اضفت مربع اختيار في جدول الكتب لامكانية حصر واظهار المفقودات والتوالف مستقبلا لاحظ : ان حقل موقف الكتاب سيكون الزاميا عند تسجيل كتاب جديد db11.rar

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