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

السادة / أعضاء منتديات أوفيسنا التعليمية الموقرين السلام عليكم ورحمه الله وبركاته بالمرفقات (( هدية )) بريمج العيادة الطبية الإصدار الأول التجريبى ملف تنفيذى أى بإمتداد exe لا يحتاج الى خفض أمان الماكرو لكى يعمل يرجى تجربتة وإبداء الملاحظات من قبل كل مهتم وتقبلوا منى وافر الاحترام والتقدير بريمج العيادة الطبية الإصدار الأول32 بت.rar

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

السلام عليكم تفضل أخى Book123.rar

1. سيبك من ده دلوقتي 2. ميزة الاكسس هو مصمم الاستعلامات ، استفيد منه ، لأنه جدا قوي ، و أحد اسرار الاستعلام ، ما تعمل كل شئ في استعلام واحد ، وانما تهيئ استعلام لإستعلام آخر (كما في مثالك اعلاه ، وكما في المثال التالي): http://www.officena.net/ib/topic/67637-جمع-حقول/?do=findComment&comment=440543 هي قاعدة البيانات ايه؟ 1. ادخال بيانات ، 2. بحث وتصفية البيانات (استعلام) ، 3. إظهار النتائج. فالاستعلام هو اهم شئ تقدر تستفيد منه في الاكسس ، وحتى لما نستعمل الكود ، نستخدم الاستعلام للسجلات اللي نريدها (يعني نجهز السجلات اولا بالاستعلام) ، ثم نكمل الباقي بالكود ، والذي هو أبطأ بكثير في عمله من الاستعلام جعفر

تفضل يا باش مهندس الاستعلام: . والنتيجة: . جعفر 308.Tire operation System.mdb.zip

وبارك الله فيك اخي كرار بالتوفيق

شكرا اخوي عبدالرحمن على الملاحظة يبدوا ان هذه هي مشكلة اخونا عبدالله قدور

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

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

ايش رأيك في مثال موسع أكثر نستطيع ان نعمل قاعدة التحقق من الصحة في كود ، مثلا: اعمل حقل اسمه int_No ، وعلى حدث "الحالي" للنموذج ، استعمل كود مثل هذا: Private Sub Form_Current() If Day(Date) <= 5 Then Me.int_No.ValidationRule = "is null or <=5" ElseIf Day(Date) <= 10 Then Me.int_No.ValidationRule = "<=10" ElseIf Day(Date) <= 15 Then Me.int_No.ValidationRule = "isnumeric([int_No])=true" ElseIf Day(Date) <= 20 Then Me.int_No.ValidationRule = "isnumeric([int_No])=false" ElseIf Day(Date) <= 25 Then Me.int_No.ValidationRule = "between 15 and 30" Else Me.int_No.ValidationRule = "between 1 and 14" End If End Sub . فحسب يوم الشهر ، تتغير قاعدة التحقق من الصحة مرونة تامّه ، مو مثل الجدول جعفر

أخي الحبيب رجب جاويش بارك الله فيك وجزتي خيراً على حلولك الجميلة مجرد سؤال : لما قمت بكتابة أكواد في حدث كل ورقة عمل على حدا .. ما رأيك بإزالة كل الأكواد في حدث كل أوراق العمل ووضع الكود التالي في حدث المصنف Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = [B4].Address Then Application.EnableEvents = False Sheets("1").[B4] = Target.Value Sheets("2").[B4] = Target.Value Sheets("3").[B4] = Target.Value Application.EnableEvents = True End If End Sub تقبل وافر تقديري واحترامي

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

السلام عليكم أفضل تحية لأخى الحبيب ياسر على فتح موضوعات تفيد الجميع وتفتح نقاشات جميلة تعود بالنفع على جميع الأعضاء بالنسبة لهذ الموضوع ( اخفاء جميع الأعمدة ما عدا أعمدة محددة ) الكود الذى قدمه أخى المبدع سليم هو أبسط كود يقوم بعمل المطلوب فعلا ولكن لاثراء الموضوع هذه فكرة أخرى وفيها يتم تحديد الأعمدة المراد عدم اخفاءها عن طريق الماوس داخل inputBox وفى حالة تحديد أعمدة غير متجاورة يستخدم مفتاح CTRL أثناء التحديد Sub ragab() Dim Rng As Range On Error Resume Next Application.DisplayAlerts = False Set Rng = Application.InputBox(Prompt:="قم بتحديد الأعمدة التى لا تريد اخفاءها عن طريق الماوس وعند اختيار أعمدة غير متجاورة اضغط مفتاح Ctrl أثناء التحديد", Title:="اخفاء مخصص", Type:=8) Application.DisplayAlerts = True If Rng Is Nothing Then Exit Sub Columns.Hidden = True Rng.EntireColumn.Hidden = False End Sub

