د.كاف يار

اخي الكريم قاعدة البيانات المرفقة بما انها تحتوي على رموز لأسماء الأعمدة ستجد صعوبة في التعامل معها انت تريد التنسيق المستحسن لقاعدة البيانات انشئ جدول باسم الأطراف ( رقم الطرف - .............. بيانات الاطراف) انشئ جدول اسم القضايا ( رقم القضية / القيد - رقم الطرف الأول - رقم الطرف الثاني - ..... باقي البيانات) ** يفضل و بشدة ان تكون المسميات باللغة الانجليزية تهجئة عربية و حروف انجليزية ** رقم الطرف مفتاح اساسي ** عمل علاقة طرفية بين الجدولين تفضل هذا المقترح Database1.accdb

اخي الكريم ارفق المثال او تفضل اسهل الخطوات لتجاوز الرسالة في حدث عند الفتح DoCmd.SetWarnings False و في حدث عند الاغلاق DoCmd.SetWarnings True

تفضل الكود بعد التعديل اخي الكريم Expr1: Nz(DSum("[Column_Name]";"Table_Name";"[Where]>= '" & [Column_Name] & "' ");0) فقط انسخ و الصق Expr1: Nz(DSum("[الرصيد الافتتاحي]";"اطراف الفاتورة";"[باركود]>= '" & [باركود] & "' ");0) تفضل الملف بعد التعديل *** ملاحظة اخي الكريم اللغة العربية سوف تسبب لك مشكلة كبيرة في تركيب الأكواد من ناحية الاستدعاء و مناحية اخرى قد تواجه اجهزة لديها مشكلات في اللغة العربية مما يجعلك تنصدم بعدم عمل البرنامج بالصورة المرضية اكتب مسميات عربية بحروف انجليزية هذا افضل حل test_quit.accdb

اخي الكريم فقط قم باضافة docmd.quit تفضل التعديل test_quit.accdb

تفضل التعديل اخي الكريم test_quit.accdb

اخي الكريم لتصدير التقرير الى PDF يلزمك في حال انك تستخدم اوفيس 2007 او اقل تثبت اداة PDF تفضل الأداة في المرفقات بعد التثبيت تستطيع استخدام الأكود اعلاه SaveAsPDFandXPS.rar

اخي الكريم انشئ قائمة تحرير و سرد و ضع اسماء الجداول بداخلها في حدث عند التغيير ضع الآتي [اسم النموذج الفرعي].SourceObject = "Table" & "." & [اسم مربع التحرير و السرد]

اخي الكريم في حدث عند الخروج فقط ضع التالي SendKeys "{ESC}" اذا رغبت في رسالة تأكيد فقط ضع التالي If MsgBox("هل تود حفظ التغييرات", vbYesNo) = vbNo Then Cancel = True SendKeys "{ESC}" Exit Sub End If

جرب هذا الكود اخي الكريم worker.rar

ex:IIf([JOB]="مشرف أمن";"1";IIf([JOB]="حارس أمن";"2";IIf([JOB]="مدير أمن";"3"))) الكود Expr1: IIf([Movement]="بيع"or"مرتجع بيع"or"أخرى";DLookUp("[CustomerName]";"CustomersT";"[CustomerID]= " & [Expr4] & " ")) الخطأ هنا >>> يجب ان تذكر مصدر المعيار " &[ Expr4 ]& " IIf([JOB]="مشرف أمن";"1";IIf([JOB]="حارس أمن";"2";IIf([JOB]="مدير أمن";"3"))) مثال

اخوي فين المشكلة بالضبط 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