ابوخليل

السلام عليكم من أجل تدارك الوقت عملت أساس للبرنامج وجعلته في موضوع مستقل من أجل التفاعل والحضور من الاخوان مرتادي هذا المنتدى وشي أحسن من لاشيء . إضغطي هنا للرابط

السلام عليكم جهد بسيط كأساس لقاعدة بيانات لن تعدموا فائدة وآمل ممن يسعى للعمل عليه وإكماله أن يتحفنا بنسخة لآخر ما توصل إليه تحياتي ،،،، الرقم السري 1 ethen.rar

بما إنك تريد حل مضمون وحاسم ولأنها حاجة ضرورية ومطلوبة في كل برنامج وبكثرة أفردت لها موضوعا مستقلا لعموم المصلحة وسهولة الوصول إليها عند البحث فإليك رابط الموضوع : النسخة الاحتياطية لقاعدة البيانات

حفظ قاعدة البيانات بأخذ نسخة ووضعها على D:\ عند إغلاق قاعدة البيانات ( أي في كل مرة تغلق فيها قاعدة البيانات ) وتسميتها بالعام مثلا 1429/1430 يتم تحديث بيانات النسخة الاحتياطية عند كل إغلاق ، وفي نهاية السنة وبداية سنة جديدة يتم نسخ قاعدة جديدة باسم العام الجديد ليبقى لكل عام قاعدة تخصه . تقبلوا تحيات أخيكم ... ابو خليل.. في المرفقات المثال قم بعمل التالي : 1 - اجلب الوحدة النمطية SaveFolder الموجودة في المثال إلى قاعدة بياناتك فقد تحتاج اليها مستقبلا عندما تود تحديد مكان النسخة 2- يوجد في النموذج مربعي نص مخفية قم بنسخهما إلى النموذج الرئيسي في قاعدة بياناتك 3 في حد ث عند الإغلاق للنوذج الرئيسي الصق هذا الكود : كود On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = [DBOld] DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = [DBNew] & "\" & DBwithoutEXT & "-" & (Format(Date, "yyyy") - 1) & "-" & Format(Date, "yyyy") & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub وفي حدث عند التحميل الصق هذا الكود : كود '[DBOld] = CurrentDb.Name اختيار قاعدة البيانات الحالية [DBOld] = "c:\z1.mdb" 'اختيار مسار القاعدة البديلة [DBNew] = "D:\" 'اختيار مكان حفظ النسخة __________________.rar

أشكرك أخي Bluemind على مرورك اضافة جميلة في محلها .

يعني لا بد تشوف بعينك وزر الطباعة كذلك اختفى يعني الكود شغال % عندي اقتراح لعل أن يكون فيه زوال المشكلة : افتح قاعدة بيانات جديدة واجلب إليها جميع الكائنات من القاعدة القديمة

السلام عليكم بعد ما تضع 1= في المربع افتح خصائص المربع واذهب إلى تبوبيب :( بيانات قم بتعديل القيمة (مجموع تراكمي ) من لا إلى شامل أو مجموعة إضافية تحياتي ،،،،

السلام عليكم وحده وحده وكل شي تمام استبدل الكود الموجود في نموذج الصادر SaderNum.tixt Enable = False بهذا Me.SaderNum.Enabled = False وشوف فيه مشاكل أخرى

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

السلام عليكم التعديل exp.rar

السلام عليكم الحل birth.rar

السلام عليكم هناك حلول في عرض التصميم للاستعلام اذهب إلى حقل التسلسل وفي القيمة فرز اختر تصاعدي . ان لم تأت بنتيجة افتح التقرير في عرض التصميم وفي مربع التسلسل اكتب 1=

نعم يوجد حل إن شاء الله فقط ارفق مثالا بسيطا يحتوي على الكود الخاص بالنسخ للتعديل عليه

تم العمل بطريقة أخرى آمل أن تفي بالغرض ملحوظة : تم التصرف في الاستعلام qu 2-2 بحذف نصف الحقول لتتضح الرؤية عند الفحص Data1.rar

افتح الفورمالرئيسي main اذهب إلى / تسجيل بيانات جديدة انقر / تعديل البيانات الحالية لعضو ادخل كود العضو ، وانقر موافق هل هذا هو المطلوب ؟؟؟ db3.rar

آمين ولك بالمثل قلت : استفدت من فكرة الاستعلام فقط طيب الربط الجديد للجداول وظهور البيانات ؟؟؟؟

غالبا التقرير يستند إلى استعلام استخدم الفرز حسب إدخالك للبيانات وغالبا يكون للرقم المعرف

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

التعديل Data.rar

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

السلام عليكم الآن السؤال واضح والإجابة بإذن الله ستكون واضحة وسهلة : فقط استخدمي الماكرو لفتح الفورم . إذا لم تضبط معكي ارفقي مثالا بسيطا كي يتم التعديل عليه مع علمي انك ستتمكنين من ذلك .

السلام عليكم الأخ الكريم بندر منصور بعد التحية 1- قمت بإزالة الصور الموجودة للتخفيف ( الصور المضمنة يزيد حجمها عن المرتبطة بـ 999% ؟؟ تصور الفرق فحاول وضع صورك في مجلد خارج القاعدة ) 2- دائما قم بعمل ضغط وإصلاح لقاعدة البيانات خاصة عند محاولة رفعها وإرفاقها في الموقع ( لاحظ الفرق بين حجم القاعدة الآن وحجمها السابق ) 3- أنشأت جدولا جديدا fromto وأعدت ربط الجداول للأفضل بناء على رغبتك : (سرد جميع سجلات الجهه الفلانية ( مثال جهة امارة الرياض جميع سجلات الصادرة لامارة الرياض تسرد باي طريقة ترونها) أنشأت ثمانية استعلامات لكل جهة استعلامين ( صادر و وارد ) واسميتها : Amarasader Amarawared Hiaahasader Hiaahawared shortasader shortawared tatweersader tatweerwared تستطيع اسنادها إلى ماتريد إلى نماذج أو تقارير ويمكن اختصارها إلى استعلامين فقط آمل أن تجد في المرفق ما يسرك وإلى مزيد من الابداع تحياتي ،،،،، SaderWared.rar

السلام عليكم النسخة الاحتياطية هل هي لقاعدة البيانات ككل أم للجداول فقط ؟؟

مشكور أخي جيلاني على الملاحظة التعديل _________________18.rar

أمل أن تصل المعلومة