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

السلام عليكم و رحمة الله و بركاته. الكل يعلم أن هناك مشاكل عديد تحصل عند حقل من نوع ترقيم تلقائي، و من أهمها التسلسل عند حذف سجل معين يختل التسلسل الرقمي. لذلك اقترح حلا ربما يكون مناسبا لتعويض حقل الترقيم التلقائي. هذا الحل يقوم بما يلي : 1- إضافة رقم تلقائيا و متسلسلا كلما أضفنا سجل جديد. 2- يقوم بإعادة ترقيم جميع السجلات عند حذف سجل معين من أجل الحفاظ على التسلسل الرقمي. الكود كالتالي: في حذث الحالي للنموذج نكتب: Me.الرقم = CurrentRecord في حدث عند النقر لزر الحذف نكتب: On Error Resume Next DoCmd.RunCommand acCmdDeleteRecord Me.Requery DoCmd.GoToRecord , , acNext For i = 1 To Me.Recordset.RecordCount Me.الرقم = CurrentRecord Next i DoCmd.GoToRecord , , acLast لكم التعليق و الإضافة أو إكتشاف الأخطاء و تحسينها. تقبلوا تحيات أخوكم صالح حمادي... تعويض الترقيم التلقائي.rar

الأخ الكريم فايز فراج الأخ الكريم بوب 2016 مشكورين على كلماتكم الرقيقة والفضل كله لله جعلنا الله واياكم عوناً لكل محتاج جرب هذا التعديل abo_abary_هاااام جداااا.rar

على فكرة الاستاذ / ابو عبد الباري ... هو صاحب الفضل الاول لي في عمل ذلك أين الملف ال تبع حضرتك؟

ارجو ارسال الملف الي الاخ ابو عبد الباري ...هو خبير بمعنى الكلمة وانسان على خلق

رائع

..... شاهدوا المرفق أخوكم عماد الحسامي

الموضوع : كود ترحيل البيانات بشكل مميز سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة أبدأ بفنح ملف أكسيل جديد : قم بتسمية ورقة العمل الاولى بأسم ادخال بيانات والورقة الثانية فواتير ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة ثم تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال : ----------------------------------------------------- اصدار 2003 من مربع أدوات التحكم > ادارج زر ------------------------------------------------------ اصدار 2007 من المطور > ادراج زر ------------------------------------------------------- وفى الصفحة الثانية التى تم تسميتها باسم فواتير نصممها على هذا الشكل بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود من خلال اختيار وضع التصميم والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق ) الجزء الاولى من الكود الجزء الثانى من الكود الجزء الثالث من الكود الجزء الرابع من الكود الجزء الخامس من الكود الجزء السادس والأخير ملاحظة : الكود يرحل بترتيب الادخال . لتحميل الشرح مصور + ملف المثال + الكود من هنا فى النهاية أسالكم الدعاء اذا افادكم ذلك

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

السلام عليكم / أهل الخبرة في الأكسل أرجوا درج الطلاب الذين لهم حق دخول الدور الثاني في جميع المواد بالملف المرفق بالشيت المسمى ( كشوف الدور الثاني ) حيث عندما قمت بالتعديل على بعض المعادلات في الشيت الأساسي لدرجات الطلاب ... وقمت بتعديل رقم 1 إلى علامة (إكس) للطلاب الذين لهم حق دخول الدور الثاني ... رأيت أن المعادلات في ( كشوف الدور الثاني ) لم تأتي بنتيجة ، حيث أن المعادلات من نوع المصفوفات .... هاااام جداااا.rar

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

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

الحمد لله أنك توصلت للحل .. يرجى وضع الأكواد بين أقواس الكود ليظهر بشكل منضبط تقبل تحياتي

إلى حد الآن هذا كل ما لدي بارك الله فيك

و فيك بارك الله أخي بوعبد الله. هل لديك اسئلة أخرى أخي راح جاوبك عليها إذا كان بمقدوري

