kanory

حياك الله ... الحمد لله رب العالمين

أخي @alaa aboul-ela ربما هذا طلبك salary.accdb

أخي @جابر ناصر

وعليكم السلام ملفك أخي @حمدى الظابط بعد التعديل .... ارجو أن يكون هو مطلبك جدول الحصص (1).rar

أخي @أيمن عبادي أقصد بالاحداثيات هو تحديد المكان المطلوب نقل OPTION له ( أي داخل النموذج ) بما يشه شبكة التربيع في الرياضيات

Hأخي @انس المنصوري بالنسبة للشرح أولا : انشائنا استعلام ثم وضعنا شرط أن التواريخ المغروضة بين مربعي النص الموجودين في النموذح . وهذا هو الشرط ثانيا : جعلنا مصدر البيانات في النموذج هو الاستعلام بدلا من الجدول ثالثا : أدرجنا كود في حدث بعد التحديث في مربع النص رابعا : هذا هو الكود المدرج في مربع النص

اخي @انس المنصوري بالتوفيق .. التجربة مفتاح العلم ... البحث عند عودتي احاول فيه ... 👍

اخي @انس المنصوري بالنسبة للشرح عند عودتي للمنزل . ان شاء الله تعالى ... اما بشأن اختفاء البيانات عند فتح النموذج بسبب ارتباط النموذج بالاستعلام والاستعلام لايظهر البيانات الا بشرط وهو تحديد التاريخين من الى ...

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

@انس المنصوري جرب المثال الذي ارفقته لك ....

أخي الكريم @أيمن عبادي بالرغم من عدم فهي للموضوع لكن اقترح استخدام السحب والافلات أو نظام الاحداثيات .. وهذه الاخيرة قد توقع في مشكلة اختلاف دقة الشاشة ... والله أعلم ....... هذا على احتمال أني فهمت ما تريد ...

أخي @جابر ناصر تفضل ملفك ... أرجو أن يكون هو مطلبك ... Ka_جابر.rar

أخي الكريم @انس المنصوري مثالك بعد التعديل .....حاول اكتشاف ماهو التعديل لديك ... ,اعلمني بالتعديل للفائدة فقط Ka_الصندوق (1).accdb

سباق في الخيرا أخي @ابوخليل ههههه بارك في الجهود الحمد لله رب العالمين

Hتفضل أخي @عبد اللطيف سلوم ملفك ... ارجو اني وفقت Ka_mas.accdb

السلام عليكم ورحمة الله وبركاته أسمحوا لي بمشاركتم أخي @عبد اللطيف سلوم و أخي @ابو ياسين المشولي بهذا الكود If MsgBox("سيتم حذف السجل " & vbCrLf & _ "هل تريد المتابعة ؟؟", _ vbInformation + vbYesNo, _ "تحذير") = vbYes Then Dim strPWord As String strPWord = InputBox("فضلا ادخل الرقم السري", "الرقم السري") If strPWord = "123" Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings True End If Else Exit Sub End If

اخي @عبد اللطيف سلوم قيد التجربة ....... بارك الله فيك

أخي الكريم @انس المنصوري أولا : يجب تسمية النماذج والاستعلامات ومربعات النص وغيرها باللغة الانجليزية غير المسميات لكي نبدأ ..... بارك الله فيك

@انس المنصوري اصل البيت وابشر

@انس المنصوري اذن نبدأ من مثالك ... ونصيحة لك حاول التطبيق ولا تأخذ الامثلة جاهزة ...

@انس المنصوري

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

أخي @جابر ناصر تفضل ملفك ... أرجو أن يكون هو مطلبك ... Ka_جابر.accdb

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

أخي @انس المنصوري تفضل وجرب ابراج المدينة .... ملاحظة في بداية انشاء برامجك نصحة لك استخدم المسميات الانجليزية أو العربية كالتالي أبراج_المدينة .... بسبب أن المسميات العربية سواء في النماذج أوالاستعلامات أو حتى الكائنات الموجودة في النماذج ( تشكل عبئ في كتابة الاكواد ) Ka_mans.mdb