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

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

جرب هذا فقد يكون لما تريد DoCmd.OpenForm "EmpData", , , , acFormAdd وهذا DoCmd.OpenForm "EmpData" DoCmd.GoToRecord , , acNewRec وهذا DoCmd.OpenForm "EmpData" , , , "[id] = 0" تحياتي

منور استاذ يوسف قبل ان ادلو بما يفتح الله علينا اعتقد ان هناك حاجة لوضع المعادلة اولا او القاعدة الصحيحية ففي مشاركة الاستاذ ابا خليل نتيجة المراجعة في اليوم الثالث هي 5 ولديك استاذ يوسف 6 وعودة لمشاركة الاستاذ ابا خليل حيث الناتج لليوم السادس هو 21 اعتقد هنا ان الناتج 20 لانه كالتالي وحسب فهمي اليوم 1 >> 1 2>> 2 وهنا حسب فهمي راجع وجه جديد مع حصيلة امس وجه واحد 3>>5 اليوم 4>> اربع اوجه + اجمالي السابق وهي 5 = 9 اليوم 5 >> خمس اوجه + 9 = 14 اليوم 6 >> 6 +14 = 20 اليوم السابع >> 7 + 20 = 27 هذا والله اعلم

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

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه فورم شاشة دخول_صلاحيات_PASS WORD نظام حماية لملف الاكسل والدخول للصفحات_ _ أ / رحمه الله _ عماد الحسامى صفحة دخول ديناميكية للمستخدمين - باسلوب جديد وسهل_ _ أ / رحمه الله _ عماد الحسامى هديتي لكم .... برنامج دخول المستخدمين مع صلاحية دخول للصفحات_ _ أ / رحمه الله _ عماد الحسامى بالكود _ اظهار و اخفاء الشيت _ أ / رحمه الله _ عماد الحسامى كيفية تكبير ال userform بعد ظهوره والتحكم بمقاساته _ _ أ / رحمه الله _ عماد الحسامى عمل فورم شفاف وملأ الشاشة وبدون إطار..... _ _ أ / رحمه الله _ عماد الحسامى كود حماية خلايا من التعديل _ _ أ / رحمه الله _ عماد الحسامى كود اخفاء ازرار _ بكلمة سر _ أ / رحمه الله _ عماد الحسامى واجهه جاهزه_شاشة دخول بكلمة سر _ أ / رحمه الله _ عماد الحسامى كود بزر امر اظهار و اخفاء المعادلات _ أ / رحمه الله _ عماد الحسامى و مشاركات الاعضاء كود لاخفاء المعادلات _ أ / رحمه الله _ عماد الحسامى _مشاركات الاعضاء كلمة السر لدخول الصفحات _ أ / عماد الحسامى و مشاركات الاعضاء حمايه الصفوف ارتباطاَ بالتاريخ _ أ / عماد الحسامى عناوين متحركة _ أ / عبدالله باقشير موضوع مميز_اكواد متنوعه لاخفاء المعادلات دون حماية ورقه مشاركات الاعضاء حماية خلايا او نطاق من التعديل مشاركات الاعضاء برنامج صلاحيات المستخدمين الاصدار _3 أ / إبراهيم محمد برنامج صلاحيات المستخدمين - بشكل جديد_ أ / إبراهيم محمد برنامج ادارة صلاحيات المستخدمين - ضاحي وشوقي _ أ / ضاحى الغريب _ شوقى ربيع شاشة دخول برقم سري مع (( ProgressBar Control ))_ أ / ضاحى الغريب فكرة لـ (( ProgressBar Control ))_ أ / ضاحى الغريب قالب فورم ملكي مع تاريخ هجري وميلادي _ أ / ضاحى الغريب هدية العام الجديد لكل اخواني ومعلميني واعضاء منتدانا_ أ / ضاحى الغريب شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup (شوقي ربيع) _أ / شوقى ربيع حركة جديدة (تجليد الفورم) بابسط الطرق مع اداة Active Skin _أ / شوقى ربيع تشفير كل انواع الملفات _ أ / ياسر العربى فك حماية محرر الاكواد وحماية اوراق العمل _ أ / ياسر العربى فك حماية ملف الاكسيل من الخارج _ أ / ياسر العربى لعمل نهاية لصلاحية الملف وعدم فتحه الا بكلمة مرور _ أ / ياسر العربى أفضل حماية للاكسيل تفوق التحويل الى ملفات تنفيذية 100مرة _ أ / ياسر العربى اختبار مدى حماية الملف التنفيذي للفيجوال6 مع الاكسيل _ أ / ياسر العربى اعمل شاشة دخول برنامجك بنفسك وسيبك من التقليد _ أ / ياسر العربى شرح عمل صلاحيات للدخول على شيتات داخل ملف الاكسيل _ أ / ياسر العربى فك حماية محرر الاكواد Xlsm _ أ / ياسر العربى تشفير وفك تشفير البيانات Encrypt And Decrypt Function _ أ / ياسر خليل أبو البراء كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) _ أ / ياسر خليل أبو البراء حماية محرر الأكواد من فك الحماية حتى لو عرف الهاكر كلمة السر _ أ / ياسر خليل أبو البراء كسر حماية أوراق العمل (القنبلة الجديدة) _ أ / ياسر خليل أبو البراء كود تحديد نطاق العمل لشيت اكسيل _ أ / ياسر خليل أبو البراء واجهة برنامج ... بطريقة غير تقليدية ..._أ / عبد البارى البنا ملف به (شاشة دخول بسيطه) ومنها الى شاشة صلاحيات متطوره_ أ / احمد حمور-ابوعبدالله (ملف جاهز) شاشة دخول بوظائف عديده وبصلاحيات لكل مستخدم_ أ / احمد حمور-ابوعبدالله شاشة دخول متعددة الوظائف_ الاستاذ / احمد حمور-ابوعبدالله فورم ادخال بسيط بشكل متناسق وشاشة دخول _ أ / وائل احمد المصري حماية نطاق دون حماية الورقة مع إمكانيات أخرى كتعديل كلمة الحماية والنطاق _ أ / أبوعبد الله _ اكسلجى (موضوع مميز) منع فتح الملف إذا غيرت إسمه أو نقلته من موقعه لآخر ومنع حفظه بإسم جديد _ أ / أبوعبد الله _ اكسلجى (موضوع مميز ) فتح الملف بعد انتهاء تاريخ صلاحية الفتح بك� _ أ / أبوعبد الله _ اكسلجى كود_تفعيل خاصية حذف وإخفاء الأوراق _ أ / أبوعبد الله _ اكسلجى كود فك و حماية خلية بها بيانات _ أ / أبوعبد الله _ اكسلجى بالكود_فك و حماية لجميع اوراق العمل _ أ / أبوعبد الله _ اكسلجى كود لتمييز الخلايا المحمية بتلوينها وإلغاء التلوين بمفتاح واحد _ أ / أبوعبد الله _ اكسلجى بالكود_حماية و فك حماية ورقة عمل او عمود او نطاق_عن طريق Check Box _ أ / أبوعبد الله _ اكسلجى _ _ أ / هشام شلبى طريقه فتح الفورم على طريقع فتح الباب يا سمسم - الصقر _ أ / الصـقر مؤثرات حركيه لفتح الفورم مع الحمايه - طريق الشباك - الصقر _ أ / الصـقر تزيين الفورم عند الفتح والاغلاق بمؤثرات حركيه _ أ / الصـقر كيفية إستثناء بعض الخلايا من الحماية _ أ / محمد طاهر التحكم فى مستوي أمان الماكروهات _ أ / محمد طاهر برنامج فك الحماية passware-kit-enterprise _ مشاركة أ / محمد ابو صهيب فك حماية شيتات ملفات الإكسل_ أ / قنديل الصياد طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة_ أ / حمادة عمر قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة _ أ / حمادة عمر عمل باسورد لشيت بداخل ملف الاكسيل _ أ / حمادة عمر كود وإضافة لفك حماية أوراق العمل في ملف إكسل Sheet Password Remover _ أ / على الشيخ حماية ملف اكسل من داخل الملف + صلاحيات لكل مستخدم + سجل لأسماء و مواعيد الدخول للملف_ أ / احمد زمان حمايه خلايا مع اخفاء المعادلات بدون حماية الورقه _ أ / احمد فضيله و مشاركات الاعضاء شرح برنامج فك باسورد_ أ / أبو محمد أشرف باسورد بتاريخ محدد_مشاركة_ بدأه أ / ابو اياد ( الاسيوطى ) فورم دخول باسم مستخدم وكلمة مرور وفورم خروج بثلاث خيارات _ بدأه أ / ابو محمد العباس مجرد فكرة ... فورم دخول و حفظ كلمات المرور في رجستري الوندوز _ أ / محمد يحياوى نموذج دخول بصلاحيات الاطلاع على أوراق العمل_ أ / عبدالله المجرب الفورم يملأ الشاشة _ أ / أبو حنين هل أنجزت برنامجا و تريد وضع بصمتك عليه ؟ تفضل فورم جاهز _ أ / أبو حنين ظهور مميز للفورم _ أ / أبو حنين شاشة دخول مع صلاحيات _ أ / khaled_1960 حماية / عدم حماية أوراق العمل بأى عدد من الملفات داخل مجلد _ أ / مختار حسين محمود تنشيط شاشة الحماية أو Activate the scrensaver _ أ / مختار حسين محمود إغلاق آلى لملف اكسل إذا ترك بدون استخدام _ أ / مختار حسين محمود تشغيل ماكرو بكلمة سر أو Enter Password to run a Macro _ أ / مختار حسين محمود حماية اوراق محددة الاسماء ولكل منها باسوورد مختلف _ أ / أبو تامر_عمر الحسينى تعديل كود حماية ورقة ليعمل مع عدة اوراق محددة الاسماء _ أ / أبو تامر_عمر الحسينى شرح استخدام البروجرز بار _ Progress indicator _ أ / أبو تامر_عمر الحسينى موضوع مميز_حماية ملفات عن طريق تشفير الملف _ أ / عمر الحسينى ****أبو تامر فورم (شريط تقدم تثبيت البيانات) جامع للمرونة والسهولة _ أ / أنس دروبي حماية الملف باخذ نسخة مما يحدد و ارجاعها مرة اخرى _ أ / عادل حنفي كود لاخفاء المعادلات _ أ / عادل حنفي فك حماية شيتات ملفات الإكسل بجمع إصداراتها وامتداداتها _ أ / محمد صالح ضع كلمة مرور لاوراق العمل إخفاء وحماية _ أ / Ahmed Emannan فورم اسم مستخدم وكلمة باسوورد _ أ / Ahmed Emannan إلغاء أى حماية لشيت إكسيل بخطوة واحدة م / ياسر فتحى البنا النموذج المتلاشي _ أ // زياد علي شريط متحرك لآخر عملية تتم _ أ / الزباري حماية الشيت بفورم دخول _ أ / الزباري فورم به شريط متحرك _ أ / محمد السيد الشاطر تعلم كيف تضيف خاصيه فقدان كلمة السر واسم المستخدم للبرنامج معا بالشرح خطوه خطوه _ أ / محمد القمجي فورم لطيف_ أ /konafa4000 'طريقة لاغلاق الفورم _ أ /konafa4000 جميع نماذج الحماية لملفات الأكسيل _ أ / محمود_الشريف كود جاهز_ تسجيل الوقت وأسم المستخدم عند فتح الملف _ أ / mehyo27 كود صغير جدا و لكن مفيد جدا_Cells.Locked_تأمين الخلية بعد الكتابة فيها ((تلقائيا)) _ ا / ابو اسامة العينبوسي اضهار واخفاء شيت بناء على قيمة خلية _ مشاركات الاعضاء حماية الملف بالكود _ مشاركات الاعضاء و لا تنسونا من صالح الدعاء و لامى بالمغفره و الرحمه

