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

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

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة برنامج ايصالات استلام وصرف النقدية تم ارفاق كود الحل من الفاضل / حمادة عمر PASS _ magdy 12345 و لا تنسونا من صالح الدعاء تحياتى برنامج فواتير و ايصالات حماده عمر.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

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

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

لم افهم طلبك الملف في حالة كون الخلية K15 خالية تحتوى نتيجة البحث على كل القيم التى تقع بين التاريخين فى كل أوراق العمل اما اذا كنت تقصد الخطأ الذي يحدث عندما تكون احد اوراق البحث لا تحتوي علي بيانات فقد تم علاج ذلك اما اذا كان طلبك خلاف ذلك ارجو التوضيح انظر المرفقات SOP GIZA INDEX.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

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

السلام عليكم ورحمة الله وبركاته أجمل ما في الأخوّة والصداقة الحميمة أن يذكرك عندما تغيب . ... كل عامٍ وأنتم إلى الله أقرب بمناسبة شهر رمضان المبارك راجياً أن يجعله الله تعالى شهر رحمة و مغفرة وبركة علينا جميعاً والسلام عليكم ورحمة الله وبركاته

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

الاخ الفاضل / ياسر كل عام وانتم بخير حمدا لله على عودتك .. يااخى العزيز

الله يعطيك العافية استاذ ياسر خليل وشكراً جزيلا لك

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

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

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

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

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

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

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

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

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

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

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

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

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