نعم نجح بارك الله فيك وزادك من فضله

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

الأخ الكريم بوب2016 جرب المرفق التالى abo_abary_تصميم شيت.rar

طلب عرض عدد المسجلين +نتائج البحث.rar

السلام عليكم. أخي يجب عليك أن تحذف ربط الحقول الرئيسية و ربط الحقول التابعة في خصائص النموذج الفرعي كما توضح الصورة التالية: RealisationReintegration - 5 - Copy.rar

بارك الله فيكم أخي ياسر.

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

شاهد هذين الفديو هين

نعم ... ابتدائي أزهر حضرتك ممكن ترسل الملف ؟ بس أرجوا إن كان لديك خبرة في الملف المرفق بالموضوع ... يا ريت تعمله

أ / فايز ..حضرتك ابتدائي أزهر ؟ في ملف عندي ممكن يفيدك ممكن تعدل عليه

يوجد كودين في حدث فتح المصنف بنفس الاسم قم بدمج الأكواد ..أو ارفع الملف ليستطيع الأخوة تقديم المساعدة إن شاء الله

جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value <> 2 Then Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If End If End Sub

الأخ الكريماحمد محمد ماترك حل المشكلة انك تضغط على no وتختار نوع من الملفات excel macro-enabled workbook احفظ الملف وافتحه مره اخرى

بعد اذن اخى سليم حاصبيا جرب الملف التالى بالمعادلاتabo_abary_المدرسة1.rar او الملف التالى بالأكواد abo_abary_المدرسة.rar

ربما كان المطلوب اذا كان كذلك اضغط (اعجاب) المدرسة salim.rar

جرب الكود التالي في حدث المصنف Private Sub Workbook_Open() Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets Sh.Range("IV1").Value = "True" Next Sh End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim Sh As Worksheet Dim Sn As Worksheet Dim Rng As Range Application.ScreenUpdating = False Application.Calculation = xlManual For Each Sn In ThisWorkbook.Worksheets If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123" Next Sn For Each Sh In ThisWorkbook.Worksheets If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True For Each Rng In Sh.UsedRange On Error Resume Next If Rng.Value > Empty Or Rng.HasFormula Then Rng.Locked = True Next Rng If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next Sh Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub احفظ المصنف ثم أغلقه ثم قم بإعادة فتح وتجربة الحماية

بسم الله الرحمن الرحيم ونواصل بدون فواصل فى شرح السلسلة المميزة جدا للمبتدئين كن محترف vba وموعدنا اليوم مع الجزء التاسع من هذة السلسلة مشاهدة ممتعة ومفيدة باذن الله https://www.youtube.com/watch?v=IzsKdYS7cqE

الأخ الكريم بوب2016 جرب المرفق التالى abo_abary_ملف 20.rar

هذا يحدث لانه هناك بعض البيانات الناقصة في الفاتورة المرحلة تم تفادي ذلك بكود جديد لا يسمح لك بالترحيل اذا وجد هذا الشيء امسح كل شيء من الارشيف و حاول من جديد Perfet fact.rar

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

جزاك ربي خير ا وبارك الله فيك