حياك الله اخي الكريم شاهد المرفق شاهد حدث في الحالي للنموذج وحدث بعد التحديث لحقل birthdate بإمكانك اخفاء حقل calculate فيما بعد بالتوفيق Tccst.rar

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

يمكن استخدام طريقة تغيير خاصية قابل للتعديل وبالقيمة =نعم ! مع افتراض ان الخاصية تاخذ القيمة لا عند تحميل النموذج فعند تحميل النموذج يكون الحدث وعند التحميل للنموذج Me.AllowEdits = False وعند الضغط على الزر يكون الحدث Me.AllowEdits = true وهنا يظهر استفسار : ماذا بعد التعديل في النموذج هل يتم عودة عدم السماح بالتعديل ام يظل التعديل متاح ؟ فاذا يعود الاقفال اكتب الحدث التالي وعند بعد التحديث للنموذج Me.AllowEdits = False هنا اصبح السناريو : عند تحميل النموذج اول مرة غير متاح .... عند النقر على الزر متاح ... بعد التعديل يعود عدم السماح بالتوفيق

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

بسم الله الرحمن الرحيم ارجو عدم التعليق داخل الموضوع لسهولة الوصول للدروس تباعا والتعليق يكون داخل الموضوع في الرابط التالي http://www.officena.net/ib/topic/65630-الردود-والاستفسارات-عن-دروس-الفيجوال-بيسك6-والاكسيل-ياسر-العربي/ أما ألان دعونا نغوص في بحور الفيجوال قليلا وترك الإكسيل مؤقتا لحين الإلمام بمبادئ الفيجوال وبداياته ثم نتحول للربط بينهم فيما بعد أولا قمت بإرفاق نسخة محمولة من برنامج الفيجوال بيسك6 موجودة هنا صغير الحجم وتفي بالغرض ألان http://up.top4top.net/downloadf-top4top_20111f0b9a1-rar.html نقوم بتفعيل البرنامج من VbPortable6.reg ثم نقوم بتشغيل البرنامج منvb6 وان واجهتم اي مشكلة في التشغيل يرجى تشغل البرنامج كمسئول كما بالصورة تظهر لنا الشاشة الآتية 1- فتح مشروع جديد 2- فتح مشروع موجود مسبقا 3- اخر مشروعات تم فتحها 4- وهو المشروع الافتراضي الذي سنعمل عليه دائما نقوم بفتح standard.exe جديد سيظهر لنا بالشكل التالي 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا وبكدا نكون عرفنا شكل الواجهه للبرنامج نخش في مقارنة سريعه قبل البدأ في العمل علي المشروع بين هذه النافذه ونافذه محرر الاكواد داخل الاكسيل وهذه صورة لنافذة محرر الاكواد داخل الاكسيل 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا ايه دا تخيلو ان احنا بنتعامل مع نفس محرر الاكواد كله كان مصعبها علي نفسه ويقول برمجة ومش عارف ايه اهو هو هو محرر الاكواد بس التوسع في مجال اخراج البرامج انما الواجهه وطريقة العمل هي بعينها طيب وبعدين ياعم الحاج كمل اقول لكم حاجه حلوة كمان ومقارنة سريعه تانية نفس الادوات واسمائهم بس مش عارف بيرخموا ليه وبيزودو كلمة بوكس وبوتن يعني لما نكتب مثلا تكست بوكس 1 بتساوي تكست بوكس 2 نعملها كدا اكسيل TextBox1.Text = TextBox2.Text فيجوال بيسك6 Text1.Text = Text2.Text دا الطبيعي العادي وممكن نسميهم مثلا اسيل1واسيل2وتمشي مع المحررين Aseel1.text = aseel2.text اظن كدا الصورة وضحت لمعظم الموجودين والمتابعين يلا بينا نعمل برنامجنا الاول مع بعض وقبل المشروع الاول نبدأ بمشروع بسم الله الرحمن الرحيم نضع عدد واحد تكست وكومند1 نضغط علي الكومند مرتين ليظهر محرر الاكواد نضع به التالي ثم نضغط run او F5 ثم نضغط علي الزر ليظهر لنا بسم الله نبدأ من جديد طيب لحفظ المشروع علي هذا الوضع نقوم بالذهاب الى قائمة File ومنها save project as ونحدد له مكان ونحفظ يتم حفظ المشروع وعدد الفرومات الموجودة معه طيب عاوزين نحول البرنامج بتاعنا لتنفيذي بقي عشان نشغله علي أي جهاز ونفرج الناس علي ابداعنا في الفيجوال بردو من قائمة file نختارmake project ونضعه في المكان اللي احنا عاوزينه وهذا شكل البرنامج ناخد مشروع تاني علي السريع صغير ايضا عبارة عن أله حاسبة بسيطة المكونات تلاته تكست تلاته ليبل اربعه كومند كما بالصورة ونضع بداخل الفورم الاكواد التالية ونحفظ المشروع ونحوله لملف تنفيذي كما تعلمنا سابقا وزي الشطار كدا كل واحد يرفق المثال اللي عمله في موضوع الردود والاستفسارات عن درس الفيجوال بيسك6 والاكسيل وانا علي ثقة تامة ان الاخوة المتابعين سيبدعوا في العمل انا حاولت اشرح بطريقة تقليدية بسيطة ولكن هلاقي منكم ابداع غير عادي باذن الله وهلاقي برامج تانية بتتعرض منكو باذن الله مع تحياتي ياسر العربي يتبع

