Shivan Kurdi

اتفضل اخ ريباز filter.rar

كلامك في مكانه شكرا كثيرا

=IIf(Format([ogr_date];"mmm")="اذار";"شباط";"اذار")

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

عفوا منك استاذي القدير " جعفر " لكن هناك راح يمسح كل الاسم اللي في جدول تابل2 وحسب فهمي لازم تنطيها الشروط كما مبينة في الصورة وشوف النتائج بعد اعطاء الشروط وشوف النتائج اذا ما ننطي الشروط هذا والله اعلم تحياتي

نعم اعمل جدول اخر باسم table4 وادخل البيانت لكن خلي الرقم اي دي بيكون غير مكرر مع الجداول الاخرى وفي استعلام توحيد اكتب select * from table1 UNION select * from table2 UNION select * from table4;

عفوا اخ وليد انا نزلت المرفق وشفت ان بيظهر الكمبيالة فارغة من البيانات و جدول الكمبيالة فارغة اصلا واشوف مافي علاقات بين الجداول

اليك صورين الاول عملنا استعلام توحيدي اي يونيون والخطوات كما مبينة بالصورة وبعدين عملنا استعلام ابيند اي اضافة في الاول ضغطنا على Append اي استعلام اضافة وبعدين حددنا الجدول نريد ان يضيف له البيانات بعدين حددنا الحقول اللي نريد ان يضيف الى جدول تابل 3 وفي الاسفل ابيند تو حددنا الحقول جدول تابل 3 اي امام كل حقل من استعلام توحيد "دمج" وشوف الصور الادناه تحياتي

استخدم دالة iif

اليك هذا اعمل استعلام توحيد واكتب فيها select * from table1 UNION select * from table2; واعمل استعلام ابيند اي اضافة الى جدول تابل 3 اي فتح استعلام جديد في وضع تصميم سكويليتي واكتب فيها INSERT INTO table3 ( id, الصنف, سعر ) SELECT دمج.id, دمج.ماكينه, دمج.سعر FROM دمج; واليك ملفك بعد عمل فيها test.rar

ممكن تقوللي في اي حالي اي يعني اذا كان ءكر او انثى او بوزتيف او نيكتيف او حين ارقام اصغر او اكبر بدون اللي ذكرناه غي اعلى او ممكن تنطيني كل احتمالات لكي اشغل عليه على الرغم انا اعرف انو شي اخر عم يتراوح في مغ خبيرنا ابو المختصرات تحياتي

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

ممكن وضح اكتر ما فهمت شي

اليك هذا الحل اذا كان هو المطلوب خلي نشرح بعدين اتفضل مع قاعدة بيانات واسف على التاخير الرد Compair_No (1).rar

عفوا ما عندي اي كتاب لكن في الاسفل بها روابط ممكن تستفيد منها https://support.office.com/ar-sa/article/الخاصية-تنسيق-نوع-البيانات-تاريخ-وقت-3251a423-3dd7-446e-be65-c7293eddbb43 وهنا ايضا https://support.office.com/ar-sa/article/تخصيص-تنسيقات-البيانات-في-Access-e48f2312-67f0-4921-aca0-15d36b7f9c3b

في الاستعلام ومصدر المربعات نصية نستخدم فاصلة منقوطة ( ; ) وفي محرر الفيجوال نستخدم الفاصلة عادية ( , )

شكرا لاستاذ رمهان على المشاركة وحل بطريقة اخرى لكن لكي نواصل الحل بطريقة الاولى تم تعديل الكود السابق الى On Error Resume Next Dim tDate As Date tDate = DMax("dat", "torderno") If tDate > Me.dat Then MsgBox "Êã ÊÛííÑ ÇáÊÇÑíÎ ÓíÛáÞ ÇáäÇÝÐÉ" DoCmd.Close acForm, "aaa", acSaveNo Exit Sub End If If DCount("ID", "TORDERNO") < 1 Or IsNull(DMax("daily_serial", "TORDERNO", "[dat]=#" & Format(Me.dat.Value, "mm/dd/yyyy") & "#")) = True Then If Me.dat > Date Then MsgBox "Êã ÊÛííÑ ÇáÊÇÑíÎ ÓíÛáÞ ÇáäÇÝÐÉ" DoCmd.Close acForm, "aaa", acSaveNo End If ' dat > date Me.daily_serial = 1 Me.orderno = Nz((DMax("[orderno]", "Torderno") + 1), 1) Else DoCmd.GoToRecord , , acNewRec Me.orderno = Nz((DMax("[orderno]", "Torderno") + 1), 1) Me.daily_serial = DMax("daily_serial", "TORDERNO", "[dat] =#" & Format(Me.dat.Value, "mm/dd/yyyy") & "#") + 1 End If ' DCount("ID", "TORDERNO") < 1 اي اضفت مع الشرط صيغة فورمات "[dat] =#" & Format(Me.dat.Value, "mm/dd/yyyy") & "#" جرب وغير التاريخ الى اي تاريخ تريد وشوف النتيجة وهذا الملف بعد تعديل Daily num.rar

استخدم هذا DCount("OrderID", "tblorders", "[OrderDate] =#" & Format(Me.OrderDate.Value, "mm/dd/yyyy") & "#")

شكرا كثيرا يا استاذنا عبدالفتاح وهناك تكدرون ان تنزلون القاعدة اللي عمل شرح عليه

اليك ما طلبت ما عملت انا هو في مصدر مربعات النصية كتبت المعادلات مثلا للجمع الذكور كتبت +Val(Nz([Text115]))+Val(Nz([Text117]))+Val(Nz([Text119]))+Val(Nz([Text121]))+Val(Nz([Text123]))+Val(Nz([Text125])) 1.rar

افتح module5 وفي اعلى الكود في اسفل الاسم الفونيكشن اكتب On Error Resume Next اي راح يصير هكذ Function DeleteAllFormsAndReportsss() On Error Resume Next لكن هناك ملاحظة : النموذج اللي بواسطتها تعمل العملية ما يحذف نفسه تحياتي

بصيغة اخر يعني ما تريد ان يكرر التاريخ في حقل orderdate هل هذا صحيح ؟

انت عملت كم من الاستعلامات وكم من التقارير بطريقتي الاعلى يكفي الاستعلام qry1 واعمل تقرير عليه تحياتي

اتفضل اولا كان عندك صور من نوع bmp والاخرى كان png و الاخر كان jpg انا حولت كلياتهم الى نو jpg القاعدة.rar

شوف هذا عمل مربعين نصيين واحد من الاخر الى وفي مصدر الاستعلام في نفس السطر الشرط بين تاريخين كتبت شرط العمر بين الرقمين 2-tesst (1).rar