شايب

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

علما بان اخينا الفاضل شايب سبق ان اشار الى موضوع مشابه في هذة المشاركة ⬇️ الشايب

السلام عليكم اخونا الكبير شايب يعتقد ان طريقة جعفر للعمل على النواتين طريقة شاملة ولكن في مثل هذه الحالة التي واجهت الاستاذ سلوم بعد اضافة Ptrsafe فقط يكفي ان نقوم بتغير اي متغير رقمي من long الى LongLong او الى LongPtr وسوف يعمل البرنامج ويختصر عدة اسطر من الكود اخير LongPtr ليس نوع بيانات حقيقي وانما يتوافق مع الاصدرين 32 و 64 بحيث يتحول الى long مع 32 و longlong مع 64 ايضاح اخير يمكن تقيد فتح النموذج الاخير بحيث لا يمكن فتحه الا من خلال زر الامر بعد كتابة الرمز الصحيح ولكن نكتفي بهذه المشاركة اخونا الشايب رقم سري.accdb

نعم بدون اي تدخل او تحريك

الدقة 3840 * 2160

كل عام وانتم بخير اخي واستاذي د.محمد

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

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

ربما اخذ الموضوع اكبر مما يستحق ولكن "" لا تعني ان الحقل فارع وانما يحتوي سلسلة ذات طول صفري ولتاكيد ذلك نغير خصائص الحقل الى السماح بطول صفري = لا عندها لو اردنا استخدام ⬇️ فسوف نحصل على رسالة خطأ في "" وكذلك empty اما الخيار الاوسط null فسوف يعمل اخونا الشايب

🙏

صحيح يعطي نتيجة صحيحة ولكن احيانا نرغب في عد الاحرف بدون استخدام الشرط لذا ⬇️ اخونا الشايب

يا هلا استاذ قاسم وكل عام وانتم بخير وسوف احمل المرفق يا هلا استاذنا وكل عام وانتم بخير الحقيقة ان الاولى يعدها اكسس 0 اما البقية فلا يعدها اكسس ونحتاج عند عد احرف الحقل الى استخدام nz حتى لا نحصل على رسالة خطأ الحقيقة ان ⬇️ مجرد تفكير بصوت مرتفع ومع ذلك اعتز بمداخلتكما اخونا الشايب

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

طالما الامر كذلك

الان قمت بتجربة الطريقة على قاعدة تحتوي 11700 سجل ومبنية بشكل متوافق مع متطلبات بناء قواعد البانات ولم اواجة اي مشكله

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

بدون الحاجة لاكواد غير مصدر البيانات للتقرير الرئيسي الى استعلام يساوي SELECT معلومات_1.[اسم الاب], معلومات_1.[رقم الهاتف], معلومات_1.العنوان FROM معلومات, معلومات AS معلومات_1 INNER JOIN الابناء ON معلومات_1.[اسم الاب] = الابناء.[اسم الاب] GROUP BY معلومات_1.[اسم الاب], معلومات_1.[رقم الهاتف], معلومات_1.العنوان; الملف مرفق 1(2).accdb

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

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

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

مشاركة مع الاساتذة ممكن نستخدم دالة العد Dim x As Integer x = DCount("*", "tbl_items", "[EmpID]=" & Me.y1.Column(1)) If x = 0 Then MsgBox "التقرير الفرعي لا يوجد به بيانات" Cancel = -1 Else DoCmd.OpenReport "Main_Report", acViewPreview End If اخونا الشايب

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

مع ان الموضوع قديم وتمت الاجابة بشكل موفق مع ذلك في بعض الحالات لا نرغب في زيادة كائنات القاعدة باضافة استعلام توحيد واستعلام انشاء جدول كما فعل الاستاذ خليفة ونرغب في عمل ذلك بالكود عن طريق مصدر السجلات الكود المقترح في زر امر Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim a As Integer Dim fld As DAO.Field Dim strSQL As String strSQL = "SELECT Data1.* from data1 Union SELECT Data2.* from data2 UNION SELECT Data3.* from data3;" Set rs = CurrentDb.OpenRecordset(strSQL) Set rst = CurrentDb.OpenRecordset("data") rs.MoveFirst For a = 0 To rs.RecordCount - 1 rst.AddNew For Each fld In rs.Fields If fld.Name <> "م" Then rst.Fields(fld.Name) = fld.Value End If Next fld rst.Update rs.MoveNext Next a rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing اخونا الشايب

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