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

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى المحبب إلى قلوبنا .. أقدم لكم اليوم شرح فيديو ، لكيفية عمل تصفية متقدمة Advanced Filter بالأكواد .. . والشرح مقدم في عدد 2 فيديو .. الأول لكيفية إدراج موديول وكتابة الأسطر الخاصة بتنفيذ التصفية المتقدمة ، والفيديو الثاني لكيفية تنفيذ الكود بدون أزرار بمجرد التغير في ورقة العمل أو التغير في شروط التصفية .. رابط الفيديو الأول : التصفية المتقدمة بالأكواد رابط الفيديو الثاني ومرفق لكم ملفين ..الملف الأول Advanced Filter VBA خاص بالفيديو الأول ، والملف المسمى Advanced Filter Worksheet_Change خاص بالفيديو الثاني أرجو أن ينال الدرس إعجابكم ، وتستفيدوا منه ولا أنتظر منكم سوى دعوة بظهر الغيب ، وادعوا الله لي أن يجعل أعمالنا صالحة ولوجهه خالصة ، وأن يجعل أعمالنا في ميزان حسناتنا يوم القيامة ، إنه ولي ذلك والقادر عليه كان معكم أخوكم أبو البراء من منتدى أوفيسنا (دي القفلة بتاعتي لو تلاحظوا .. مش شعبان عبد الرحيم بس اللي عنده القفلة !) حمل الملف من هنا

بسم الله الرحمن الرحمن أحبابى السلام عليكم ورحمة الله وبركاته وبعد أقدم إلى حضراتكم ملف صغيراً وبسيطاً لكنه يحتوى على كود - من وجهة نظرى المحدودة - فوق الرائع الفكرة هى أن الملف يغلق اذا لم يكن هناك مستخدم يعمل عليه الاغلاق يتم بعد ترك المستخدم له بدقائق محددة " يتم تحديد الدقائق فى المديول العادى" الكود الرئيسى يوضع فى حدث المصنف اذا رجع المستخدم الى العمل على الملف قبل نهاية المدة يتم تجاهل الكود ولا يتم الاغلاق لو حاولت تغيير عدد الدقائق رغبةً منك فى اطالة المدة فان الكود لا يعمل بالعدد الجديد الا بعد الحفظ والاغلاق واعادة فتح الملف تحياتى / مختار حسين محمود :fff: Timed Closing Of A Workbook.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. أقدم لكم اليوم (الملف القاتل .. Killer File) .. حلو العنوان وجذاب ، بيفكرني بالحوت القاتل .. Killer Whale الآن أصبح بمقدورك استئجار ملف للتخلص من ملف آخر .. الملف القاتل سيقتل الضحية في هدوووووووووووء وبدون إزعاج ، لأنه سيستخدم الكود الصامت .. معنا اليوم مصنف يحوي كود ، يمكنك من خلال الكود كتابة اسم الملف الضحية (الملف المراد حذفه) ، ولا تنسى أن تحدد هوية الضحية من خلال كتابة الامتداد أيضاً ..حتى تساعد الملف القاتل على إنجاز المهمة بشكل صحيح .. في الملف المرفق : الملف القاتل اسمه Killer File ، والملف الضحية اسمه FileToBeKilled وأترككم الآن بعد فك الضغط مشاهدة حادثة القتل العمد .. كان معكم مصمم الملف القاتل أبو البراء (وربنا يكفينا شر القتل) Killer File.rar

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

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

في هذا الكود لا يسمح لك الدكتور اكسل بادخال قيمة الخلية في نطاق معين الا مرة واحدة فقط فحــذار من الأخطاء protect entry.rar

شكرا لك يا أخ ياسر , إبداعات بلا حدود فكرة جيدة يمكن أن تستخدم في عملية الاختراق (هاكر) كن ذا همة تصل للقمة

نعم يمكن تفضل TEST4.rar

بارك الله فيكم اخواني جميعاً مشاركة معكم لعدم تكرار الثلاثة حقول بالسجل و العودة الى السجل المكرر .... مع عمل بعض التعديلات في الاسماء ( الجدول و الاستعلام و الحقول المعنية ) و ايضاً التعديل في الربط بين الجدولين في الاستعلام و هذا هو الكود في حدث قبل التحديث للنموذج : Dim intId As Integer Dim rs As DAO.Recordset Set rs = Me.Recordset If DCount("*", "qry1", "[nom] ='" & Me.NOM & "' AND [nom_pere] = '" & _ Me.Nom_Pere & "' and [widget] = " & Me.Widget & "") > 0 Then intId = DLookup("id", "qry1", "[nom] ='" & Me.NOM & "' AND [nom_pere] = '" & _ Me.Nom_Pere & "' and [widget] = " & Me.Widget & "") MsgBox "مكرر في السجل رقم" & " " & intId Me.Undo rs.FindFirst "[id] = " & intId Else Exit Sub End If Set rs = Nothing المرفق بعد التعديل بالتوفيق للجميع المحيطات الفلاحية.rar

