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

قائمة بافضل المواقع شهرة وشعبية على مستوى العالم فى الاكسيل Excel حسب Alexa Ranking ========================================== وبكل اسف ولا موقع عربى فيهم . والسبب فى شهرة هذه المواقع حجم التفاعل وتبادل المعلومات والخبرات ادخل اى موقع وشاهد اى موضوع وقارن بنفسك . ولكن نحن فى العالم العربى قد نبخل حتى بعمل اعجاب او مشاركة او نخجل من وضع اراءنا ..........الخ لدينا الكثير من علماء الاكسيل العظماء فى العالم العربى اتمنى من الجميع الدعم لهؤلاء العلماء . واتمنى من مدربى الاكسيل وعلماؤه ان يقدمو ما لديهم بكل الطرق احلم بان نكون افضل من الغرب فى كل شىء .

اعرض الملف برنامج مخازن السلام عليكم ورحمة الله وبركاته برنامج المخازن يشتمل عدة أوراق إكسيل في مصنف 1- شاشة دخول ترحيب بالمستخدم الكريم. اسم المستخدم: admin كلمة المرو:123 2- الصفحة الرئيسية:تحتوي على روابط أوراق المصنف وإمكانية الخروج. 3- إذن إضافة وإذن صرف ومخزن رئيسي وآخر فرعي . 4- تقرير حركة المخزن: حسب تاريخي البدء والانتهاء ولكل صنف ضمن المخزن المحدد مع إمكانية طباعة أصنافعدة يحدد المستخدم رقم الصنف الأول ضمن الخلية I1 والأخير في الخلية J1 وفقني الله وإياكم لما يحب ويرضى كما أسألكم الدعاء بظهر الغيب لي ولوالدي ولذريتي وللمؤمنين بالقبول والصلاح والنجاح والفلاح ...آمين ولولدي الحبيب "علي" بالرحمة والمغفرة والفردوس الأعلى من الجنة ...آمين والسلام عليكم ورحمة الله وبركاته. أخوكم المحب لكم محمد حسن المحمد أبو يوسف برنامج المخازن.xlsm صاحب الملف محمد حسن المحمد تمت الاضافه 17 فبر, 2016 الاقسام قسم الإكسيل

أساتذتى الكبار أخوتى وأخواتى فى منتدى أوفيسنا أنا فخور انى أحد أعضاء المنتدى الكريم ده دائما ما نجد ضالتنا فيه لقيت الملف ده على موقع أجنبى وبصراحه عجبنى وحبيت أشارك بيه أحلى طاقم عمل فى المنتدى الى أن يتم شرحه وتفكيكه من عباقرة المنتدى مرفق ومنتظر اراءكم يارب يعجبكم New-Userform-.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم موضوع خفيف جداً .. والموضوع هو كيفية جعل النص في أداة العنوان Label يظهر بشكل رأسي (كنوع من الترفيه ليس أكثر) إليكم الكود المستخدم في الملف المرفق مع الشرح المبسط لأسطر الكود .. ليتسنى لكم التعرف على الأكواد بشكل أفضل Private Sub UserForm_Initialize() 'تعريف المتغير من النوع النصي Dim Word As String 'تعريف متغير من النوع عدد صحيح Dim I As Integer '[Label] تعيين عنوان لأداة الـ Label1.Caption = "YasserKhalil" 'حلقة تكرارية من الرقم 1 إلى طول السلسلة النصية للأداة For I = 1 To Len(Label1) 'يساوي قيمة المتغير نفسه زائد [Word] المتغير النصي المسمى 'حيث يتم استخراج حروف الكلمة [Mid] الحرف الذي يتم استخراجه باستخدام الدالة 'مع كل حلقة تكرارية يتم التعامل مع حرف واحد فقط في كل مرة 'بمثابة الضغط على إنتر للانتقال لسطر جديد [Chr(13)] زائد الدالة '[Vertical] بالتالي يتحقق الهدف من الكود وهو جعل النص يظهر بشكل رأسي Word = Word & Mid(Label1, I, 1) & Chr(13) 'الانتقال للحرف التالي Next I 'ليكون العنوان الجديد للأداة [Word] تعيين المتغير المسمى Label1 = Word End Sub يوضع الكود في حدث الفورم ...ويعمل عند بدء تشغيل الفورم وإليكم الملف المرفق التالي فيه تطبيق للكود حمل الملف من هنا ولا تنسونا بصالح الدعاء تقبلوا وافر تقديري واحترامي