السلام عليكم إخواني الكرام أقدم لكم اليوم ملف قمت بإعداده ، لنتعلم من خلاله كيفية عمل قائمة منسدلة يمكن البحث من خلالها ... الملف به كل التفاصيل أرجو أن ينال إعجابكم وأن ينفعكم به Searchable Drop Down List.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مشروع عمل فورم لدوال الاكسل - شاهد هذا العمل خطوة خطوة - تم ارفاق كود الحل من الفاضل/ عبدالله باقشير و لا تنسونا من صالح الدعاء فورم لدوال الاكسل_عبدالله باقشير.rar

ارفق مثالك حتى تحصل على اجابة عملية

اخوتي الكرام السلام عليكم ورحمة الله وبركاته لدينا طالب يحفظ وجه واحد من المصحف كل يوم ويراجع ما تم حفظه نريد حساب عدد الاوجه التي تمت مراجعتها خلال 6 أيام اذا علمنا ان منهج المراجعة تراكمي زيادة ايضاح : المنهج التراكمي انه يراجع اول يوم وجه واحد وفي اليوم الثاني يراجع وجهين وفي اليوم الثالث يراجع ثلاثة اوجه وتضاف الى ما تم مراجعته بالامس لتصبح 5 اوجه وهكذا ..فييكون حساب حصيلة اليوم السادس مراجعة 6 اوجه + 15 وجه تحسب له لانه راجعها اي ان مجموع ما تم مراجعته خلال 6 ايام هو 21 وجها نريد هذاه المعادلة تتم من خلال وحدة نمطية نمرر لها رقما محددا يمثل عدد ايام الحفظ لنستخدمها داخل الاستعلام لا املك الوقت للتجربة والمحاولة فاحببت وضعها هنا لاساتذتي الكرام