حبيب الكل استاذ : ياسر بصراحه عمل تستاهل عليه

وعليكم السلام ورحمة الله بعد أذن معلمي الفاضل آخر الأرض أعذرني أستاذي قمت بالتعديل أثناء عدم وجود ردود تفضل أخي الكريم هذا مقترح آخر بكود '********************************* 'Code sample courtesy of srfreeman '********************************* Dim SID As String Dim stLinkCriteria As String Dim rsc As DAO.Recordset Set rsc = Me.RecordsetClone SID = Me.NOM.Value stLinkCriteria = "[NOM]=" & "'" & SID & "'" 'Check StudentDetails table for duplicate StudentNumber If DCount("NOM", "Qry", stLinkCriteria) > 0 Then 'Undo duplicate entry Me.Undo 'Message box warning of duplication MsgBox "ÇáÇÓã ãßÑÑ " _ & (SID) & " ãÓÌá ãä ÞÈá." _ & vbCr & vbCr & "ÓíÊã ÇÑÔÇÏß ÇáÂä Çáì ÇáÇÓã ÇáãÓÌá.", vbInformation _ , "ÈíÇäÇÊ ãßÑÑÉ" 'Go to record of original Student Number rsc.FindFirst stLinkCriteria Me.Bookmark = rsc.Bookmark End If Set rsc = Nothing End Sub وقمت بتصحيح العلاقة بين جدول المحيطات والمعلومات المحيطات الفلاحية----UP.rar

مش حرام تقتل ملف صغير كان عملك حاجة ؟! بلاغ فى أبوالبراء الى سيادة الاكسل العام من النت مباشرةً هذا اعتراف رسمى منه ============ فكرة أفضل من قتل الملف احنا نمسّكه السلك عريان ونحذفه الى سلة المهملات ممكن نحتاجه فى يوم والملف الأسود ينفع فى اليوم الأبيض واذا قررنا اعدامه خالص نعمله كود 106 ونفرغه من السلة فيه أكتر من كده بهدله للملف تحياتى للقاتل

تم معالجة الأمر ماكينة كبيرة salim.rar

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

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

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

اخ صالح كنت اكتب ردا ثم فوجئت للتو بردك ، لماذا كانت الامور تسير على مايرام والآن انفعلت ؟ مالاهتمام المفقود من الادارة ؟ هل تتصور انني انا وغيري بجب ان نتواجد على مدى الساعة ؟ وانه بمجرد ان تكتب ردا يجب ان تجد إجابته على الفور ، أليس لدينا اعمال وإشغال ومهام أخرى ؟ وهل وجدت فرقا في التوقيت كبيرا في الردود ؟ وهل اتفقتم على شئ وقدمتم المطلوب وتعطلتم على المشرف ؟ لا يا اخي هذا الاتهام مجاف للحق ، ونحن غير متفرغون وإنما ندخل المنتدى عندما يتسنى لنا الوقت بعد الفراغ من اعمالنا المناطة بِنَا امام اصحاب العمل الذي نؤديه ويجب ان يؤدى بحقه لصاحب العمل

بالفعل كما قال أستاذنا القدير حماده عمر لازم نرفع ليك القبعة على أعمالك المبهرة

أخي الفاضل جرب الملف التالي ..تم الاستغناء عن الدالة واستخدام الكود ليؤدي نفس الغرض .. يمكن التعديل في الكود ليشمل نطاق أكبر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("B2")) Is Nothing Then Target.Offset(, 1) = Target: Target.Offset(, 2) = Target: Target.Offset(, 3) = Target End If If Not Intersect(Target, Range("C2")) Is Nothing Then Target.Offset(, 1) = Target: Target.Offset(, 2) = Target End If If Not Intersect(Target, Range("D2")) Is Nothing Then Target.Offset(, 1) = Target End If End Sub Worksheet_Change Instead Of REPT Function.rar

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

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

استاذى العزيز انت شخص مميز جدا فى كل شئ نرجوا المزيد من الابداعات

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

ربما يكون المطلوب انظر الى الصفحة 1 ماكينة كبيرة.rar

