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

إخواني وأحبابي في الله بارك الله فيكم جميعاً وجزيتم خيراً على مشاعركم الطيبة وكلماتكم الرقيقة وأنا إن غبت عن المنتدى بجسدي فروحي تسكن فيه تقبل الله منا ومنكم صالح الأعمال ، وجعل أعمالنا صالحة ولوجهه خالصة تقبلوا وافر تقديري واحترامي

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

أحاول قدر استطاعتي التواجد معكم ولكن ظروف الحياة ومشاغل الدنيا تغلبنا في كثير من الأحيان وافر تقديري واحترامي لكم إخواني في الله ، وأسأل الله القدير أن يجمعنا في مستقر رحمته في الفردوس الأعلى من الجنة

جرب هذا الملف list_by_letters.rar

شكرا للاستاذ صالح وشكرا للاستاذ كرار سبب تعديل الاستاذ العزيز كرار ان الكود يقوم بتعديل 11 سجل ثم يقف ، فهو قام بجلب عدد السجلات الفعلية الموجودة في الجدول1 ، ولكن يلاحظ ان الترقيم يتم بواسطة حقل داخل النموذج فيجب ان يكون الجدول1 هو مصدر بيانات النموذج هذا تعديل بسيط للمرور على جميع السجلات داخل النموذج DoCmd.GoToRecord , , acFirst Dim i As Integer For i = 1 To Me.Recordset.RecordCount On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i

تفضل هذا المثال لعله ينفعك CARDS.rar

منور الاستاذ الكبير ياسر خليل صراحة هو ملح المنتدى بغيير وجودة المنتدى بدون طعم عوداً حميدا نورت

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله أقدم لكم اليوم كودين ، تعتمد الفكرة فيهما على تجميع القيم التي يتم إدخالها ، مع كل إدخال جديد في المرفق ستجد ملفين .. الملف الأول باسم Single Cell Accumulator أي التجميع للقيم في خلية واحدة فقط ويظهر الناتج في نفس الخلية .. قم بإدخال أي قيمة في الخلية A1 وليكن 5 ثم سهم لأسفل واكتب القيمة 4 ستجد أن ناتج الخلية أصبح 9 ، اكتب 3 ثم سهم لأسفل ستجد الناتج أصبح 12 وهكذا .. أعتقد أن فكرة الكود قد وصلتكم الآن .. لإعادة ضبط عملية التجميع قم بمسح محتويات الخلية A1 أو وضع نص بها .. الكود في الملف الأول بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) = "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator = dAccumulator + .Value Else dAccumulator = 0 End If Application.EnableEvents = False .Value = dAccumulator .Select Application.EnableEvents = True End If End With End Sub الملف الثاني باسم Two Cell Accumulator وفي هذا الملف تتم عملية الإدخال في الخلية A1 بينما تظهر النتائج في الخلية B1 ، ففي كل إدخال رقمي يتم تجميع القيمة إلى القيمة الموجودة في الخلية A1 ، وهنا إذا تم مسح محتويات الخلية A1 أو كتابة نص بها ، فإن الناتج في الخلية B1 يظل كما هو ، ولإعادة ضبط عملية التجميع من جديد قم بمسح محتويات الخلية B1 والكود في الملف الثاني يظهر بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True .Select End If End If End With End Sub أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

الا خ ياسر خليل أبو البراء عودا حميدا كل سنة وانت طيب اعاد الله رمضان عليك وعلي امة الاسلام باليمن والبركات نورت المنتدي

السلام عليكم و رحمة الله و بركاته تقبل الله منا و منكم الصيام و القيام. أخوتي الأعزاء في هذا المنتدى الأكثر من رائع أقدم لكم كود إعادة ترقيم جميع سجلات حقل و ذلك بالضغط مرة واحدة على الزر الذي وضعة عليه الكود. بدون إطالة أقدم لكم هذا الكود. DoCmd.GoToRecord , , acFirst Dim i As Integer For i = 1 To 11 On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i و هذا الملف يوضح ذلك. لا تنسونا من خالص دعائكم في هذا الشهر العظيم إعادة ترقيم عمود في جدول.rar

حفظ قاعدة البيانات بأخذ نسخة ووضعها على D:\ عند إغلاق قاعدة البيانات ( أي في كل مرة تغلق فيها قاعدة البيانات ) وتسميتها بالعام مثلا 1429/1430 يتم تحديث بيانات النسخة الاحتياطية عند كل إغلاق ، وفي نهاية السنة وبداية سنة جديدة يتم نسخ قاعدة جديدة باسم العام الجديد ليبقى لكل عام قاعدة تخصه . تقبلوا تحيات أخيكم ... ابو خليل.. في المرفقات المثال قم بعمل التالي : 1 - اجلب الوحدة النمطية SaveFolder الموجودة في المثال إلى قاعدة بياناتك فقد تحتاج اليها مستقبلا عندما تود تحديد مكان النسخة 2- يوجد في النموذج مربعي نص مخفية قم بنسخهما إلى النموذج الرئيسي في قاعدة بياناتك 3 في حد ث عند الإغلاق للنوذج الرئيسي الصق هذا الكود : كود On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = [DBOld] DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = [DBNew] & "\" & DBwithoutEXT & "-" & (Format(Date, "yyyy") - 1) & "-" & Format(Date, "yyyy") & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub وفي حدث عند التحميل الصق هذا الكود : كود '[DBOld] = CurrentDb.Name اختيار قاعدة البيانات الحالية [DBOld] = "c:\z1.mdb" 'اختيار مسار القاعدة البديلة [DBNew] = "D:\" 'اختيار مكان حفظ النسخة __________________.rar

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

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

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