ربنا يديم المعروف والمودة والروح الطيبة الموجودة بين جميع أعضاء هذا المنتدى العريق أجمل وأرق تحياتى للجميع

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

السّلام عليكم و رحمة الله و بركاته أهلاً أخي الغالي " ياسر العربي " ..أتمنى أنّك بمليون خير و صحّة و نعمة و بركة كلام جميل لا يصدر إلاّ من إنسان جميل الرّوح معك حق بكل كلماتك الشذيّة العطرة و المعطرّة بالود و الحب .. رقّة الاحساس و نبل الخلق آسف يا عزيزي .. عن التّقصير في حق نفسي و حق إخواني في الله من خلال هذا المنبر التعليمي المتميّز إليك أنتَ يا ياسر يا عربي خاصّةً .. إلى كل الذين أحببتهم في الله من خلال هذا المنتدى .. إلى كل الذين كان يمكن أن أحبهم لو عرفتهم .. آسف .. عن التّقصير بشتّى المجالات .. فائق إحتراماتي للجميع

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

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

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

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

السلام عليكم أخى الحبيب / ياسر خليل أخى الفاضل / كاسر الأمواج بالنسبة للكود الرائع الخاص بأخى الحبيب ياسر فيه نقطة واحدة وهى انه عند الاختيار من ComboBox2 يضع فى ComboBox3 كل الخلايا من العمود E التى تقابل الاختيار الموجود للـ ComboBox2 ( وليكن مستشفيات ) مثلا بغض النظر عن الاختيار الموجود فى ComboBox1 الخاص باسم المحافظة أى أنه يضع الاماكن المقابلة لكلمة مستشفى فى كل المحافظات وليست المحافظة المختارة فقط وذلك بسبب الكود cValues ولذلك عملت تعديل بسيط على الكود الرائع وسميته cValuesR لتدارك تلك النقطة الخاصة بـ ComboBox3 Sub cValuesR(Txt1 As String, Txt2 As String, Obj As Object, Col As Integer) Dim Dn As Range Dim Rng As Range Dim Dic As Object Obj.Clear With Sheets("Sheet1") Set Rng = .Range(.Cells(6, Col), .Cells(Rows.Count, Col).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = 1 For Each Dn In Rng If Dn.Offset(, -1).Value = Txt1 And Dn.Offset(, -2).Value = Txt2 Then If Not Dic.exists(Dn.Value) Then Dic(Dn.Value) = Empty End If End If Next Dn Obj.List = Application.Transpose(Dic.keys) End Sub Dependent ComboBox On UserForm YasserKhalil.rar

السلام عليكم ورحمة الله وبركاته يقول تعالى: ﴿إِنَّمَا الْمُؤْمِنُونَ إِخْوَةٌ فَأَصْلِحُوا بَيْنَ أَخَوَيْكُمْ وَاتَّقُوا اللَّهَ لَعَلَّكُمْ تُرْحَمُونَ﴾1. أهمية الأخوة لقد حثّ‏َ الإسلام العزيز على العلاقات الإنسانية القائمة على أسس الخير والصلاح والتي يكون عنصر الربط فيها نابعاً من الروح السامية والقلب السليم والعقيدة الصحيحة. لما في تلك العلاقات من تأثير متبادل بين الأطراف وخصوصاً الأخوّة في الله تعالى التي تترك بصماتها في الحياة الداخلية والخارجية للإنسان بعيداً عن حدود الإتصال بالنسب فقط كما قيل : "ربّ‏َ أخٍ لك لم تلده أمك فنحن داخل هذا المنتدى يوميا نطلب ونجيب ونناقش ونفيد ونستفيد كل هذا جميل فهذا غذاء العقل فأين غذاء الروح نريد ان تربطنا المودة والمحبة والاخوة في الله فنحن هنا اسرة فلابد من صلة رحم هذه الاسرة الكريمة الجميلة فلا نريد جعل هذا المكان مجرد تحصيل علم بحت فلقد قمت منذ فترة بعمل موضوع في المنتدى المفتوح ليكون ترويح عن النفس من ضغوط العمل وتعب الاعصاب الموضوع بسيط جدا كل واحد من احبابي الاعضاء لما يدخل المنتدى يدخل الموضوع يكتب اي شئ يعبر عن مزاجه حالته او اي شئ يراه نافعا لاخوته المهم نتواصل وكما قال اخي الغالي ابو يوسف وعسى أن تجلب هذه الصفحة رواداً أُخر ...فلا تنحصر باثنين أو ثلاثة ...نحن بحاجة إلى التغذية الروحية ... http://www.officena.net/ib/topic/64516-صباح-الخير-اثبت-حضورك-بكلمة/ اللهم إنا نسالك الفردوس الأعلى وأن تجمعنا في مستقر رحمتك ...آمين والسلام عليكم ورحمة الله وبركاته

الرخم وصل عمل جميل بس احط التاتش الترفيهي وانا اتعب نفسي ليه بص للمرفق من غير كود Label Vertical Text YasserKhalil.rar

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

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم قولت بدل ماارجع افتح المنتدى وايدى فارغه زى كل مره ويبقى شكلى مش ولا بد قولت اشارك اخوانى الافاضل بالمنتدى الرائع آخر ما استخدمت فى البرمجه ؟ نسخة فيجوال بيسك 2010 كامله من موقع مايكروسوفت ومجانيه قمت بتحمليها اليوم وكانت رائعه لعلها تحوز على اعجابكم . النسخه ايزو ممكن يتم حرقها على اسطوانه 700 MP لكن الافضل DVD 4GB ببرنامج الترا ايزو او استخدامها من سى دى وهمى بنفس البرنامج او فك ضغط الملف باى برنامج ضغط اليكم الرابط http://download.microsoft.com/download/1/E/5/1E5F1C0A-0D5B-426A-A603-1798B951DDAE/VS2010Express1.iso

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

اخى الفاضل يمكن ربط الفيجوال بيسك بالاكسل ليعطى نتائج رائعه ولك رابط لشرح ذلك لاخى الفاضل ياسر العربى جزاه الله كل خير

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء اسعدنى الله بكم خير صحبة وخلان اجتمعنا على العلم فزادانا الله من فضله وعلمه وجمعنا بالايمان والمحبة فى الله فنعم الرزق المبارك من الله عز وجل

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

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

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

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

جزاكم الله خيرا استاذى الحبيب كل مافى الامر اننى احببت ان اغير واعكس فدائما يتم السؤال ونحن نقوم بالاجابه فاحببت ان اسال بنفسى واشاهد الاجابات واشارك معكم وهذا حلى المتواضع اولا: تحويل هذا الرقم20161225 الى رقم تسلسلى يمثل التاريخ =DATE(LEFT(A1;4);MID(A1;5;2);RIGHT(A1;2)) ثانيا تحويل الرقم التسلسلى 42729 الناتج من المعادلة السابقة الى تاريخ باستخدام المعادلة ويمكن من خلال تنسيقات الخلايا ثم تنسيق الرقم الى تاريخ =TEXT(C1;"dd/mm/yyyy") تقبلوا منى اجمل التحيات

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

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

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

بسم الله الرحمن الرحيم وبه نستعين إخوانى الافاضل السلام عليكم ورحمته الله وبركاته أسعد الله أوقاتكم أينما كنتم بناءا على طلب من الاستاذه الفاضله وأختنا الكريمة داليا رجب بإعادة رفع برنامج مرتبات السادة العاملين بالقطاع الخاص أتشرف بإعادة رفعه مرة أخرى وخاصة لمن يواجهه مشكلة فى تحميل المرفق أدرك أن البرنامج لايرقى بمستوى رقى نظيره من البرامج المقدمه من إخوانى الافاضل بالموقع ولكنه يفى بالغرض الذى صمم من أجله تقبلوا وافر احترامى وتقديرى ***** وجزاكم الله خيرا برنامج مرتبات للقطاع الخاص 2003- سعيد بيرم.rar برنامج مرتبات للقطاع الخاص 2007- سعيد بيرم.rar

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

جزاكم الله خيراً أخي الحبيب رجب على هذا الحل الرائع إليك حل آخر إثراءً للموضوع ضع الكود التالي في حدث الفورم Private Sub UserForm_Initialize() Dim Rng As Range Dim Dn As Range Dim Dic As Object With Sheets("Sheet1") Set Rng = .Range(.Range("C6"), .Range("C" & Rows.Count).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = vbTextCompare For Each Dn In Rng: Dic(Dn.Value) = Empty: Next ComboBox1.List = Application.Transpose(Dic.keys) End Sub Private Sub ComboBox1_Click() Call cValues(ComboBox1.Value, ComboBox2, 4) '4 Is Column Number End Sub Private Sub ComboBox2_Click() Call cValues(ComboBox2.Value, ComboBox3, 5) '5 Is Column Number End Sub Sub cValues(Txt As String, Obj As Object, Col As Integer) Dim Dn As Range Dim Rng As Range Dim Dic As Object Obj.Clear With Sheets("Sheet1") Set Rng = .Range(.Cells(6, Col), .Cells(Rows.Count, Col).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = 1 For Each Dn In Rng If Dn.Offset(, -1).Value = Txt Then If Not Dic.exists(Dn.Value) Then Dic(Dn.Value) = Empty End If End If Next Dn Obj.List = Application.Transpose(Dic.keys) End Sub قمت بإعادة تسمية الكومبوبوكس .. بدلاً من Sanf استخدمت الاسم الافتراضي ComboBox1 وبدلاً من Nawa استخدمت ComboBox2 والثالث جعلته بدلاً من ComboBox1 جعلته ComboBox3 .. كما قمت بإزالة الـ Row Source لأول كومبوبوكس .. تم الاستغناء عن الأكواد في حدث ورقة العمل .. فقط الكود في حدث الفورم هو الذي يقوم بالمهمة كاملة إن شاء الله أرجو أن يكون الملف مقبول لديكم تقبل تحياتي Dependent ComboBox On UserForm YasserKhalil.rar

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

كل الشكر والتقدير لمروركم الكريم ودعمكم الجميل جمعنا الله واياكم في مستقر رحمته اللهم امين

اخي الفاضل ضع هذا الكود في نهاية كود التعديل ComboBox15.RowSource = "" ComboBox16.RowSource = ""

يمكن استعمال هذا الكود و الكتابة في العامود H (الترتيب برده الاجنبية) Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If IsNumeric(Target.Value) And Target.Count = 1 And Target.Column = 8 Then Target.Offset(0, 1).Value = Target.Value Target.Offset(0, 1).NumberFormat = "#""" & Mid$("thstndrdthththththth", 1 - 2 * ((Target.Value) _ Mod 10) * (Abs((Target.Value) Mod 100 - 12) > 1), 2) & """" End If Application.EnableEvents = True End Sub

ارجوا المساعدة في تعديل على الكود حيث كومبكس1 يستدعي كومبكس2 وكمبوكس 2 يستدعي كومبكس3 وكومبكس 3 يستدعي البيانات الى تكست بوكس اماكن.rar

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

مبادره طيبة جدا جزاكم الله خيرا وبارك فيكم

السلام عليكم ورحمة الله وبركاته الفرق بين تاريخين باستخدام الدالة DATEDIF اتمنى ان يفيدكم جميعا تعريف الدالة امثلة على استخدام الدالة مدونة خبير اكسيل http://excelfinancial1.blogspot.com.eg/ تحميل الملف الفرق بين تاريخين.rar

اللهم صل على سيدنا محمد عمل رائع ومتقن بوركت

بارك الله فيك ملف رائع بس محتاج شرح فيديو

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

أخي الكريم عبد العزيز محمد إليك الملف المرفق لأخونا أبا الحسن والحسين فيه الطلب الأول بالنسبة للطلب الثاني توجد الأداة Frame تقوم بعمل إطار يمكنك وضع الأدوات بداخلها أرجو أن يفي الملف المرفق بالغرض Gregorian Hijri Dates UserForm.rar

بالنسبة للملف 111 قد كتبت فقط IF(ISNUMBER(FIND("نعم",H6)),"TRUE") اي اذا وجدت في الخانة H6 كلمة نعم تكون النتيجة TRUE اما بالنسبة للالوان . فكانت اذا كانت True يكون لون الخلية ازرق و العكس احمر.. و يمكن عمل هذا عن طريق تحديد الخلايا المراد تلوينها ثم الذهاب الى HOME --> Conditional Formatting --> Color Scales --> more rules --> format only cells that contain ( specific text) --> TRUE --> Formt لاجل اختيار الالون ... و اعادة نفس الخطوت مع الكلمة FLASE... ... انظر الصورة : اما بالسنةللاخ اعتقد انا الفرق فقط كان انه استعمل القائمة المنسدلة بالنسبة لكلمة "نعم" /"لا.....لاجل عدم ادخال اي عبارة اخرى... اتمنى ان الفكرة توضحت ....

و عليكم السلام ... 1- لا اعتقد انك بحاجة لزر سيف لانه المعلومات تسيف تلقائي . 2- اكتب خلف الزر (مثلا) [ع الشكل]![عدد الضلف 2]=1 [ع الشكل]![مقاس 1 ط]=Forms]![m2]![tl]-([Forms]![m2]![mk]*4))/3]) و هكذا ... 3- كيف يكون شكل التقرير مثل النموذج ام مختلف . 4- ما فهمت هذه النقطة ...

وعليكم السلام وبعد إذن أخي ابوخليل هنا اجمع جميع الطرق اللي تخطر على بالي ، وهي 4 طرق 1. طريقة أخي ابوخليل: Private Sub Text0_Click() Me.Text0 = Me.Text0.Name End Sub . الطرق الثلاث الباقية تعتمد على الوحدة النمطية: Option Compare Database Function Who_Am_I() Dim frm As Access.Form Dim ctl As Access.Control Set frm = Screen.ActiveForm 'get the active Form Name Set ctl = Screen.ActiveControl 'get the active Control (in our case it was a field) name 'The way we address a Field in another Form, 'like this: Forms!FormName!FieldName 'so we have to do it here similarly, 'this will send the field name to the active Field in the active Form Forms(frm.Name)(ctl.Name) = ctl.Name 'this will return the Funtion Who_Am_I value to the variable that called it Who_Am_I = ctl.Name End Function 2. ننادي الوحدة النمطية مباشرة (لاحظ علامة = ) ، ولا يوجد كود محلي في VBA : . 3. نعمل كود محلي ، والذي ينادي الوحدة النمطية: Private Sub Text4_Click() 'this way will get the field name from the Function Who_Am_I 'and it will place the value in the Field in the Form Call Who_Am_I 'this way will get the field name from the Function Who_Am_I 'and it will place the value in the Field in the Form 'and it WILL place the Field name in the variable A, so that we can use it A = Who_Am_I MsgBox A End Sub . وبما اننا نادينا الوحدة النمطية Who_Am_I عن طريق المتغير A ، فاصبح المتغير A لديه نتيجة/قيمة الوحدة النمطية ، وعليه نستطيع ان نستخدم هذه القيمة كيف نشاء في الكود ، فمثلا استخدمناها لإعطاءنا رسالة بإسم الحقل ، والنتيجة: . 4. نعمل ماكرو ، ونجعل الماكرو ينادي الوحدة النمطية: . (لاحظ مافي علامة = ) ، ولا يوجد كود محلي في VBA: . جعفر 280.db2016.accdb.zip

بسم الله الرحمن الرحيم اليوم سنتحدث - عن خصائص المشروع الخاص بنا كيفية فتح نافذة خصائص المشروع ومكونتها المهمة اولا نقوم بانشاء مشروع جديد كالعادة ونضع مثلا اتنين فورم وبعد الانشاء نقوم بالذهاب لخصائص المشروع كما موضح بالصورة فتظهر لنا النافذة التالية 1- المشروع الافتراضي ودا هنسيبه كدا 2- الفورم اللي محتاجينه يفتح عند تشغيل برنامجنا والوضع الافتراضي انه فورم واحد هو اللي بيفتح نفترض ان صممنا فورم اتنين علي اساس انه شاشة الدخول هنعمل ايه نغير من هنا ونخليها فورم اتنين بس يامعلم 3- اسم المشروع الافتراضي لو عاوزين كل ما نعمل مشروع بدل كلمة project نسميه اسم تاني عادي شغال 4- دا لو هترفق ملف مساعدة مع البرنامج باين انا شايف ان ننفض ليها نخش في المهم 5- Make ودي بقي الشغل المهم هنا ونشوف صورتها بقي 1- طبعا كلنا نعرف الإصدارات للبرامج اللي هي version ربنا كدا لما يكرمك وتبقي مبرمج قد الدنيا كدا وتلاقيك بتعمل برنامج اساسي كدا وبتعمل له اصدارات مختلفة من رقم واحد دا بنحدد رقم الاصدارة اللي بنعملها والافتراضي واحد ونغير زي ما احنا عايزين 2- عنوان المشروع ودا عشان بقي لزوم الكماليات عشان أي رسالة تنبيه مسج بوكس أي حوارات تظهر يبقي مكتوب فوقها في titlebar اسمنا كدا 3- ودي معلومات برنامجنا تحط فيه بقي كل بياناتك وحقوقك وشركتك وعلامات تجارية وملاحظات تظهر في خصائص برنامجنا. 4- ودي طبعا ايقونة المشروع بتاعنا النهائي واللي اخي عبد العزيز كان محتاجها بنختار ايقونة من ايقونات الفورمات الموجودة داخل المشروع طيب الايقونات الموجودة حاليا الافتراضية وشكلها رخم نعمل ايه ياعم عبد العزيز نروح للفورم واحد ونشوف كدا 1- نفتح لاختيار الايقونة المراد وضعها للفورم 2- نحددها ونضغط open لتظهر هكذا في اعلي يسار الفورم وايضا تظهر في الtaskbar عند فتح الفورم في البرنامج ملحوظة الايقونات اللي هتشتغل معانا الأيقونات بعمق ألوان 32bitاو اقل يعني 64 هتظهر اخطاء ومش هتنضاف للفورم نذهب بعد ذلك لخصائص المشروع ونروح ل Make كما بالصورة نجد ان الايقونة تغيرت لانه البرنامج بياخد الايقونة للفورم واحد افتراضي طيب لو غيرنا جبنا فورم اتنين كدا الايقونة الافتراضية للفورم اتنين لاننا لم نقم بوضع ايقونة له نرجع للفورم واحد ونحفظ مشروعنا ونحوله لملف تنفيذي ونشوف النتيجة وبكدا نكون خلصنا جزء خصائص المشروع والى اللقاء في درس اخر باذن الله تحياتي ياسر العربي يتبع

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

اخي الكريم rudwan جزاك الله خير على هذا العمل المميز و اسأل الله ان يكتب ذلك في ميزان حسناتك واذكرك بحديث الرسول صلى الله علية وسلم أنه قال: ((إن الله وملائكته وأهل السموات والأرضين، حتى النملة في جحرها، وحتى الحوت، ليصلون على معلم الناس الخير)) ـ والصلاة من المخلوق هي الدعاء [رواه الترمذي (2685)، والدارمي (289)]. فقد ثبت في الحديث أن النبي – صلى الله عليه وسلم قال: " إذا مات الإنسان، انقطع عمله إلا من ثلاث، صدقة جارية أو علم ينتفع به، أو ولد صالح يدعو له رزقك الله الجنة