ابوخليل

هذه الرسالة الثانية غير موجودة اصلا في المرفق تأكد من مثالك المرفق

تفضل هذا برنامج صغير للمخازن من اعداد احد اساتذتنا الفضلاء SmallStore.rar

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

حقيقة المقصود غير واضح ولكن هذه الدالة لاستخراج الفرق بين الوقتين بالدقائق lateN:DateDiff("n";[startDate];[EndDate])) وهذه لتحويل الناتج الى ساعات ودقائق lateH: IIf([lateN]<=0;0;[lateN]\60 & ":" & [lateN] Mod 60)

جزاك الله خيرا درس جديد اظن لم يطرق في هذا المنتدى وسؤالي : هل قارىء الباركود الأحادي يقرأ هذا النوع ولو تكرمت باعادة رفع قاعدة البيانات المرفقة على الاصدار 2003

جرب وحاول جلب بيانات من الملف المرفق db1.rar

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

وهذا حل بطريقة أخرى عدم تكرار4.rar

Me.date2 = DateAdd("d", 45, [date1]) الناتج سيكون اكبر من التاريخ الاول بـ 45 يوما ويمكنك استبدال الرقم 45 بمتغير رقمي او قيمة حقل معين

هذا واحد من الحلول آمل ان يفي بحاجة السائل عدم تكرار2.rar

بدور ؟ وإلا خالد ؟

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

ان كنت تريد عدم تكرارر الرقم مع صنف معين مع السماح بالتكرار اذا تغير الصنف فاجعل حقل الصنف وحقل الرقم مفاتيح في الجدول

الأمر يرجع اليك فيمكنك التغيير في الجميع

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

في خصائص النموذج / لسان التبويب حدث غير القيمة : مفتاح العرض التمهيدي إلى : نعم

تفضل هذا لحذف بيانات جدول خارجي Dim dbs As Database Set dbs = OpenDatabase(CurrentProject.path & "\data1.mdb") ' Delete in tbl1 . dbs.Execute "DELETE tbl1.* FROM tbl1" dbs.Close data1.mdb = القاعدة الخارجية tbl1 = اسم الجدول في القاعدة الخارجية ضع قاعدة البيانات بجانب القاعدة الافتراضية او غير المسار ان اردت في الامتداد اعلاه

بل ممكن ولكن هل تريد حذف البيانات من الجدول ام حذف الجدول نفسه ؟

انت بحاجة الى اظهار مربع حوار الطابعة لتختار ما تريد من النسخ وهذا السطر هو المسؤول عن ذلك : DoCmd.RunCommand acCmdPrint print N2.rar

هذا مثال وجدته لك تصفية من النموذج ويمكنك تطبيقه على نموذجك الفرعي تصفية تفرير من نموذج.rar

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

تفضل Q2.rar

تحويل قاعدة البيانات الى mde يلغي عمل هذا المفتاح

التطبيق على ثلاث حقول فقط : لتحقيق مطلوبك هناك عدة ضوابط الاول : لابد ان تكون قيمة الحقول هي القيمة الرقمية للالوان وهذه يسيرة فيمكن ان يظهر اسم اللون مع بقاء القيمة رقمية ( انظر حقلي 4 ، 5 في الجدول ) كما يمكننا الاستغناء عن مربع التحرير في الجدول ونجعله يظهر رقما كما هو ويكون اظهار الاسماء داخل التقرير او النموذج حسب الحاجة الثاني : وضعت لك في الحقول الثلاث الاولى القيمة الافتراضية = صفر لهذا ستظهر الحقول التي لم تأخذ رقما سوداء انظر التعديل ووافني بالنتيجة VGA Color Cable3.rar

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