وعليكم السلام ورحمة الله وبركاته ان كانت جميع كودات الاخ رمهان ادت الغرض المطلوب كان الاجدر بك ان تأخذ ما قدمه الاخ صالح عبادي لان ملفه يؤدي نفس الغرض الذي تؤديه الاكواد :: تحياتي

تفضل تم التعديل link_2.rar

جزاك الله خيرا وادخلك الجنه من اوسع ابوابها

السلام عليكم ورحمة الله وبركاته بناءاً على فكرة اخونا الحبيب خبور خير في صنع القوائم المنسدلة هنا تكملة للمشوار وفكرة لعمل عدة قوائم منسدلة ومترابطة عسى أن يتم الاستفادة منها قوائم منسدلة للحسابات 2003.rar قوائم منسدلة للحسابات 2007.rar

السلام عليكم و رحمة الله و بركاته الدالة التي تقدم بها أخي يوسف صحيحة و تعطي التاتج صحيح و هي تقريبا نفس الدالة اللي أنا عملتها. Function CalculeFac(face As Integer) Dim i As Integer m = 0 For i = 0 To face m = m + i Next i CalculeFac = m End Function أخي رمهان الخطأ اللي أنت عملته هو في اليوم الثاني هنا يجب أن تضع وجهين في اليوم الثاني + وجه واحد حصيلة أمس. إن شاء الله يكون هذا الحل وافي و كافي في إنتظار نصائح و إنتقادات الأستاذ أبو خليل

