ابو جودي

طيب بص دالة CEILING اولا هى دالة من دوال الاكسل وليس الاكسس ولكن ممكن تحقيقها برمجيا لتناسب الاكسس من خلال الاكواد والمرفق يوضح ذلك الشــــــــــــرح الوصف تُرجع رقماً تم تقريبه للأعلى، بعيداً عن الصفر، إلى أقرب مضاعف للوسيطة significance. على سبيل المثال، إذا كنت تريد تجنب استخدام السنت في الأسعار وكان سعر المنتج 4,42 ر.س.، فاستخدم الصيغة ‎=CEILING(4,42,0,05)‎ لتقريب السعر للأعلى إلى أقرب مبلغ صحيح. بناء الجملة CEILING(number, significance)‎ يحتوي بناء جملة الدالة CEILING على الوسيطتين التاليتين: Number مطلوبة. وهي القيمة التي تريد تقريبها. Significance مطلوبة. وهي المضاعف الذي تريد التقريب إليه. ملاحظات إذا كانت قيمة أي الوسيطتين غير رقمية، فستُرجع الدالة CEILING قيمة الخطأ ‎#VALUE!‎. يتم تقريب القيمة للأعلى عند تعديلها بعيداً عن الصفر، وذلك بغض النظر عن علامة الوسيطة number. أما إذا كانت number عبارة عن مضاعف صحيح للوسيطة significance، فلن يحدث أي تقريب. إذا كانت قيمة الوسيطتين number وsignificance سالبتين، فيتم تقريب القيمة للأدنى، بعيداً عن الصفر. إذا كانت قيمة number سالبة وكانت قيمة significance موجبة، فيتم تقريب القيمة للأعلى باتجاه الصفر. مثال انسخ البيانات النموذج في الجدول التالي، والصقها في الخلية A1 في ورقة عمل Excel جديدة. لعرض نتائج الصيغ، حدد هذه الأخيرة، ثم اضغط على F2، ثم اضغط على Enter. عند الحاجة، يمكنك ضبط عرض العمود لرؤية البيانات كافة. الصيغة الوصف ‎=CEILING(2.5, 1)‎ تقريب 2,5 للأعلى إلى أقرب مضاعف لـ 1 3 ‎=CEILING(-2.5, -2)‎ تقريب ‎-2,5 للأعلى إلى أقرب مضاعف لـ ‎-2 ‎-4 ‎=CEILING(-2.5, 2)‎ تقريب ‎-2.5 للأعلى إلى أقرب مضاعف لـ ‎-2 ‎-2 ‎=CEILING(1.5, 0.1)‎ تقريب 1,5 إلى أقرب مضاعف من لـ 0,1 1,5 ‎=CEILING(0.234, 0.01)‎ تقريب 0,234 إلى أقرب مضاعف من لـ 0,01 0,24 امثلة Ceiling(2.5, 1) equals 3 Ceiling(2.5) equals 3 Ceiling(-2.5, -2) equals -4 Ceiling(-2.5, 2) equals -2 Ceiling(1.5, 0.1) equals 1.5 Ceiling(0.234, 0.01) equals 0.24 وهذا المرفق الذي يخص تحقيقها بالاكسس برمجيا لانها غير موجودة بالاكسس Ceiling function.mdb وهذا المثال بالحلين الدالة round , الشرح السابق Asum.accdb وانظر هنا

بس الرقم الصحيح ده 2 مش 20

اتفضل فى الاستعلام DyCout: DateDiff("d",[AGAM1],[AGAM2]) وفى النماذج ان اردتها txtBoxName= DateDiff("d",[AGAM1],[AGAM2])

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

تأكد من المرفق

هات مثال وانا اجرب

استاذى الجليل ومعلمى القدير و والدى الحبيب الأستاذ @jjafferr السلام عليكم ورحمة الله وبركاته اولا المشاركة فى نفس السياق هل يمكن الاستكمال هنا ام افتح موضوع جديد يخصها حتى لا اصبح مخالفا من فضلك انا تعثرت فى تنفيذ تلك الطريقة من فضلك ان سمح وقتكم الثمين التعديل على المرفق المفروض يحدث الاتى 1- ترقيم يخص الصادر واخر يخص الوارد كل منهما منفصل يبدأ من الرقم 1 ويبدأ مع بداية العام الجديد مرة أخرى من 1 2- فى المرفق انا ظبط على اعتبار اننا نريد الصادر 3- شكل الترقيم ( نوع الخطاب مسلسل الخطاب/ العام الحالى ) مثلا سوف يكون >>-----> صادر 1/2020 صادر ثم 1 ثم / ثم 2020 حالوت ضبط ان الترقيم لا يتداخل على الشبكة ولكن لم استطع الضبط وصار يحدث اخطاء فى زيادة السجلات وتعارض الجهازين بتعديل احدهما على سدل الاخر العمل محصور فى الجدول tblBook و النموذج frmBook test.zip

