ابو تراب

هلا اخي تفضل TEST5.accdb

هلا اخي هذا ليس اجابة عن سؤالك ولكم حبيت اشاركك تصميم مراقبة المخزون (متجر بيع بالتجزئة) Inventory Control (Retail Store) لعلى فيه بعض الافكار http://www.databaseanswers.org/data_models/inventory_control_for_retail/index.htm بالتوفيق

شاكر مرورك العطر استاذنا @Ali Mohamed Ali

جرب التالي TEST (1).accdb

جرب البرنامج التالي https://www.ssesetup.com/

هلا اخي جرب المرفق TEST.accdb

الاخ العزيز @أحمد الفلاحجى و الاخ العزيز @اشرف شكرا بمروركم العطر

السلام عليكم اخوتي الكرام اهدي العمل المتواضع اداة معلومات الموردين Suppliers Info Tool - مفتوح المصدر لكم لعلا هناك من يجده مفيدا. تم تصميمه من قبلي لجهة العمل التي اعمل بها لهذا لك كامل الحرية للاستفاذة منه و تعديله وليس لها اي حقوق. حسابات الدخول User Password ================ admin 123 Log 123 View view بالتوفيق YEM_LOG_DB.accdb

لا اعتقد...في انهاية يعتمد على مدى كفائة كتابة الكود و متانة تصميم القاعدة البيانات و العلاقات بين الجداول و طريقة كتابة الاستعلامات.

جزاك الله خيرا اخي على المعلومة تحياتي

ارجوا من الاعضاء الكرام المساعدة في الحل

هلا اخي انظر للمرفق (التقرير + Table2 form) اتركه للاعضاء الكرام تحياتي UPDATED3.accdb

لسبب ما لا استطيع تحميل الملف على كلا تستطيع اضافة زر للتقرير في النموذج كذلك انسخ التالي للاستعلام q_dawar_defat1 SELECT dawar.bar, dawar.nfousi, NoufousTable.Field, dawar.datein, dawar.n_istimara, dawar.n_mortajaa, dawar.type, dawar.hala, dawar.MORTAJAA, dawar.timy, [n_istimara]-[n_mortajaa] AS ss FROM hala INNER JOIN (type INNER JOIN (dawar INNER JOIN NoufousTable ON dawar.nfousi = NoufousTable.NoufousName) ON type.IrselyehTypeID = dawar.type) ON hala.fieldid = dawar.hala WHERE (((hala.fieldid)=Nz([Forms]![F1]![tsearch],0))) GROUP BY dawar.bar, dawar.nfousi, NoufousTable.Field, dawar.datein, dawar.n_istimara, dawar.n_mortajaa, dawar.type, dawar.hala, dawar.MORTAJAA, dawar.timy, [n_istimara]-[n_mortajaa] HAVING (((dawar.datein)>=[Forms]![F1]![d1] And (dawar.datein)<=[Forms]![F1]![d2]) AND ((dawar.type)=IIf([Forms]![F1]![chkFirstOrder],1,0)) AND ((dawar.MORTAJAA)=False) AND ((dawar.timy)="1")) OR (((dawar.type)=IIf([Forms]![F1]![chkRenew],2,0))) OR (((dawar.type)=IIf([Forms]![F1]![chkReplacement],3,0))) ORDER BY dawar.type;

هلا اخي جرب المرفق test.accdb

ممكن توضيح اكثر...الجدول 1 لدية حقل note وهو حقل نصي

هلا اخي هذه السلسلة مميزة

هلا اخي جرب المرفق جدول البريد 2019.accdb

جرب المرفق TEST -UPDATED.accdb

هلا اخي جرل المرفق TEST.accdb

هلا اخي جرب المرفق TEST1.accdb

هلا اخي جرب المرفق 112_UPDATED.accdb

هلا اخي اعمل مرجع الى Microsoft Scripting Runtime بالتوفيق

المثال كان لاختبار حقل الاسم فقط Name اذا اردت جميع الحقول فمثال الاخ العزيز @احمد الفلاحجي مميز لفحص جميع الحقول

هلا اخي يمكنك من التحكم التام بالادخال عن طريق العمليات Transactions بحيث تتم العملية ككل CommitTrans او تفشل ككل Rollback عملت لك مثال مرفق بحيث اذا لم بدخل الاسم تلغى عملية الاضافة Private Sub btnSave_Click() Dim wrkCurrent As DAO.Workspace Dim rstStudent As DAO.Recordset On Error GoTo ErrorHandler Set wrkCurrent = DBEngine.Workspaces(0) Set rstStudent = CurrentDb.OpenRecordset("Student") wrkCurrent.BeginTrans rstStudent.AddNew rstStudent("Name") = Me.txtName.Value rstStudent("age") = Me.txtAge.Value rstStudent.Update If IsNull(Me.txtName) Or IsEmpty(Me.txtName) Then wrkCurrent.Rollback Else wrkCurrent.CommitTrans End If rstStudent.Close wrkCurrent.Close Set rstStudent = Nothing Set wrkCurrent = Nothing Exit Sub ErrorHandler: MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description End Sub Test.accdb

هلا عملت لك frmVaccine و frmVaccines Vaccines - 2.accdb