حل آخر في حال اردنا ان نضع قيمة بالحقل و نحصل على الناتج .... لأن الطريقة السابقة تعتمد على المجموع التراكمي Public Function RunTotal(Phases As Integer) As Integer Dim i As Integer intSum = 0 For i = 0 To Phases intSum = intSum + i Next i RunTotal = intSum End Function ارجو ان يكون هو المطلوب استاذنا الغالي

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

و عليكم السلام و رحمة الله و بركاته اهلا باستاذنا العزيز ابو خليل .. اسأل الله ان يجعل ما تقدمه في موازين حسناتك ارجو ان يكون الحل هو ما تبحث عنه استاذنا الغالي Public Function RunSum(Phases As Integer) As Integer Static intSum As Integer If Phases = 1 Then intSum = 0 RunSum = intSum + Phases intSum = RunSum End Function بالتوفيق

رحمه الله واسكنه جناته

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

تفضل اخي الكريم: في حدث عند النقر لزر الامر ضع هذا الكود: DoCmd.OpenForm "EmpData" وفي حدث عند الفتح للنموذج (EmpData) ضع هذا الكود: DoCmd.GoToRecord , , acNewRec waz-Database10.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة قطع جميع الاتبارطات بمصنف العمل !! تم ارفاق كود الحل من الفاضل/ زياد علي و لا تنسونا من صالح الدعاء تحياتى قطع جميع الارتباطات (2).rar

تفضل هذا هو الملف بعد التعديل. مع العلم أني لم أستعمل كود برمجي و لكني إستعملت ماكرو Database10.rar

تفضل يجب ان تدرس التغييرات جيدا مربع التحرير تتم تصفيته بجعل الاستعلام المصدر استعلام تجميعي ثم في حدث بعد التحديث وضعت كودا لتنشيط وتفعيل النموذج الفرعي ايضا الاستعلام مصدر النموذج الفرعي وضعت به معيارا = قيمة مربع التحرير link.rar

وان كان الرد متاخر . ولكن العمل رائع ومهم جدا ... بارك الله فيك اخ ياسر العربي

