شايب

مع ان الاخ العزيز شايب فهمه على قده ولكن محاولة بسيطة بداية ممكن عمل استعلام الحاق وممكن العمل مباشرة مع مصدر السجلات وهنا الاخ شايب عمل مع مصدر السجلات Dim rs As Recordset Dim rst As Recordset Dim a As Integer Set rs = CurrentDb.OpenRecordset("stages") Set rst = CurrentDb.OpenRecordset("StageBundleUPC") rs.MoveFirst For a = 0 To rs.RecordCount - 1 If rs!AddStage = True Then rst.AddNew rst!CutColor = Me.txtco rst!CutYSGPO = Me.txtysgpo rst!CutTotal = Me.txtct rst!CutNumber = Me.txtcn rst!CutStyle = Me.CutStyle rst!CutStages = rs!Stages rst.Update End If rs.MoveNext Next a rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing Me.Child15.Requery الملف مرفق الشايب Sample.accdb

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

مشاركة مع استاذنا @ابوخليل الحاق او اضافة البيانات بدون استعلام عن طريق مصدر السجلات Dim rs As Recordset Dim rst As Recordset Dim db As Database Dim a As Integer Dim fld As DAO.Field Set rs = CurrentDb.OpenRecordset("adafh_tl8a2yh") Set rst = CurrentDb.OpenRecordset("tbltexts") rs.MoveFirst For a = 0 To rs.RecordCount - 1 If rs!adafh_tl8a2yh = True Then rst.AddNew For Each fld In rs.Fields rst.Fields(fld.Name) = fld.Value rst!kod_alad5al_tblTexts = Me.كود_العميل Next fld rst.Update End If rs.MoveNext Next a rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing Me.نموذج_فرعي_الفواتير.Requery الملف مرفق اخونا شايب إضافة اصناف.accdb

اجعل مصدر التقرير استعلام ثم افتح الاستعلام في عرض التصميم ثم الاجماليات وفي حقل تاريخ الاستلام غير تجميع حسب الى max او ضع مرفق ليقوم احد الزملاء بمساعدتك الشايب

من وجهة نظر اخونا العزيز شايب انه لا داعي لاضافة جدول tbl_ALMOSTABADIN بل يكفي حقل واحد في الجدول الرئيسي وله قيمتان مستمر ومستبعد او نعم لا ونتحكم فيما نريد عن طريق الاستعلام اخيرا من يتخذ قرار الاستبعاد ومن يتخذ قرار الاعادة وهل يحتاج الاستبعاد او الاعادة الى توثيق ام مجرد توجيه شفهي . و لا داعي للاجابة مجرد تفكير بصوت مرتفع اخونا الشايب

امين ولك مثل ذلك

جرب المرفق فتح التقرير.accdb

👍 و هنا يبرز الفرق بين الخبراء والاساتذة وبين المبتدئين امثال الاخ العزيز شايب الذي يحاول ان ينهل من علم اساتذنا الافاضل

لابد ان نعرف ان هناك الحاق بيانات من جدول الى جدول اخر في نفس او في قاعدة اخرى لكافة الحقول كما في مشاركتي الخاصة باستعلام الالحاق او لحقول محددة وهناك ايضا تصدير او استيراد كائن من قاعدة بيانات لقاعدة اخرى والكائن ممكن ان يكون جدول او استعلام او نموذج او تقرير وهكذا اعتقد ان الاخ الفاضل شايب سبق ان اجاب على استفسار مماثل ووضع مثال لتصدير جدول او اكثر بامر واحد وكذلك مشاركة مميزة للاستاذ @ابو جودي لتصدير عدة كائنات هنا المشاركة السابقة مع الاعتذار من صاحب المشاركة الاستاذ @elmozy525 الافضل ان تضع مشاركة جديدة لعلك تجد مبتغاك اخونا الشايب

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

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

الاخ شايب يعتقد ان الاصدارات مابعد 2007 اذا كانت القاعدة بصيغة accde ووضعت كلمة مرور لايمكن كسرها والحقيقة ان هناك من يستخدم طريقة فتح قاعدة البيات المشفرة باستخدام قاعدة اخرى او ملف تنفيذي او دفعي يحتوي على كلمة المرور وذلك زيادة في الحماية وليس كسر الحماية ومع ذلك فوق كل ذي علم عليم شايب

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