الدرس الأول : السلام عليكم اخوتي الاعزاء : يوجد اكثر من طريقة لعرض البيانات المدخلة فيمكن عرضها داخل التقرير كبيانات مستمرة ، ويمكن عرضها حسب الانتقاء والاختيار باستخدام الدالة Dlookup كما يمكن عرضها داخل تقارير فرعية او نماذج فرعية وما يحكم هذه الطرق هو شيئان : - الطريقة المتبعة في تصميم حقول البيانات داخل الجداول . - البيانات المطلوب عرضها داخل التقارير وطريقة العرض . والمصمم غالبا يسعى الى ايسر واخصر الطرق في هذا الدرس طبقنا المخرجات على تقرير نتيجة الصفوف الذي تفضل باعداده مشكورا ابو محمد عباس ووظفنا لذلك : frmReports نموذج التقارير لاختيار الفترة والصف والشعبة QDrjat استعلام ( مدير التحكم ) وفيه يجري انتقاء اختبار الفترة حسب التحديد في نموذج التقارير QDrjat_Crosstab استعلام جدولي وهو لتحويل البيانات من رأسي الى افقي Repsh1sfof وهذا هو تقريرنا ويوجد داخله حقول الفترة والصف والشعبة تتغير حسب الاختيار في نموذج التقارير آمل الاطلاع والدراسة والاكتشاف . وموافتنا بالمرئيات والنتائج ADrjat4.rar

السلام عليكم ورحمة الله أخي الكريم، جرب المرفق... بن علية المرفق : البرنامجالتجريبي.rar

ماتقلقش الفكرة واضحة

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

تفضل اخي الكريم هذا مرفق لاستاذنا الكبير ابا فيصل ــ علي العتبيى (starnet) ادعو لنا ولولدينا StartNetBackUpAndLinksV2015.rar

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

جزيت خيرا وفقك الله

اخ حسين لا اعلم اين مشكلتك فما قام به الأخ حلبي لما طلبت بالتمام ولكن جرب Private Sub أمر4_Click() Me.form2.SetFocus DoCmd.GoToRecord , , acNewRec End Sub طبعا طبقه على المثال المرفق بالمشاركة 6 بالتوفيق

أخي العزيز/ amensrd هذا الملف به التعديل ليوم الجمعة مع طباعة الكشوفات لكل الأسماء أو لكشف واحد تحدد رقمه حسب تسلسله في القائمة إن شاء الله يكون هو المطلوب والعفو جدول دوام.rar

تم حل المشكلة اكو مشكلة 1.rar

أخي الحبيب وبعد إذن استاذنا ياسر جرب المرفق وهذا بحسب فهمي حساب قيمة الخلايا وعدد الخلايا 001.rar

السلام عليكم الشكر موصول لاخي ياسر لاثراء الموضوع يتم الامر ايضا بالاكواد ب للحصول على حروف كبيرة x = UCase(Text) للحصول على الحروف الصغيرة x = LCase(Text) النص يوضع مكان عبارة Text بين مزدوجتين " "

الاخ الكريم : سليم هذا ما كنت اعنيه بــ ( قبل ان تضغط الإنتر) وبهذه الطريقة الكود منقول للأمانه .. اشكر تجاوبك وأحيي فيك لمساتك الفنية الرائعة find_by_letter 11.rar

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

إليك المرفق بحسبما فهمت مع اخفاء القيم في حالة يوم الجمعة Test005.rar

تفضل 1. عملنا جدول لحفظ اللون (بينما في الرابط اللي اعطيتك ، تحفظ مجموعة صفات للحقل ، مثل 1. اسم الخط ، 2. حجم الخط ، 3. ثخانة الخط ، 4. منحني ، 5. تحته خط ، 6. لون الخط) ، 2. في النموذج frm_2 في الحقل اللي لونه اصفر: انقر مرتين في الحقل ، يظهر لك شاشة اختيار اللون ، اختار اللون ، وسيتم حفظ اللون في الجدول ، الان افتح النموذج frm_3 ، ستجد انه يأخذ لونه من الجدول جعفر 28.Color_Combobox.mdb.zip

استخدم نموذج به مربعين نص من إلى في الاستعلام اكتب المعيار التالي between forms!AAA!from and forms!AAA!to حيث AAA هو اسم النموذج الذي يوجد به مربع النص " من " from ومربع النص " إلى " to ثم اعمل تجميع في التقرير حسب أمر الشراء أو رقم الفاتورة حسب المطلوب الذي تريده

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

وجدتها فارغة.rar

أخوتي الأفاضل : أ رفق لكم اليوم 3 أمثلة برمجية فيها فائدة كبيرة : 1- المثال الأول picture2k.zip يحتوي على كيفية إضافة صورة الى نموذج . 2- المثال الثاني picturereport.zip يحتوي على كيفية إضافة صورة الى التقرير . 3- أما المثال الثالث subformreference2k.zip فهو من أهم الأمثلة : حيث يحتوي على معظم الأمور التي تتعلق بالنماذج الفرعية من إاضفة بيانات على النموذج الفرعي أو حذفها أو تحديدها أو ما شابه ذلك . مع الشكر ، ، ، picture2k.zip picturereport.zip subformreference2k.zip