السلام عليكم عيدكم مبارك بالمرفق كود يعرض اسماء اوراق العمل بعد كتابة هذه المعادلة البسيطة في الورقة ()SHNAME = تحياتي عرض اسماء اوراق العمل.rar

السلام عليكم ورحمة الله اولا / الشكر الجزيل للاخ الفاضل الاستاذ سليم حاصبيا --------------------------------------------------------------------------- ثانيا / بعد إذن الاستاذ سليم المشكله في اصطياد السمكة يا استاذ ياسر ليس شرح الكود لانه حتى لو شرح الكود ينقصه من ان الكود مبني علي خطوات مسبقه إليكم الخطوات المسبقة محاوله مني: اولا / نقوم بتعريف المدى اللي بالكود والمسمى Prot_Range نذهب إلي الشيت المسمى Sheet1 ثم من شريط الادوات نذهب إلي صيًغ ثم إدارة الاسماء ثم جديد ونضع الاسم Prot_Range ونشير للخلايا أي نحدد الخلايا حسب رغبتنا في تطبيق العمل عليها وهنا في عمل الاستاذ سليم اشار للخلايا من A1 إلي Z255 ثم موافق خلاص إنتهينا من تسمية النطاق او المدى.والآن يأتي دور الاكواد نذهب لمحرر الاكواد الخاص بالصفحة Sheet1 عام أي في ال General ونضع هذا الإجراء : 'xxهنا نقوم بتسمية إجراء ونسميه اي إسم اي حرف وهنا إسمه Sub xx() ' salim يقوم بإلغاء الحماية من علي الصفحة النشطه والتي كلمة المرور الخاصة بها هي ActiveSheet.Unprotect "salim" إذاً' Prot_Rang إذا لم يتقاطع الإختيار بمدى النطاق المسمى If Not Intersect(Selection, Range("Prot_Range")) Is Nothing Then ' هنا الإشارة للمجال المختار وهو مدى النطاق في الصفحة النشطة بالخاصية With With ActiveSheet.Range("Prot_Range") ' تنشيط إقفال الخلايا .Cells.Locked = True 'عدم إقفال الخلايا الفارغة التي لايوجد بها بيانات .Cells.SpecialCells(xlCellTypeBlanks).Locked = False ' إغلاق الخاصية With End With ' يقوم بحماية الصفحة وعمل كلمة المرور salim ActiveSheet.Protect "salim" End If ActiveSheet.Protect "salim" End Sub ثم نضع الكود التالي في حدث تغيير الصفحة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) ' إذا لم يتقاطع الهدف بالمدى وان نتائج الهدف يساوي واحد ‘ذاً If Not Intersect(Target, Range("Prot_Range")) Is Nothing And Target.Count = 1 Then ' عدم تمكين تطبيق الاحداث Application.EnableEvents = False 'هنا بعد إدخال اي بيانات تأتي رسالة تفيد حسب الموضح في الرسالة mess = MsgBox(" بعد ادخال البيانات سوف يتم اقفال هذه الخلية" & vbNewLine & _ "لا يمكن تغييرها الا من خلال كلمة السر في حال الموافقة اضغط نعم", vbYesNo, "تنبيه") ' عند الموافقة If mess = vbYes Then 'xxهنا يتم إستدعاء الإجراء والمسمى xx ' عند عدم الموافقة Else ' تراجع عن التطبيق Application.Undo End If End If ' تمكين تطبيق الاحداث Application.EnableEvents = True End Sub

اخفاء ازرار الصفحات ActiveWindow.DisplayWorkbookTabs = False اخفاء شريط القوائم العلوي Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" اخفاء شريط المعادلات Application.DisplayFormulaBar = False ولاعادة اظهارهم يتم استبدال كلمة false بكلمة True

الدرس الأول: مولد الباركود أول خطوة لمعرفة كيفية قراءة الباركود هو طريقة توليدها ومن ثم ربطها بالبرنامج. تختلف صياغة الباركود نظراً للكود الذي يتبعه والتي تحدد معايير رسم وقراءة رموز الباركود، مثل كود 93 و كود 39 وكود 128، ولهذا السبب يشتكي البعض من عدم تمكنه من قراءة رموز الباركود، ولهذا في هذا الدرس سنعتمد على كود 128 وكود QR لأنهما الأكثر شيوعاً وتقبل معظم الأجهزة.. هناك برامج ومواقع كثيرة تقوم بتوليد الباركود، ونحن في هذا الدرس قمنا بتوليد الباركود عن طريق موقع خارجي من خلال المرفق التالي. barcode generator.rar

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

