نجوم المشاركات

نعم ممكن ان شاء الله تفضل Random.accdb

تفضل ........ exam 1.mdb exam 2.mdb

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

المطلوب عمل كود لتغير ايقونة الانتظار في الويندز والتي هي عبارة عن دائرة سماوي اللون في ويندز 7 الي رسالة "جاري تفعيل الكود برجاء الانتظار " وشكرا لسيادتكم

لن انتظر ردك فقد عدلت حسب الفكرة تفضل dbx2.mdb

السلام عليكم ورحمة الله إن كنت قد فهمت المطلوب جيدا، جرب الملف المرفق لعل فيه ما تريد. بن علية حاجي مثال (2).xlsx

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

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

تفضل تم بعض التصرف حيث تم تغيير مسى الجدول والفورم كلمة sub محجوزة في اكسس dbx1.mdb

شكرا استاذنا kanory على الاجابة لقد تم تجربة الكود وكان اكثر من المطلوب شكرا

لم افهم اجابتك هل هي موافقة ؟ : الازرار في النموذج الرئيس وتتم على النموذج الفرعي ؟

السلام عليكم هذا نموذج فاتورة باللغة الفرنسية يمكن تعديلها حسب الحاجة( منقول للأمانة ) قمت بإزالة حماية VB فعند ظهور علبة الحوار اضغط OK دون كتابة شيء أرجو إفادة الجميع ____________1.rar

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

جزيت خيرا هو المطلوب

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

وعليكم السلام لك ما طلبت تحول التاريخ الى نص.xlsm

شكرا استاذ @ابو عارف هذا المطلوب اذا كان ممكن عندي سؤال اخر: هل ممكن وقف تحديث عند فتح فورم بمعنى اخر تحديث فقط بزر؟

و عليكم السلام تفضل اليك التعديل Random.accdb

بعد اذن اخي محمد ابو عبد الله في المربع في الصورة ضع المسار التالي .\iconName.ico على ان تكون الصورة موجودة جانب قاعدة البيانات بحيث ان iconName هو اسم الايقونة

وعليكم السلام ارفع مثال لكي تسهل مساعدتك

تفضل اخي jassim.accdb ويجب ان يكون تنسيق ملف الاكسل 2010 كما في المرفق بالضبط primary.xlsx

السلام عليكم ورحمة الله وبركاته صديقي العزيز أستخدم أكسيس 2010 . وترجمتك لمسميات الأعمدة بالجدول مضبوطة وصحيحة وجزاك الله خيرا على سعيك في مساعدتي بارك الله فيك

غير نوع الخط الكتابة لكتابة الاكواد اي فتح محرر الاكواد واضغط كليك يسار على Tools بعدين اختر اختيار الثالث Options بعدين سيظهر لك نافذة اختر editor format بعدين من كومبوبوكس fonts اختر مثلا فونت Sakkal Majalla (Arabic)

شكرا اخى العزيز لمرورك الكريم اريد عمل باسوورد من محرر الاكواد بحيث يغلق الاكواد

افضل طريقة لحماية الاكواد هي تحويل الملف الى mde في نسخة 2003 وتحويل الملف الى accde بدءاً من نسخة 2007 فاعلى تحياتي

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

الساده / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته اليكم نموذج عملى _(بالمرفقات)_مع الشرح عن كيف يتم الإستغناء عن صفوف خاليه أثناء الطباعه والنموذج المرفق على فاتورة يمكنكم تطبيقها على أى أمر آخر واليكم الشرح : 1 - يجب معرفة العمود والصف الذى ستبدأ به تدوين البيانات داخل الفاتورة ولنفترض حسب الملف المرفق أنه عمود b صف 8 ( أى الخلية b8) . 2 - يجب معرفة آخر صف يتم تدوين البيانات فيه والخاص بالفاتورة وحسب الملف المرفق هو ( b38) . 3 - نذهب لتعريف اسم الداله كما ذكرتم لكم سابقا 4 - تقوم بالضغط على زر جديد بالنافذة التى ستظهر أمامك 5 - تظهر لك نافذة جديدة تقوم بتعريف الأسم الخاص بالدالة والذى سيرفق بالكود لاحظ ذلك جيدا تشابه الأحرف بشكل تام ويفضل تعريفها باللغة الإنجليزية 6 - تقوم بإختيار النطاق ( مصنف ) من داخل النافذة ايضا الأخيرة 7 - تقوم بكتابة المعادلة ( طبقا للملف المرفق ) هى SUMPRODUCT((sheet2!$B$8:$B$38 <> "") * (sheet2!$B$8:$B$38 <> " "))+8 = 8 - تقوم بالذهاب إلى محرر الأكواد ALT+F11 9 - تقوم بإضافة موديول جديد ( من ادراج تختار موديول ) 10 - تقوم بنسخ ولصق الكود Sub Printing() Rows([Row] & ":38").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("8:38").EntireRow.Hidden = False End Sub شرح مبسط للكود قراءة الصفوف من نطاق الاسم الذى قمنا بتعريفه من خلال الداله السابقة الذكر ولاحظ تطابق كلمتين ( ROW) اى صف به بيانات داخل هذا النطاق المعرف من قبل الداله به بيانات احتفظ به واى صف ليس به بيانات قم بإخفائه ثم قم بتفعيل نافذة المعاينه قبل الطباعه وفى حاله تمت الطباعه والحمد لله كما نريد ( قم بإظهار الصفوف المخفية ) 11 - تذهب الى صفحة الفاتورة 12 - تقوم بإدراج أى شكل تختاره وتكتب عليه طباعه 13 - تقوم بالضغط عليه كليك يمين 14 - تختار تعيين ماكرو 15 - تظهر لك نافذة 16 - أختر منها طباعه 17 - ثم موافق تم بحمد الله الشرح والله المستعان وتقبلوا منى وافر الإحترام والتقدير m_elshrief_print.rar

ايضا هذا ملف اخر يحوي الارقام مرة دائرة مفرغة ومرة اخرى سوداء ومعها الخطوط تحاتي للجميع الارقام في دائرة.rar