ابوخليل

العنوان غير مناسب يغلق الموضوع

لمنع التكرار اجعل حقلي (الرقم المعرف) و(تاريخ اليوم) مفتاحين

اتوقع مشكلتك سببها هذا : Private Sub Form_AfterUpdate() dater_AfterUpdate End Sub عطل هذا الحدث لترى النتيجة

حول المرفق الى امتداد mdb فقد تحظى بمشاركات اكثر

من واقع تجربة الافضل ان يكون الحقل الخاص بالحدث غير منضم ثم لتثبيت بقاء المؤشر استخدم RNNO.SetFocus في المكان المناسب ويكفي عن ذلك : ايقاف علامة الجدولة في جميع الحقول ما عدا الحقل مكان الحدث هكذا : ايقاف علامة الجدولة=لا

اذا اردت الجمع مع بقاء التاريخ والوقت فهذا يمكن تحقيقة داخل النماذج المستمرة او في التقارير حيث ستكون حقول الجمع غير منضمة اما سؤالك الرئيس وهو طلب تصفية بين وقتين فهذا يمكن الحصول عليه داخل الاستعلام باستخدام الدالة 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 = اسم الجدول في القاعدة الخارجية ضع قاعدة البيانات بجانب القاعدة الافتراضية او غير المسار ان اردت في الامتداد اعلاه

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