تم عمل البرنامج على طبيعة شغلي وهو مأخوذ بالكامل من افكار واكواد أساتذة المنتدى الكرام ( حمل على ثلاثة اجزاء لكبر حجم الشيت ) ولكن حين تم تجربته فى بعض التقارير بطيئة جدا واكتسبت افكار جديدة سوف يتم تغير البرنامج الى شكل افضل بكثير مما عليه . ولكن اعرض هذا الربنامج موقتا الى حين يتم الأصدار الجديد منه والتعديل عليه وغرضى من العرض ربما يستفيد منه أحد على هذا الوضع أو يضيف لى أى افكار أخرى تساعدنى فى تطويرة رقم الدخول عند فتح البرنامج كلمة agro فى خانة المستخدم ، 1234 فى رقم الدخول ورقم السري فك الأكواد 200473 وذلك لتعم الفائدة البرنامج عبارة عن 10 ازرار :- الزر الأول : تكويد الأصناف والمخازن يتم كتابة جميع الأصناف حتى 50 صنف تحت خلية اسم الصنف ويتم كتابة أمام كل صنف اسم الوحدة تحت خلية الوحدة ويتم كتابة المخازن تحت خلية اسم المخزن ويتم وضع أرصدة أول المدة بالمخازن كما تراه افقي فى عمود الكمية أما عمود العدد فهذا توضيح اكثر لو محتاج لذلك يتم كتابته بمعني : يوجد فى المخزن 20 شوال ملح ما يعادل 1000 ك توضع فى العدد 20 والكمية بالوحدة كيلو 1000 مثال اخر يوجد فى المخزن 50 جركن زيت ما يعادل 250 لتر العدد =50 والكمية =250 لتر وهكذا للتوضيح اكثر ويوضع امام الصنف وتحت المخزن العدد والكمية للصنف اما نوع التوريد والسداد يمكن تصنيف الأصناف على حسب احتياجك فى التقرير بمعني : براميل ، بالتات ، صناديق ، اجولة تصنف مواد تعبئة وتغليف أما الملح واحماض ومشتريات الخام يصنف مواد خام واوليه وهكذا الزر الثاني : أدخال الداتا : فى بداية أدخال الداتا يتم ادخال الأرصدة الأفتتاحية للمورد والعميل بمعنى التاريخ اسم المورد او العميل نوع الحركة اسم الصنف الوحدة العدد متوسط الكمية الكمية السعر القيمة نوع التوريد والسداد 1-1 على رصيد اول مدين 5000 1-1 محمد رصيد اول دائن 2000 وبعد ذلك يتم ادخال الداتا بشكل يومي بمعنى ( تم كتابة مثال بسيط فى الداتا لتوضيح البرنامج ) لتنقل بين الصفحات رمز البيت ، الزر الأحمر فى ادخال الداتا باستمرار يجب الضغط عليه بعد الأدخال أما باقي الأزرار تقارير ولا يتم كتابة اى شي بهما ويجب تحديثهم من خلال الأزرار الموجودة اعلهم أما فى تقرير كارت الصنف يجب الضغط على تقرير حركة صنف برنامج المشتريات والمبيعات والمخازن.part1.rar برنامج المشتريات والمبيعات والمخازن.part2.rar

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

السلام عليكم هذا الجزء الثالث من البرنامج والأخير برنامج المشتريات والمبيعات والمخازن.part3.rar

أساليب وطرق البحث والتصفية لا متناهية ... ومن بسيطها للمعقد منها الطريقة والنتيجة تعتمد على الهدف المرجو والحاجة سبحان الله ... الحاجات لا تنتهي والاهداف تختلف .... تتقاطع وتتباعد ولكل منا مذهب وطريق أنا شخصياً افضل وجود تطبيق مستقل مرتبط مع قاعدة البيانات ، يمثل محركا للبحث يحلل ويشّرِح كافة حاجات البحث والتصفية لقاعدة البيانات ... !!! ............

كودان مهمان أحدهما لدقة الفرز وازالة المسافات في عمود الأسماء ماعدا المسافات المفردة وكود آخر لخروج الملف واغلاقه بارك الله لنا ولكم آمين لإزالة كافة المسافات في النص ماعدا المسافات المفردة.rar خروج من الملف.rar

جزاك الله خيرا أخي الكريم هل لي بطلب ولو كان خارج نطاق الاكسس ؟ هل يوجد نفس هذا الكتاب التعليمي للاكسل ؟ لاني دخلت الموقع المذكور في الكتاب ولم يفتح ... وشكرا

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

اخي ابراهيم جزاك الله خير جزاء على هذا المجهود