د.كاف يار

اخوي فين المشكلة بالضبط Lab 2019.rar

لكي تعم الفائدة مرفق برنامج به كود لضغط و اصلاح قاعدة البيانات fix data.mdb

تفضل التعديل اخي الكريم اضغط هنا للتحميل

تفضل التعديل اخي الكريم نظرا لكبر حجم القاعدة فقط تم تحميل الملف على سيرفر خارجي اضغط هنا للتحميل

للاسف المرفق لا يعمل و الاجابة نعم تستطيع عمل ماشئت الصورة

انظر الصورة اخي الكريم ربما تفيدك

تفضل المرفق و به التعديل testcopy.mdb

للاسف اخي الكريم لم افهم طلبك لكن تستطيع التعديل الجدول باضافة عمود حذف نعم/لا تعديل نعم/لا اضافة نعم/لا و وضع كود في جميع النماذج في حدث عند الفتح If DLookup("[الاضافة]", "[USERS]", "[USERNAME]=[FORMS]![LOGIN]![USERNAME]") = True Then Me.AllowAdditions = True End If

اخي الكريم في النموذج الرئيسي ضع في حدث عند الفتح الكود التالي On Error Resume Next If Hour(Time()) < 7 Then MsgBox "لا يمكن تشغيل النظام خارج اوقات العمل من 7 صباح و حتى 3 ظهرا", vbCritical, "تنبيه" MsgBox Hour(Time()) DoCmd.Quit Else If Hour(Time()) > 15 Then MsgBox "لا يمكن تشغيل النظام خارج اوقات العمل من 7 صباح و حتى 3 ظهرا", vbCritical, "تنبيه" DoCmd.Quit Else End If End If

On Error Resume Next If Me.city = DLookup("city", "[TableA]", "[namex]=[Forms]![main]![city]") Then Me.city = Nz(DLookup("city", "[TableA]", "[namex]=[namex]=[Forms]![main]![city]"), "") Else If MsgBox("المدينة غير مسجلة مسبقا هل تريد تسجيلها الآن ؟" & vbCrLf & "", vbYesNo, " مدينة غير مسجلة") = vbYes Then Dim x As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("TableA") Rs.AddNew Rs!city = [Forms]![main]![city] Rs.Update Set Rs = Nothing MsgBox "تم التسجيل بنجاح", vbOKOnly, "تأكيد التسجيل" End If End If فقط الصق الكود في حدث بعد التحديث ان كانت المدينة غير مسجلة مسبقا سيتم تسجيلها

اخي الكريم اقترح عليك عدم تضمين نموذج الدخول بجدول المستخدمين يجب الغاء مصدر السجلات في النموذج و الحقول ضع كود التحقق من صحة بيانات المستخدم من خلال الكود و هذه افضل طريقة خاصة اذا تم مشاركة قاعدة البيانات سيتم الاتصال بالقاعدة عند الحاجة فقط تغضل المثال Database1.accdb

اخي الكريم ما فائدة الرقم اليومي

تفضل اخي الكريم اسم المستخدم admin كلمة المرور 1 المراسلات و الاشعارات.rar