تفضل استيراد متكرر ضمن جدول واحد استيراد بيانات.rar

السلام عليكم ورحمة الله وبركاته للوصول السريع الى فتح صناديق الحوار او الاوامر ده الفورم يعطيك الرقم سريعا XlBuiltInDialog هو في ارقام كثيرة لكن حاولت ان اجمع ما يفتح بالامر Show اختار الرقم وضعه بدل الكلمة هنا Application.Dialogs(هنا).Show في اوامر لم اضع تسميتها دمتم في حفظ الله Application.Dialogs1.rar =================================================== النسخة الجديدة بجميع الاوامر من 1 الى 119 ممكن تستخدم معها الامر Show وهي الملونة في الشيت وهي التي تم اختبارها وترجمتها مني ومن الاخ عادل Application.Dialogsadel3.rar =================================================== رابط ذو اهمية: http://msdn.microsoft.com/en-us/library/ff194519.aspx

في حالة ان اسم الجدول tss5 والحقل الذي نريد الحذف على اساسه الشركة يكون الكود هكذا Public Function delfirstrec1() On Error Resume Next Dim db As DAO.Database Dim rst As DAO.Recordset Dim rsttransaction As DAO.Recordset Dim rst_temp As DAO.Recordset Dim tblofficena As DAO.TableDef Dim qryOfficena As DAO.QueryDef Dim fldtest As DAO.Field Set db = CurrentDb Set rst = db.OpenRecordset("tss5", dbOpenTable) rst.MoveFirst Do Until rst.EOF Set tblofficena = db.CreateTableDef("tbltest") Set fldtest = tblofficena.CreateField("city_temp", dbText) fldtest.Size = 50 tblofficena.Fields.Append fldtest db.TableDefs.Append tblofficena Set rst_temp = db.OpenRecordset("tbltest", dbOpenTable) rst_temp.AddNew rst_temp!city_temp = rst![الشركة] rst_temp.Update rst_temp.Close Set qryOfficena = db.CreateQueryDef("Officena", _ "SELECT [الشركة] FROM tss5 where [الشركة] = dlookup('[city_temp]','[tbltest]')") Set rsttransaction = db.OpenRecordset("Officena") Do Until DCount("[الشركة]", "[officena]") <= 20 rsttransaction.MoveFirst rsttransaction.Delete Loop rsttransaction.Close rst.MoveNext db.TableDefs.Delete ("tbltest") db.QueryDefs.Delete ("officena") Loop rst.Close db.Close MsgBox "تم الغاء السجلات اللازمة", vbOKOnly, "فريق اوفيسنا" End Function

يمكنك عمل ذلك ذلك ايضاً بدون النموذج عن طريق التعامل مع الجدول مباشرةً والغاء اول سجل من الجدول عن طريق وضع هذه الدالة بوحدة نمطبة عامة : Public Function delfirstrec() Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("TableName") If rst.RecordCount > 10 Then rst.MoveFirst rst.Delete rst.Close MsgBox "تم الغاء السجل الأول من الجدول", vbOKOnly, "Officena" End If End Function وبعد ذلك تقوم باستدعاء الدالة من خلال ماكرو للعلم هذا الكود يقوم بالغاء السجل الأول فقط اذا عدد السجلات عن عشر سجلات

قمت باحضار طابعة وتجربة هذا الكود ونجحت والحمد لله :lol: DoCmd.OpenForm "subformname" DoCmd.GoToRecord , , acGoTo, Me.subformname.Form.CurrentRecord DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.PrintOut acSelection SendKeys ("^{f4}") قم بوضع الكود السابق عند حدث النقر لزر امر موجود على النموذج الرئيسي لا تنسى ان النموذج الرئيسي مسمى "formname" النموذج الفرعي مسمى "subformname"

ضع عند حدث زر الامر الذي يقوم باضافة سجل جديد الكود التالي : DoCmd.SetWarnings False If Me.RecordsetClone.RecordCount > 10 Then DoCmd.GoToRecord , , acFirst DoCmd.RunCommand acCmdDeleteRecord End If DoCmd.GoToRecord , , acNewRec