Shivan Rekany

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

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

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

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

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

اتفضل وان شاء الله غدا راح اشرح لك بالصور لان هسة خلاص وقتي assdr.rar

على عيني وعلى راسي يا استاذ جعفر شوف النموذج كان هكذ واللي انا عملت بس اضفت هذا الكود كتبت متغير باسم ئكس وقلت ئيكس بيكون يساوي عدد حقل جوب نامبر في جدول الوظائف المقترحة بشرط ان يكون الرقم في ذاك الحقل بيكون يساوي مع تيكست 39 لماذا كتبنا تيكست 39 ؟ لان اسم الحقل اللي كتنا فيه هو تيكست 39 كما في الصورة الاعلاه وبعدين كتبنا جملة ئيف الشرطية اي اذا ئيكس بيكون اكبر من الصفر بيظهر رسالة وبيقول "عفوا هذا الرقم موجود مسبقا" ويرجع اللي عملنا الى سابق وبعدين اشارة الماوس بيروح الى تيكست 46 وبعد يرجع الى تيكست 39 من جديد وغلقنا الجملة الشرطية ئيف واسف على الكل لاني زعيف في اللغة العربية مع تقدير

اخي الكريم انا جربت الكود الاعلاه مع اصدار 2007 وينطيك نتائج جيدة لذا ممكن ترفع المرفق لكي نتم العمليه عليه استخدم هذا الكود بدل الكود السابق حين يفتح النموذج البداية Application.CommandBars.DisableAskAQuestionDropdown = True

تستخدم اي اصدار اكسس ؟ انا عم استخدم اصدار 2010 وذاك الكود الاعلاه بيعمل القعدة هذا وشوف هذا الرابط لعل يفيدك والا ارفق ملفك للتعديل عليه

بدل اسم ribbon اكتب اسم الشريط اللي تريد

تكدر تستخدم هذا السطر من الكود فقط لاخفاء DoCmd.ShowToolbar "ribbon", acToolbarNo لاظهار DoCmd.ShowToolbar "ribbon", acToolbarYes

تكدر تستخدم هذا الكود On Error GoTo err DoCmd.SetWarnings (WARNINGOFF) If MsgBox("هل تريد حذف السجل المختارة", vbYesNo, "تنبيه") = vbYes Then DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord End If DoCmd.SetWarnings (WARNINGSON) err:

سامحوني على التدخل في الموضوع شوف هذا النوع من التصفية ان شاء الله ان ينال اعجابك شوف نموذج SHEET تصفية بواسطة كومبو بوكس.rar

شكرا لك يا استاذ محمد ايمن على مداخلك الجميل السلام عليكم ورحمة الله وبركاته اخي الكريم انا نزلت قاعدة بياناتك وكان بها نموذج رصيد رياضيات 1ع وفي ذاك النموذج بها هذه مربعات نصية وفي كود الاعلاه في مشاركتك الاولى كان طلبت ان حين يكون مربع نصي باسم H1 الى H10 .... اصلا في النموژج ما بها ژاك المربعات لژا راح ينگيك رساله‌ خطأ مع تقدير

على الرغم كام مشاركتك صار 100 مشاركه‌ وبعد ما ترفق الملف مع اسألتك لكي نتم العملية عليه وما نعرف بالضبط ما تريد هل تريد تمسح الحقول الجدول اللي بها الارقام كافة او تريد تمسح حقول اللي يظهر في النموذج حاليا اذا كان طلبك هو الاول اعمل استعلام تحديث للحقول المراد تمسح الباناته بلا شيء واذا كان طلبك هو الثاني اعمل زر وفي محرر فيجوال اكتب اسماء الحقول اللي تريد تمسح بياناته هكذ مثلا عدنا مربع نصي باسم TRS اكتب الكود هكذ ME.TRS = "" مع تحياتي

جرب لعل يفيدك افتح محرر فيجوال و افتح وحدة نمطية جديدة واكتب على الرأس Function sha() 'اكتب الكود اللي تريد End Function وفي حدث بعد التحديث اكتب call sha جرب ووافيني بالنتيجه‌

اهلا بك في منتدانا اخي الكريم شوف هذا الحل ان شاء الله هو المطلوب بيانات.rar

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

خذ الاستعلام بيعمل لك المطلوب ادخل البيانات اكثر وراح تشوف متابعة حسابات.zip

في محرر فيجوال قصدك بيخلي ذاك الكومبوبوكس خالي من البيانات

اتفضل db4 (1).zip

شوف نموذج دخول وعفوا لاني ما قدمت كالمطلوب جمعية خيرية 2007.rar

تکدر تستعمل كود سجل التالي في نهاية الاكواد حدث بعد تحديث docmd.gotorecord,,acnext والا ارفق جزء المطلوب تعديله مع تقدير

هل تبحث عن كود تغيير في سكرين ريسوليشن او تريد كود ماكسي مايز اللي بيفتح النموذج بكامل الشاشه‌

لا داعي للشكر اخوي ننتظرك