السلام عليكم ورحمة الله وبركاته برنامج الجدول المدرسي الاصدار الثاني مقدمة عامة عن عمل البرنامج: يصلح لجميع المدارس ايا كان نوعها في اي قطر من الاقطار العربية وذلك للميزات والامكانيات التالية: مميزات البرنامج 1 - عدد الحصص اليومية 12 حصة يتمدد وينكمش من 6 حصص الى 12 حصة. 2 - عدد ايام الاسبوع 7 ايام يتمدد وينكمش من 5 ايام الى 7 ايام. 3 - عمل قوائم للفصول لكل مدرس وامكانية التبديل بينها وبين قائمة كل الفصول. 4 - يتسع 120 معلم و120 فصل و120 مادة. 5 - التحكم في عرض اوراق المصنف يمينا او يساراً ========================= امكانيات البرنامج 1 - استخراج جداول الفصول (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 2 - استخراج جداول المعلمين (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 3 - استخراج جداول المواد(الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 4 - استخراج جداول اجمالي الفصول 5 - استخراج جداول اجمالي المعلمين الاعدادات الاولية في بداية العمل على البرنامج في الرئيسية 1 - غير العام وبداية العمل بالجدول في الخلايا D2:D3 2 - غير العناوين للمحافظة والادارة والمدرسة في الخلايا B6:B8 3 - اضغط زر حذف جميع البيانات لحذف جميع البيانات في المصنف 4 - ادخال اسماء الايام في جدول الاسبوع خمسة ايام افتراضية 5 - تحديث قائمة الحصص باختيار عدد الحصص التي تريدها في الرئيسية انشاء قوائم للفصول لكل مدرس في الصف المقابل للمدرس في الاعمدة F:O حول البرنامج برنامج مجاني الاصدار الثاني برمجة / خبور خير باستشارة الاستاذ / محمدي عبد السميع الذي سيقوم بالردعلى استفساراتكم خبور خير برنامج الجدول المدرسي الاصدار الثاني.rar

السلام عليكم اخوانى وأساتذتى فى المنتدى وكل عام وأنتم بخير بمناسبة عيد الفطر اليوم أقدم لكم كيفية عمل اختصار لملف اكسل به صورتك على سطح المكتب فقد لفت نظرى طلب أحد الأخوة لهذا الموضوع لذلك قررت أن أضع بين أيديكم الطريقة الآتية 1 - فى ملف اكسل أدرج هذا المديول Option Explicit Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function GetActiveWindow Lib "user32" () As Integer Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long Const CSIDL_PERSONAL = &H5 Private Type SHITEMID cb As Long abID As Byte End Type Private Type ITEMIDLIST mkid As SHITEMID End Type Dim FSO As New FileSystemObject Dim FLD As Folder Function UserNameOffice() As String UserNameOffice = Application.UserName End Function Public Function DesktopAddress() As String DesktopAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator End Function Private Function GetSpecialFolder(CSIDL As Long) As String Dim Path As String Dim FolderPath As Object Dim IDL As ITEMIDLIST Dim sh As New Shell32.Shell Set FolderPath = sh.NameSpace(5) If Not FolderPath Is Nothing Then GetSpecialFolder = FolderPath.Self.Path Exit Function End If GetSpecialFolder = "" End Function Function DirExists(strDirectory As String) As Boolean DirExists = (Dir(strDirectory, vbDirectory) <> "") End Function Sub Desktop_Shortcut() Dim WBName As String, Path As String, WB_Link As String, WB_Name As String Dim DesktopPath As String, TargetPath As String, StrSave As String Dim WSHShell As Object, MyShortcut As Object Set WSHShell = CreateObject("WScript.Shell") Dim FSO As Object, Folder As Object, File As Object Set FSO = CreateObject("Scripting.FileSystemObject") Dim WB As Workbook Set WB = ThisWorkbook Dim WSh As Worksheet Set WSh = Sheet1 WBName = WB.Name Path = "MyFile" DesktopPath = WSHShell.SpecialFolders("Desktop") WSh.Range("C2").Value = WB.Name WB_Name = WSh.Range("C3").Value WB_Link = WSh.Range("C4").Value On Error GoTo ErrHandle If Not DirExists("C:\" & WB_Name) Then 'Check C Drive If Not DirExists(GetSpecialFolder(CSIDL_PERSONAL) & "\" & WB_Name) Then 'Check My Documents Set FSO = CreateObject("Scripting.FileSystemObject") 'If not in C Drive or My Documents - then create shortcut FSO.CreateFolder "C:\" & WB_Name ChDir "C:\" & WB_Name SavePicture Sheet1.Image1.Picture, WB_Name & ".ico" 'Picture pasted onto Image1 on Sheet 1 - Link Shortcut Set FSO = CreateObject("Scripting.FileSystemObject") Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\" & WB_Link) With MyShortcut .TargetPath = WB.FullName .IconLocation = "C:\" & WB_Name & "\" & WB_Name & ".ico" .WindowStyle = 1 .Description = "EEZIAdmin" .WorkingDirectory = WB.Path .Save End With Else End If End If ErrHandle: Set WSHShell = Nothing End Sub 2 - فى شيت 1 الخلية C3 ضع المعادلة =IF($C$2="";"";IF(MID($C$2;(LEN($C$2)-4);"1")=".";LEFT($C$2;LEN($C$2)-5);IF(MID($C$2;(LEN($C$2)-3);"1")=".";LEFT($C$2;LEN($C$2)-4);""))) وفى الخلية C4 ضع المعادلة الآتية =IF($C$3<>"";$C$3&".lnk";"") 3 - فى شيت 1 ادراج Image وعليها صورة : ندرج الـ Image كالتالى من developet tab ثم insert ثم more controls ثم Microsoft forms 2.0 image ثم ok ارسم الـــــ Image فى الشيت وبعدين كليك يمين عليها واخنر Properties فى قائمة الخصائص التى تظهر دور على الخيار Picture واعمل ادراج لأى صورة من على جهازك على الـ Image واحفظ وشغل الكود لكم كل التحية والتقدير Desktop Shortcut mokhtar.rar

اعطني اسم النموذج ، وكيف استطيع ان ارى هذه الرسائل؟

وعليكم السلام تفضل ، عملت هذه الحقول في الاستعلام: . وهذا كود كل حقل ، ولا تهتم للمسميات الانجليزية ، فانا وضعتها هنا حتى يتم كتابة/قرأة الكود بالطريقة الصحيحة: magmoa: Nz([althryry],0)+Nz([alsafhy],0)+Nz([alwagp],0)+Nz([almoatapa],0) mohasilh: Round([magmoa]/5,0) natygh: IIf([magmoa]>49.5,"Pass-ناجح",IIf([magmoa]=0,"Absent-غائب","Failed-راسب")) mostwa: IIf([magmoa]>74,"Good-جيد",IIf([magmoa]<50,"Weak-ضعيف","Average-متوسط")) . والنتيجة: جعفر 307.المعلم اليمني المجموع والمحصله.mdb.zip

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

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

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

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

بالنسبة الى الامر Nz ، انظر الطريقة الصحيحة لإستعماله: جعفر

السلام عليكم تفضل هذا النموذج يعطيك نظرة شاملة عن حقول التواريخ: . قاعدة التحقق من الصحة في الحقول Date_1 و Date_2 ثابته في الجدول ، مثلا: . وقاعدة التحقق من الصحة في الحقول Date_11 و Date_22 متغيرة في الجدول على اساس السنة ، مثلا: . بينما قاعدة التحقق من الصحة في الحقول Date_111 و Date_222 متغيرة في النموذج ، مثلا: . والكود يمكن يكون: سواء Between [Date_From] And [Date_To] او اذا التواريخ موجودة في نموذج خارجي Between [Forms]![frm_Dates]![Date_From] And [Forms]![frm_Dates]![Date_To] . والتجربة: . النتيجة اللي كنت اريد ان اوصل لها هي ، عندما تكون التواريخ متغيرة في النموذج (وهذا رأي اخوي ابو خليل كذلك) ، فيكون عندك تحكم افضل ، وتغييره يكون اسهل ، وخصوصا اذا كان البرنامج عند العميل ، لأن برمجة النموذج ممكنه جعفر 306.Validation_Rule.mdb.zip

استاذ محمد الق نظرة على الرابط http://www.officena.net/ib/topic/67762-استخراج-رمز-المعالج-والماذر-بورد-ورقم-الهارد-ديسك-للحماية/ بالتوفيق للجميع

عزيزي ومع اني اشك ان هناك طريق اقصر لما تريد ولكن كحل لمشكلة ظهور الرسالة في المعيار للاستعلام استبد المعيار السابق بالتالي [Forms]![S1M]![اسم الطالب] بالتوفيق

العفو بالتوفيق

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

حياك الله اختي الكريمة الق نظرة على الرابط http://www.officena.net/ib/topic/34968-اظهار-المكرر-فقط-تمت-الإجابة/ بالتوفيق

ارجو ان يكون المطلوب 1 salim.rar

لا توجد صورة ولا يوجد مرفق جعفر

أخوي ابو خليل رحم الله والديك دنيا وآخرة ، كنت اريد ابحث عنها جعفر وتمت التجربة بنجاح وان شاء الله استخدم هذه الطريقة في مرفق الرابط: http://www.officena.net/ib/topic/67205-هل-من-حل-شافى-لمشكلة-اختلاف-اعدادات-اللغة-بالويندز-على-الأجهزة-المختلفة/?do=findComment&comment=437551 وبهذه الطريقة يتكامل الموضوع اكثر جعفر

عدم الرد من صاحب السوال جعلني ادخل مرة اخرى اواكتشف اني لم ارفق الوحدة المسؤولة عن الترجمة تفصل والصقها في صفحة وحدة نمطية جديدة Public Ok, Cancel, ABORT Public RETRY, IGNORE, YES, NO Private m_hHook As Long Private Const IDOK = 1 Private Const IDCANCEL = 2 Private Const IDABORT = 3 Private Const IDRETRY = 4 Private Const IDIGNORE = 5 Private Const IDYES = 6 Private Const IDNO = 7 Private Const WH_CBT = 5 Private Const GWL_HINSTANCE = (-6) Private Const HCBT_ACTIVATE = 5 Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, _ ByVal lpString As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Public Sub MessageBoxH(hwndThreadOwner As Long) Dim hInstance As Long Dim hThreadId As Long hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE) hThreadId = GetCurrentThreadId() m_hHook = SetWindowsHookEx(WH_CBT, AddressOf _ MsgBoxHookProc, hInstance, hThreadId) End Sub Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) As Long If uMsg = HCBT_ACTIVATE Then SetDlgItemText wParam, IDOK, Ok SetDlgItemText wParam, IDCANCEL, Cancel SetDlgItemText wParam, IDABORT, ABORT SetDlgItemText wParam, IDRETRY, ABORT SetDlgItemText wParam, IDIGNORE, ABORT SetDlgItemText wParam, IDYES, YES SetDlgItemText wParam, IDNO, YES UnhookWindowsHookEx m_hHook End If MsgBoxHookProc = False End Function

شكرا اخي جعفر على هذه النوادر الجميلة وتفضل اخي عبدالله يمكنك كتابة اي شيء على الزر Dim resalh As Integer Ok = "أكيد موافق" Cancel = "not agree" MessageBoxH Me.hwnd resalh = MsgBox("تفضل هذه الخلطة في اللغة", vbOKCancel, "رسالة")

بسم الله الرحمن الرحيم اليوم سنقوم بشرح طريقة ربط الفيجوال بيسك بالإكسيل اولا نعمل مشروع جديد عبارة عن فورم وواحد كمبوبوكس وسته تكست وثمانية ليبل وخمس أزرار وملف اكسيل بامتدادxlsx واسمه aseel امتداده اظن لا يدعم وحدات الماكرو بس عادي مع الفيجوال شغال بنفس ترتيب الشكل الاتي: خلصنا الشكل السابق ندخل علي الشغل الجديد بقي كلنا أكيد سمعنا عن المتغيرات وكلنا تعاملنا معاها قبل ما نشوف المتغيرات الفيجوال عشان نربطه بالإكسيل لازم له مراجع ومتغيرات عامة على مستوى المشروع بأكمله إيه الكلام دا بيتعمل ازاي المرجع دا ولا بنجيبه منين شوفو معايا الصور بعد الخطوات دي ياترى بنعرف نضيف موديول زي ما بنضيف فورم جديد كدا اللي بيعرف يضيف اللي مش عارف ينزل للصورة معايا ويشوف ايه البيانات دي يامعلمين دي بقي المتغيرات العامة اللي بنقول عليها وبتكون علي مستوى المشروع بأكمله يعني لازم تتحط في موديول ولتبسيط الكلام اللي فوق دا بطريقة سهلة اول سطر Public YXL As New Excel.Application YXL دا متغير يشير الى برنامج الاكسيل نفسه بمعنى عندما نريد ان نكتب في الاكسيل Application. Visible = False نكتبه كدا YXL. Visible = False اكيد وصلت الفكرة ولو مش وصلت نكمل مثال كمان المتغير ونظيره في الإكسيل YWB= Workbook YSheet= Worksheet YRng= Range اكيد الامور اصبحت سهلة كدا أي كود في الإكسيل نستبدل المذكورين في أعلاه بنظره في الإكسيل وسيعمل الكود بإذن الله يعني مش هتخترع اكواد جديدة هي نفس القديمة بس تعديلات طفيفه المهم الكل يكون عمل الفورم والموديول والاداوت كما ذكرت سابقا بالترتيب الموجود عشان الاكواد متتبدلش مع الادوات نيجي بقي للاكواد Private Sub Combo1_Click() 'جدا الكمبوبوكس ومنه بيتم جلب البيانات بمعلومية الرقم والكود طبعا مفيهوش جديد نفس اكواد الاكسل With YSheet LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row For iRow = 6 To LastRow If .Cells(iRow, 2) = Combo1.Text Then Text1.Text = .Cells(iRow, 2) Text2.Text = .Cells(iRow, 3) Text3.Text = .Cells(iRow, 4) Text4.Text = .Cells(iRow, 5) Text5.Text = .Cells(iRow, 6) Text6.Text = .Cells(iRow, 7) End If Next End With End Sub Private Sub Command1_Click() Dim lstrow As Long 'ودا كود ترحيل البيانات ونفس الشئ مش جديد كل اللي اتغير اللي ذكرنااه If Text1.Text = "" Then MsgBox "íÌÈ ÇÏÎÇá ÌãíÚ ÇáÈíÇäÇÊ" Else lstrow = YSheet.Range("b20000").End(xlUp).Row + 1 YSheet.Cells(lstrow, "b").Value = Text1.Text YSheet.Cells(lstrow, "c").Value = Text2.Text YSheet.Cells(lstrow, "d").Value = Text3.Text YSheet.Cells(lstrow, "e").Value = Text4.Text YSheet.Cells(lstrow, "f").Value = Text5.Text YSheet.Cells(lstrow, "g").Value = Text6.Text Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" MsgBox ("ÊãÊ ÇáÚãáíÉ ÈäÌÇÍ") End If End Sub Private Sub Command2_Click() 'ودا كود اظهار برنامج الاكسيل بردو غيرنا اللي اشرنا ليه فقط YXL.Visible = True End Sub Private Sub Command3_Click() ' ودا لاخفاء برنامج الاكسل YXL.Visible = False End Sub Private Sub Command4_Click() 'لحفظ البرنامج المفروض المتغير يكون شغال بس مش عارف سبب المشكلة ايه حاليا فقلت اجرب الكود العادي اشتغل تمام مشي حالك 'åäÇ ãÔ ÚÇÑÝ ÇáãÊÛíÑ åäÇ ÞÝÔ ãÚÇíÇ æãÔ ÚÇíÒ íÍÝÙ ÞáÊ ÇÌÑÈ ÇáßæÏ ÇáÚÇÏí ÇÔÊÛá ÞáÊ Òí ÇáÝá 'YWB.save ActiveWorkbook.save End Sub Private Sub Command5_Click() 'وطبعاخروج YXL.Quit Set YXL = Nothing End End Sub Private Sub Form_Load() 'هنا بنستدعي ملف الاكسيل من نفس مسار البرنامج بتاعنا ونفتحه YXL.Workbooks.Open App.Path & "/aseel.xlsx" 'اخفاء البرنامج بعد فتحه طبعا YXL.Visible = False 'هنا بقي قولنا له ان يخلي Ysheet دي تبقى الشيت الاول والاكس شيت تبقي الشيت التاني Set YSheet = YXL.Worksheets(1) Set XSheet = YXL.Worksheets(2) عادي ليبل وبياخد بياناته من خليه معينه Label7.Caption = YSheet.Range("a1").Value Label8.Caption = YSheet.Range("a2").Value With Combo1 'ودا ا لكمبوبوكس بندرج فيه بيانات الصف b For Each Data In YSheet.Range("b6:b" & YSheet.Cells(Rows.Count, "b").End(xlUp).Row) .AddItem Data Next End With End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ودا بقي عشان لما تدوس علي علامة الاكس فوق ميخرجشي من البرنامج ويسيب ملف الاكسيل مفتوح ومخفى '' YXL.Quit Set YXL = Nothing End End Sub وبكدا نكون انتهينا من وضع الاكواد اظن الكل واخد باله انه مفيش جديد وهو دا بالتحديد مفيش جديد كل اللي عملناه واحد تايه وعرفنا السكه خلاص وبعدين محدش ينسى يعمل ملف اكسيل اه بعد دا كله يجي حد يقولي البرنامج مش شغال ليه اقوله فين ملف الاكسيل بعد الاطلاع علي البرنامج هيجي واحد يقولي ايه القلب الجميل اللي علي الفورم دا اللي مكان السهم اهو دا من ضمن اللمسات الجمالية وبيتعمل ازاي يامعلم الشرح بسيط ف الصورة معلش بدل ما اكتب الماوس كتبت الموس شغال بقى اعذروني انا بعمل الشرح في وقت قياسي وانا شغال مرفق البرنامج ومعاه القلب عشان تعملوه مكان السهم يارب اكون وصلت المعلومة صح واي خطأ منى فدا لجهلى اعذروني منتظر الردود علي فكرة الدرس دا تقريبا بنسبة كبيرة يعتبرحصرى لمنتدى اوفيسنا انا بحثت عن ربط الفيجوال بالاكسيل كثيرا وكثيرا وكود من هنا وكود من هنا حتى اكتملت الصورة امامي وتوصلت لهذا والحمد لله مع تحياتي ياسر العربي يتبع ربط الفيجوال بالاكسل.rar

بسم الله الرحمن الرحيم 1- المكتبات والادوات DLL & OCX 2- كيفية تسجيل المكتبات والأدوات Dll & OCX في النظام 3- كيفية إضافة المكتبات وأدوات خارجية للفيجوال والعمل عليها ما هي فوائد استخدام ملفات ال DLL او لماذا نستخدم ملفات DLL: ماذا تعني DLL: هي اختصار لمجموعة الكلمات التالية Dynamic link libraries لمحة سريعة عن DLL: هي عبارة عن ملفات مترجمة(Compiled files) شبيهة الى حد بعيد جدا بالملفات التنفيذية و التي تحمل اللاحقةExe, ملفات ال DLL يمكن ان تحتوي على Codes او يمكن ان تحتوي على مصادر resources او ممكن ان تحتوي على بيانات Data و قد تجد DLL يحتوي على كل ما سبق ذكره, و لكن الفرق الجوهري بين DLL و Exe هو أنّ ملفات DLL لا يمكن تنفيذها بشكل مباشر و انما يتم استثمارها من قبل تطبيقات اخرى اي ان ملفات DLL ليست مستقلة بحد ذاتها و تحتاج الى تطبيق دائماً للاستفادة منها مع انها تحتوي على اكواد تنفيذية مثلها مثل exe و لكن لا يمكنها ان تعمل بمفردها و يمكنك تخيل ان ملفات DLL هي ملفات مساعدة للتطبيق للقيام بعمله. الهدف الرئيسي من وجود ملفات DLL هو مشاركة الاكود بين العديد من التطبيقات اي استخدام نفس ال DLL من اكثر من تطبيق سواء بوقت واحد او بشكل منفصل. والادوات ocx تشبه نفس وظائف dll بصورة كبيرة كيفية تسجيل الأدوات نفترض ان لدينا ملف dll او ocx نريد اضافة للنظام للعمل عليه من داخل الفيجوال بطريقة سليمة الطرق كثيرة ولكن نختصر ونضع الخلاصة نفترض انا لدينا اداة اسمها actskin4.ocx نقوم بنسخها لملفات النظام اذا كان 32 لملف c:\windows\system32\actskin4.ocx اما اذا كان النظام 64 bit فلا بأس من نسخ الملف مرتين في المسارات الاتيه c:\windows\system32\actskin4.ocx C:\Windows\SysWOW64\actskin4.ocx ونقوم بعمل نوت باد اذا كان النظام 32 نضع هذا السطر regsvr32 c:\windows\system32\actskin4.ocx ونحفظه بامتداد bat وليكن اسم الملف reg.bat اما نظام ال64 نضع الاسطر التالية regsvr32 c:\windows\system32\actskin4.ocx regsvr32 c:\windows\SysWOW64\actskin4.ocx وتعمل لكلا النظامين ويتم الحفظ ايضا بامتداد bat واسم الملف ليكن هكذا reg.bat وغالبا يتم فتح الملف بعد ذلك كمسئول كليك يمين وRun admin لتظهر نافذة تقول انه تم التسجيل بنجاح ولقد وضعت برنامج في المرفقات للتسهيل علي البعض في تسجيل الاداوت كيفية إضافة المكتبات وأدوات خارجية للفيجوال بعد ان قمنا بنقل الادوات الى ملفات النظام سواء 32bit or 64bit وتم تسجيلها كما بالشرح السابق نقوم بفتح مشروع جديد وبكدا نكون تعلمنا طريقة وضع الادوات علي الفورم ناتي لكيفية التعامل معها برمجيا وكمثال هنعمل علي نفس الاداة المدرجة في اعلاه وهي actskin4.ocx ما فائدة هذه الاداة : تقوم بتغيير المظهر العام لوجهه الفورم والازرار الى واجهات skinمعدة للتعامل مع هذه الاداة وهي من اللمسات الجمالية للبرنامج بتاعنا عيب الاداة : ان الليبل الاصلي لا يظهر عند تشغيل البرنامج ولا اداة image ويأتي مع الأداة ليبل بديل لليبل الاصلي يظهر مع الاداة وتستبدل الimage بال picture نأتي لكيفية التعامل معها برمجيا اولا نقوم بانشاء مشروع جديد واضافة الاداة كما سبق ويتم وضع الكود الخاص بالاداة في حدث تحميل الفورم وممكن وضعه باي حدث نشاء كزر مثلا لتغيير الskin كود التشغيل يجب اولا ان يكون لديك ملفات skin ليتم التطبيق عليها عن طريق الاداة قمت بارفاق بعض ال skin للتطبيق عليها ووضعتها داخل مجلد داخل البرنامج بتاعنا وسميته كمثال skin الكود البرمجي Private Sub Form_Load() ' سطر استدعاء وتحميل ملف الskin من مسار البرنامج داخل المجلد skin اسمه Yasser.skn Skin1.LoadSkin (App.Path & "/skin/yasser.skn") 'سطر تطبق ما تم استدعائه Skin1.ApplySkin Me.hWnd End Sub واحفظ مشروعك وقم بتشغيله لترى هذا شوف الفرق اي استفسارات توضع ف موضوع الردود والاستفسارات الى اللقاء والسلام عليكم مع تحياتي ياسر العربي يتبع مرفق برنامج تسجيل الاداوت والمشروع المنفذ ف الشرح RegOCX.rar مشروع لمسه جمالية.rar

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

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

حبيبى يا ابوالبراء هههههههههههههههههه حلو اكسلجى دى ههههههههههههههههههه ممكن حد يفتكرها اسرنجاتى هههههههههههههههههههههههه يا عم والله ما عندى وقت هنا فى الغربه برجع البيت الساعه 7 مطحون من الشغل ومهنتى بتعامل مع ارقام يعنى برجع مدروخ برنامج ايه والله ما بعت كله هدايا والله والله كنت هبصيها ليك وسالتهم على فيزا قالو والله مفيش هما عايزين حد من هنا لان مفيش فيز والله نفسى اسوقلك واخد 30 % ههههههههههههههه بس لما انزل مصر لان هنا مش هينفع انا لو مكانك اعمل مركز تدريب ودورات باسكندريه أيه رائيك فى الفكره يالا وانا هدعمك

أخي وحبيبي في الله حسام عيسى الإكسيلجي المتميز بارك الله فيك وجزيت خيراً على مشاركتك المميزة .. مركز تدريب ودورات وبرنامج محاسبي على أعلى قدر وشغل ومش لاقي وقت (بقر بس) ربنا يزيدك من فضله وبعدين اللي معندكش وقت ليه باصيه لأخوك ..اللعبة خد وهات (ربنا يصلح أمورنا جميعاً) وبالنسبة للـ 10% لا تقلق ممكن خليهم 30% بس اعملي دعاية وليك على كل راس 30% ..نسبة عمولتك تقبل وافر تقديري واحترامي

بارك الله فيك اخي الغالي لا بأس ان يكون لنا جانب من مجهودنا بس ياريت حط نسخة ديمو كدا ولا تجريبية ولا خايف نقلبها منك

اكتب هذه المعادلة مقابل اول خلية و اسحب نزولاً =COUNTIF(A$3:A3,A3)

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

السلام عليكم ورحمة الله وبركاته الأخ الحبيب أيمن بدر جزاكم الله خيراً على هذا التشجيع وأرج أن ينضم إلينا كثير من الأعضاء حتى تعم الفائدة أخي وحبيبي أبو عبد الرحمن المقدسي يبدو أنك من أكثر المواظبين على هذه الدورة ، شكلك ناوي تجيب امتياز أما بالنسبة للبهارات خايف تكون كتير تقوم الناس يجيلها إمساك وساعتها بدل ميدعولي حيدعو عليا أتمنى أن يكون الدرسين نالوا إعجابكم واستفدتم منهما وتكون عملية الاقتحام إلى ذلك العالم الشيق الممتع تمت بسلام إليكم الصاروخ الثالث أقصد الدرس الثالث ( الفصل الأول _ الجزء الثالث ) كان فيه مثال مرفق بس أنا نسيت أحمله على الفلاشة ، وأوعدكم بكرة حيكون المثال معي إن شاء الله ChapterOne_3.rar ChapterOne_C.rar

السلام عليكم إخواني الكرام أخي أحمد يعقوب مشكور على المرور الكريم وفي انتظار التفاعل معنا في هذه الدورة فنحن في حاجة إليك منورنا يا باشا أخي خالد القدس اهضم كويس عشان اللي جاي ميكبسش على العقل ويخليه يهنج!!! أخي جودة أنا بدأت ولو لم أستمر فليستمر غيري وليكن أنت أو أي عضو بالمنتدى المهم ألا يغلق الموضوع حتى نطمئن إلى أننا وصلنا إلى مرحلة متقدمة أخي أبو عبد الرحمن بالله عليك وحدة وحدة الموضوع محتاج تأني وتروي أنا عارف إنك مستعجل وأنا مستعجل وكل الأعضاء مستعجاين ، بس متنساش إن الدورة للذين هم في مرحلة الحبو ( أمثالي) إليكم إخواني الجزء الثاني من الفصل الأول ، وقد رفعته بالتنسيقين 2003 و 2007 أخوكم أبو البراء ChapterOne_2.rar ChapterOne_B.rar

السلام عليكم ورحمة الله أعلم أني قد تأخرت عليكم وها أنا أبدأ معكم دورتنا المتواضعة إليكم الجزء الأول من الفصل الأول ، وأسأل الله أن ينفعنا به ChapterOne_1.rar