شايب

نعم استاذي اتفق معك ولكن الامر يتطلب بعض التعديلات والاحتياطات وخصوصا اننا لم نطلع على مرفق التعديلات كما اشرت في حالة وجود مفتاح معرف مسبقا وايضا ان كان مرتبط بعلاقة مثلا اذا كان لدينا مفتاح اساس باسم 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 اخونا الشايب

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

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

مشاركة مع الاستاذ ابو خليل الفكرة ان نستغني عن تكرار الامر بعدد الازرار وبدون الحاجة لكتابة اسم زر الامر عن طريق عمل اجراء نعلى النحو التالي Sub x() LabelNameText = ActiveControl.ControlTipText End Sub ثم في زر الامر نشير لاسم الاجراء فقط x الملف مرفق اخونا الشايب LabelName.accdb

الف مبروك للاستاذ محمد

طريقة اخرى مختصرة باستخدام دالة العد الشايب Database1.accdb

في معيار الاستعلام لحقل القسم استبدل المعيار من [Forms]![a_f_date]![القسم] الى المعيار التالي IIf(Len([Forms]![a_f_date]![القسم] & "")=0;[القسم];[Forms]![a_f_date]![القسم]) الملف مرفق اخونا الشايب frzz.accdb

👀

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

مشاركة بسيطة كثير من المستخدمين لا يحبذوا استخدام قناع الادخال وكذلك اخونا الفاضل شايب يتجنب ذلك لذا ممكن وضع الامر التالي في حدث بعد التحديث للحقل المطلوب او اي حدث زر حفظ او ... If (Not IsNumeric([الحقل]) Or Len([الحقل]) <> 12) Then MsgBox "هذا الحقل يقبل ارقام بعدد 12 رقم" Me.Undo End If وهنا نضع شرط اذا كان الادخال ليس ارقام او ان عدد الارقام لا يساوي 12 اخرج الرسالة الشايب لم انتبه الى تاريخ المشاركة اعتذر من الجميع

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

امين لنا ولكم اخي يونس والله يقضي بهبات وافرة .. لي ولكم في درجات الآخرة الاخ الشايب

اجعل الترقيم في حدث بعد التحديث لحقل الاسم وليس القيمة الافتراضية للحقل ترقيم يومي.accdb

غير سلوك مفتاح الادخال الى افتراضي

بارك الله فيك استاذنا الفاضل وقد أسفر الصبح لذي عينين

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

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

نعم احسنت وغلطة الشايب بعشرة 🌹

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

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