ماشى عاوز تعمل ايه بقه فهمنى بالراحة انت عارف فهمى تقيل يس اما افهم تلاقينى فوريرة

جزاكم الله خيـرا با مولانا والله ما كنت اعرف انها تنفع اول مرع اجربها ... انت راجل سمح وده رزقك ساقه الله اليك الحمد لله الذى تتم بنعمته الصالحات

اه نسيت ويا استاذ محمد حمزه مش عاوز اشوفك تانى انت جيبت لى صداع

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

طيب اتفضل جرب يا مولانا BackUp V2.accdb

تم التعديل على الكود بصيد الخطأ فى حالة تم الحاق البيانات من قبل كما تم التعديل على الجدول TableBarcodeBrExh حتى لا يقبل التكرار On Error GoTo Err_CmdMove_Click If IsNull([FBarcod]) Then MsgBox (ChrW("1581") & ChrW("1602") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1575") & ChrW("1585") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1591") & ChrW("1604") & ChrW("1608") & ChrW("1576")) Me.FBarcod.SetFocus Else Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer Dim intQty As Integer Set db = CurrentDb Set rs = db.OpenRecordset("TableBarcodeBrExh") intQty = [Nom] For i = i To intQty rs.AddNew rs("ID") = Me![id] rs("itmCode") = Me![CodeItem] rs("NameItem") = Me![ItemNam] rs("NoBarcode") = Me![FBarcod] + i + 1 rs("Unets") = Me![Unet] rs("NoMat") = 1 rs("Praice") = Me![PrIce] rs("Qty") = 1 rs("Totals") = 1 rs.Update Next i rs.Close Me![Form_BarcodeBrExhSubform].Requery MsgBox "done" End If Exit_CmdMove_Click: Exit Sub Err_CmdMove_Click: If Err.Number = 3022 Then MsgBox (ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1575") & ChrW("1602") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1602") & ChrW("1576") & ChrW("1604")) Else MsgBox Err.Description Resume Exit_CmdMove_Click End If الحمد لله بس خلاص رقم الباركود - Update v1 .accdb

اتفضل الكود على زر الامر ترجيل On Error GoTo Err_CmdMove_Click If IsNull([FBarcod]) Then MsgBox (ChrW("1581") & ChrW("1602") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1575") & ChrW("1585") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1591") & ChrW("1604") & ChrW("1608") & ChrW("1576")) Me.FBarcod.SetFocus Else Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer Dim intQty As Integer Set db = CurrentDb Set rs = db.OpenRecordset("TableBarcodeBrExh") intQty = [Nom] For i = i To intQty rs.AddNew rs("ID") = Me![id] rs("itmCode") = Me![CodeItem] rs("NameItem") = Me![ItemNam] rs("NoBarcode") = Me![FBarcod] + i + 1 rs("Unets") = Me![Unet] rs("NoMat") = 1 rs("Praice") = Me![PrIce] rs("Qty") = 1 rs("Totals") = 1 rs.Update Next i rs.Close Me![Form_BarcodeBrExhSubform].Requery MsgBox "done" End If Exit_CmdMove_Click: Exit Sub Err_CmdMove_Click: MsgBox Err.Description Resume Exit_CmdMove_Click

اتفضل BackUp.accdb

ممكن مرفق للتجربة

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

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

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

خلينا نقطه نقطه 9203406 ده كود صنف اسم الصنف معجون طماطم الاقى فين اخر رقم باركود ليه اللى هنبدأ بيه الشغل ولو صنف جديد ماله باركود اصلا ازاى تبدأ

1- من رقم بار كود : انت ياللى بتكتبه ؟ 2- والعدد : انت ياللى بتكتبه ؟ عدد الكرتونه الواحدة ام عدد الزجاجات بداخلها 3- الكمية التى يحتوى عليها الوحدة : انت ياللى بتكتبه ؟ عدد الكرتونه الواحدة ام عدد الزجاجات بداخلها

طب بص بقه ياريت تصور البرنامج صورة صورة وتوضح انت بتبدأ شغل منين وتكتب على الصور المفروض ايه اللى يتم والنتيجة اللى انت عاوزها تكون ايه لان بجد يا اما انت بتهزر با اما مش فاهم وده الطبيعى بتاعى فهمى على اد حالى

هذا المرفق يحتوى على نموذج بدون مصدر بيانات وحقول غير منضمه ومن خلاله يتم الحاق البيانات بالجدول الشرح Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("اسم الجدول") rs.AddNew rs("اسم الحقل فى الجدول") = Me![اسم الكائن فى النموذج] rs.Update rs.Close 606969672_Unboundform.mdb

شوف كده رقم الباركود.accdb

لوحة مفاتيح OfficenaKeyboardUtility {V. 2 64 Bit}.mdb