جرب هذا . بعد التعديل علي كود اخونا عمر Omar_2.rar

السلام عليك استاذ عبدالسلام ابوالعوافي الكود يعمل الان بشكل ممتاز جزاك الله خير كثر من امثالك ... ويبارك لك في علمك ومالك وولدك ... ويوسع لك في رزقك ... الله يجزاك الجنة ووالديك وجميع المسلمين ...

جزاك الله كل خيراً

السلام عليكم جزاكم الله خيراً ...عمل متقن...بارك الله بكم.

تفضل هذا المثال قد كنت انهيته قبل ان تضع مشاركتك هذه باذن الله نكمل طلبك تقبل تحياتي CARDS.rar

لقد رفع الله قدر نبينا صلى الله عليه وسلم، وأنزله منزلة عظيمة لم تكن ولا تنبغي لأحد من خلقه سواه، وجعل حياته سيرة عطرة ضمَّنها كل إشراقة في جوانب الحياة، ثم جعله أسوة حسنة لمتبعيه يتأسون به في خصال الخير كلها، ومن جملتها تفريغ القلوب لمحبة الله تعالى، والشفقة والرحمة بالمؤمنين، ودعوة الناس إلى الله بالحكمة والموعظة الحسنة، وبيان عظمة الوقوف بين يدي الله تعالى، وزينه تعالى بكل حميد من الأعمال والأقوال والصفات الخلقية والخُلقية، فطاب صلى الله عليه وسلم حياً وميتاً.

و عليكم السلام و رحمة الله و بركاته ... تقبل الله منا و منكم صالح الاعمال ... تعديل بسيط ... DoCmd.GoToRecord , , acFirst Dim i, d As Integer d = DCount("*", "جدول1") For i = 1 To d On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i

تفضل يا أخي اوفيسنا SALIM.rar

استاذ عبدالسلام اشكرك من كل اعماق قلبي على تفاعلك ولكن للاسف لم يعمل الكود في الاوراق الباقية

اخى الكريم asdhamdey مشكور لكلماتك الجميلة وبارك الله لنا فيك فى كل الأخوة فى هذا الصرح الشامخ

اخى الكريم فايز فراج شكرا لكلماتك الرقيقة وبارك الله لنا فيك

شكرا لك ولجمالك أستاذي الكريم وكل عام وأنت والأعضاء الكرام بألف خير سأطرح الموضوع من جديد.

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

عودٌ أحمدٌ الحمد لله على السلامة استاذ ابو البراء رمضان كريم اعاده الله عليكم بالخير والبركات تقبل الله منا و منكم صالح الأعمال

ستطيع تحقيق ذلك بجعل الاستعلام مصدر بيانات التقرير تجعله استعلام مجاميع انظر مثالك المرفق عملت لك استعلاما باسم b2_2 هذا الاستعلام يدمج المكررات لاحظ ان المكررات متشابهة في الحقول الثلاثة والا لن يتم الدمج الآن بالدلة Dcount يمكن اسخراج وجلب العدد بمثل هذه الصيغة: داخل محرر الفيجوال text1= Dcount("id","b2_2","id=" & me.id) او داخل عنصر تحكم الحقل هكذا : =Dcount("id";"b2_2";"id=" & me.id)

مرحبا في الكود الذي يبدأ بالسطر : Private Sub kh_AddNewRecord() أكتب في آخر الكود الأسطر التالية With Me.Controls("Textdt" & 7) .Value = Format(Date, "dd-mm-yyyy") .Enabled = False End With

السلام عليكم في آخر كود SAMA_1 ضف هذا السطر : If Not WARED.Cells(Mh, 13) = "" Then CheckBox2.Value = True Else CheckBox2.Value = False

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

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

السلام عليكم الحمد لله على السلامة استاذ ابو البراء رمضان كريم اعاده الله عليكم بالخير والبركات تقبل الله منا و منكم صالح الأعمال

السّلام عليكم و رحمة الله و بركاته مرحبا بالحبيب الغالي .. حبيب الكل .. " ياسر خليل أبو البراء " رمضان كريم كل سنة و أنت إلى الله أقرب عودة ميمونة بإذن الله خالص محبّتي و تحياتي

حللت اهلا و نزلت سهلا اخي أبو البراء الموقع افتقدك و الله تقبل الله منا و منكم صالح الاعمال و رمضان كريم ان شاء الله

مبروك للمنتدى عودة العلامة ياسر خليل أبوالبراء نفعنا الله بعلمه وأتم عليه نعمته

الحمد لله على السلامة استاذ ابو البراء رمضان كريم اعاده الله عليكم بالخير والبركات تحياتي

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

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

اخى ياسر كل عام وانتم بخير

أخي الحبيب ومعلمي الكبير أبو تامر بارك الله فيك وجزيت خيراً .. والمنتدى نور بوجودك فيما بيننا فقد أرجعتنا لأيام زمان ، ونرجو تواجدك الدائم فيما بيننا وكل عام وأنت بخير وجميع الأخوة والأحباب بالمنتدى تقبل وافر تقديري واحترامي

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ملف Excel مفيد جداُ و للاستفاده من اكواده و لا تنسونا من صالح الدعاء تحياتى Macro_Excel_Stocks_warehouses_unlocked (1).rar

جزاكم الله كل خير

استاذ : ياسر غيابك مؤثر .. وانشغلنا عليك اعمالك ابداع

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

[DBOld] = "c:\z1.mdb" 'اختيار مسار القاعدة البديلة هذا السطر تستطيع من خلالة تحديد اي قاعدة بيانات تريد اخذ نسخة منها

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

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