ابوخليل

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

وهذا حل بطريقة أخرى عدم تكرار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

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

تفضل اتمنى ان يكون هو مطلوبك VGA Color Cable2.rar

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

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

يوجد اكثر من طريقة لحذف السجلات المكررة 1- انشاء استعلام البحث عن المتطابقات بواسطة المعالج ثم حذف السجلات المكررة يدويا وهذا يصلح اذا كانت المكررات قليلة 2- نسخ بنية الجدول فقط وحفظها باسم جديد ثم تعيين احد الحقول المناسبة كمفتاح لا يقبل التكرار بعد ذلك فتح الجدول الاساس ونحدد جميع السجلات ثم ننسخها ونلصقها في الجدول الجديد النتيجة : نقل البيانات بلا مكررات ويمكن بدلا من النسخ واللصق استخدام استعلام الالحاق لعمل ذلك ملحوظة : ستخرج عليك رسائل تفيد بتعذر اللصق بسبب مخالفات وكل ما عليك هو تجاهلها بالتوفيق ،،،

الموضوع مخالف لقواعد المشاركة 1- يجب اختيار عنوان مناسب يصف المشكلة 2- الاكتفاء بسؤال او استفسار واحد في كل مشاركة 3- منع كلمات الفزعات مثل : النجدة ... ساعدوووووني ... تكفووووو ن

صحيح لو زاد عن الثلاث سنوات تعطي النتيجة 4 والحل هو ان تستخرج الايام ثم تقسمها على 360 مثال : =Round(DateDiff("d";[Date1];[Date2])/360;2) Round لتقريب الكسر واخترنا 2 للتقريب الى عددين عشريين ويمكنك استخدام هذه الدالة لاستخراج الايام والشهور والسنين : Function BetwnDate(Date1 As Date, date2 As Date) Dim sYears As Integer, sMonths As Integer, sDays As Integer sMonths = DateDiff("m", Date1, date2) sDays = DateDiff("d", DateAdd("m", sMonths, Date1), date2) If sDays < 0 Then sMonths = sMonths - 1 sDays = DateDiff("d", DateAdd("m", sMonths, ), date2) End If sYears = sMonths \ 12 sMonths = sMonths Mod 12 BetwnDate = sYears & "سنة, " & sMonths & "شهر, " & sDays & "يوم" End Function تلصقها في وحدة نمطية عامة ثم تستخدمها هكذا داحل مربع النص: =BetwnDate([Date1] ;[date2])