جرب المرفق باستخدام استعلامين الاول للمتطابقات والاخر استعلام عادي يحتوي على استعلام فرعي لاستبعاد اول سجل من كل سجل مكرر جملة الاستعلام للمتطابقات SELECT t1.الاسم, t1.الاب, t1.الجد, t1.[اسم الام], t1.[اب الام], First(t1.التسلسل) AS Firstمنالتسلسل FROM t1 GROUP BY t1.الاسم, t1.الاب, t1.الجد, t1.[اسم الام], t1.[اب الام] HAVING (((t1.الاسم) In (SELECT [الاسم] FROM [t1] As Tmp GROUP BY [الاسم],[الاب],[الجد],[اسم الام],[اب الام] HAVING Count(*)>1 And [الاب] = [t1].[الاب] And [الجد] = [t1].[الجد] And [اسم الام] = [t1].[اسم الام] And [اب الام] = [t1].[اب الام]))) ORDER BY t1.الاسم, t1.الاب, t1.الجد, t1.[اسم الام], t1.[اب الام]; و للاستعلام الثاني مصدر النموذج SELECT t1.التسلسل, t1.الاسم, t1.الاب, t1.الجد, t1.[اسم الام], t1.[اب الام] FROM t1 WHERE (((t1.التسلسل) Not In (SELECT q_1.Firstمنالتسلسل FROM q_1;))); ربما توجد طرق اسهل ولكن الاخ الفاضل شايب غير متخصص الملف مرفق test(١).accdb

نعم للمبرمج ولكن المقصود من ردي السابق ان هناك العديد من الاوامر ممكن عملها بمعالجات الاكسس وبدون الحاجة الى كتابة اكواد vba لا .. ربما تشابهت عليك الامور استاذ @Eng.Qassim اجابك استاذنا الفاضل ابو خليل في حالتنا استخدمنا النجمة لكون الجدولين متشابهين تماما اما في حالة اختلاف الجداول فلابد من تحديد اسماء الحقول عند اعداد الاستعلام للحقول المطلوب الحاقها ولابد ايضا ان تكون الحقول من نفس النوع اخونا الشايب

نعم ممكن للاستيراد DoCmd.TransferDatabase acImport, "Microsoft Access", "d:\test2.accdb", acTable, "data", "test", False data اسم الجدول المطلوب استيراده test اسم الجدول بعد الاستيراد للتصدير DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\test2.accdb", acTable, "test", "test55", False وومكن في مثل حالة اخينا صاحب الموضوع طالما الجدولين مثماثلين عمل استعلام الحاق من القاعدة القديمة الى الجديدة وعبارة الاستعلام INSERT INTO test IN 'D:\abdoo.accdb' SELECT data.* FROM data; وفي جميع الاحوال الافضل اخيرا الاكسس يقوم بالعديد من المهام بدون الحاجة الى كتابة اكواد ومنها الاستيراد والتصدير للبيانات اخونا الفاضل شايب

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

لا لا بل يحسب بشكل صحيح لكن هل جعلت ستجد ان الترقيم صحيح الملف مرفق invoice1.accdb

فكرة اخرى لو جعلت حقل الترقيم في جدول تفاصيل الفاتورة ويبدأ العد في حدث بعد التحديث للحقل ItemCode فلن تظهر كلمة Error ونكتفي بـ Me.txtNewNumber = Nz(DCount("ItemCode", "SalesOrderDetailsT", "SaleID=" & [saleID] & "AND SaleOrder <" & [SaleOrder]), 0) + 1 ونستغني عن الكود الموجود في حدث الحالي للنموذج الفرعي ولكن لو حرف امتناع لامتناع اخونا الشايب

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

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

مشاركة مع الاستاذ سامي المتألق دائما باستخدام dcount بشرطي رقم العامل وتاريخ المخالفة Dim x As Integer x = DCount("*", "المخالفات", " [رقم_العامل]=" & [رقم_العامل] & "and [تاريخ_المخالفة] =" & Format([تاريخ_المخالفة], "\#mm\/dd\/yyyy\#")) If x > 0 Then MsgBox "عدد المخالفات = " & x Else End If للحصول على رسالة بالعدد انقر مزدوج على حقل المعرف وممكن الاستغناء عن الرسالة عن طريق حقل نصي الملف مرفق باستخدام الطريقتين الرسالة والحقل اخونا الشايب Database2.accdb

جرب في حدث الحالي للنموذج Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = 109 Then If ctl.Value = "الكلمة" Then ctl.Locked = True Else ctl.Locked = False End If End If Next ctl ممكن تعديل السطر الثالث عن طريق استخدام خاصية التاج اذا اردنا استثناء حقول معينة اخونا شايب

لا مشكلة في حدث قبل التحديث للكمبو0 نضع الامر If Application.CurrentProject.AllReports("sos").IsLoaded = True Then DoCmd.Close ObjectType:=acReport, ObjectName:="sos", Save:=acSavePrompt Else End If الملف مرفق اخونا الشايب Database110(1).accdb

وعليكم السلام بداية اجريت بعض التغيير على القوائم بحيث عند فتح قائمة الدول تكون القائمة الثانية باسماء المسجلين للدولة المختار ثم وضع الشرط لفتح التقرير بمعيارين الملف مرفق Database110.accdb