ابوخليل

اذا اردت الجمع مع بقاء التاريخ والوقت فهذا يمكن تحقيقة داخل النماذج المستمرة او في التقارير حيث ستكون حقول الجمع غير منضمة اما سؤالك الرئيس وهو طلب تصفية بين وقتين فهذا يمكن الحصول عليه داخل الاستعلام باستخدام الدالة Between شريطة : 1-ان يكون نوع الحقل ( وقت/تاريخ) 2- فرز الوقت عن التاريخ العام بعمود مستقل ، وضع فيه المعيار التالي مثلا : Between #06:00:00# And #08:00:00# ويمكنك استخدام حقلين في النموذج لكتابة الوقتين المراد التصفية بينهما بعد هذه العمليات يمكنك الجمع وستضطر حينها الى انشاء استعلام جديد للجمع واستبعاد التواريخ والاوقات آمل ان اكون وفقت في الايضاح وفقك الله لكل خير ،،،

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

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

تفضل هذا برنامج صغير للمخازن من اعداد احد اساتذتنا الفضلاء 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 يلغي عمل هذا المفتاح