ابو جودي

اتفضل يا دكتور محمد @حلبي علشان بس انت حبيبى عملت لك كود ضغنون ومحندق كده يتحط فى موديول عام وتستطيع استخدامه من نموذج بقه او من استعلام زى ما تحب فكما تعلمت من استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل تستطيع استخدامه فى كل زوايا التطبيق Public Function DelDataAllTbl() Dim T As TableDef DoCmd.SetWarnings False For Each T In CurrentDb.TableDefs If Not Left(T.Name, 4) = "MSys" Then DoCmd.RunSQL "DELETE * FROM [" & T.Name & "]" End If Next T DoCmd.SetWarnings True End Function تستدعيه بالطريقة دى . بس ما تنادى بصوت عالى وانت تستدعيه .... العالم بالمنتدى يحبون السكون فلا تحدث ضجيجا والا DelDataAllTbl()

ليه بس كده امساك البيانت بمعروف يا دكتور او تغور البيانات اللى زعلتك دى فى ستين داهية المهم انت ما تزعلش نفسك

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

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

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

المرفق قديم ولكن 882034828_.zip

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

طيب بص دالة 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 (2).mdb

PPPP (3).accdb

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

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

لم يكن هناك اخطاء ولكن تم استدعاء دوال API بطريقة تخص نظام 32 فقط لانه تقريبا انذاك الوقت لم يكون هناك نظام 64 تحياتى لك

ممكن رابط الفيديو لو تكرمت

طيب ممكن تجرب وتوافينا بالنتيجة NA_PasswordMaskedInputbox 64 Bit.mdb

فصلا وكرما وليس امرا ضع الحل ليكون افادة للجميع

هات مرفق

طيب ما انت ياللى لم تضف مرفق ولم تصغ السؤال كما ينبغى ياريت تضع المرفق وتشرح طريقتك كى اتعلم منك

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

يرجى فك الضغط فى القطاع D تم صبط كود الترقيم كالية ولكن لا اعلم سبب التكرار على الشبكة test.zip

New Microsoft Access 11111.mdb

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