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

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

اخى الكريم فايز فراج بعد التحية الملف الذى ارفقتة بهذه المشاركة لا يفتح فقمت بارفاق الملف القديم بعد ازالة الحماية تقبل تحياتى 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 أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

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

السلام عليكم و رحمة الله و بركاته تقبل الله منا و منكم الصيام و القيام. أخوتي الأعزاء في هذا المنتدى الأكثر من رائع أقدم لكم كود إعادة ترقيم جميع سجلات حقل و ذلك بالضغط مرة واحدة على الزر الذي وضعة عليه الكود. بدون إطالة أقدم لكم هذا الكود. 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

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

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

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

الله عليكم رائع بس لو تخصصون نصف ساعة من وقتكم الثمين لتعليم المبتدئين من مثلي دروس vba (سلسلة تشرح كل يوم كود ) كود لا دوال الأكسس لأنها موجودة خاصة تراكيب الكود و بعض الرموز التي تأتي معه & " ' "'" ";" و شوف كم يضاعف الأجر للأسف نحن لم نجد معاهد تكوين متخصصة تمكننا من ذلك كل ما تعلمناه هو من الأنترنت لكن تبقى ناقصة و الكتب كلها إنجليزي فاياريت تبسط لنا الأمور حتى نتحكم فيها و يزول الغموض و الله أنا بغير منكم و في قلب حسرة أني لم أستطيع التقدم في هذا المجال و الله أنتم طوبى لكم و شكرا

روعة بارك الله فيك

تفضل هذا المثال قد كنت انهيته قبل ان تضع مشاركتك هذه باذن الله نكمل طلبك تقبل تحياتي 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

جرب هذا الملف تم التعديل غلى بنية الملف للحصول غلى النتائج كاملة اوفيسنا SALIM.rar

غير الكود السابق بهذا الكود Sub Maint_click() Sheets("Maint").Range("B5:H16").Copy Sheets("Report").Range("B69").PasteSpecial (xlPasteValues) End Sub

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

اخى الكريم 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