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

screentogif اتفضل هذا هو رابط موقع البرنامج ورابط تحميل البرنامج https://screentogif.codeplex.com/ https://screentogif.codeplex.com/downloads/get/1554964 واسألك الدعاء للاستاذ الجليل jjafferr فهو من دلنى عليه

السلام عليكم ورحمة الله لست أدري إن كنت تأخرت في الرد، وهذه معادلة يمكن وضعها في الخلية B1 (أو غيرها) ثم سحبها إلى الأسفل... =IF(ROW($A1)<=COUNTA($A$1:$A$6);OFFSET($A$1;COUNTA($A$1:$A$6)-ROW($A1);;1);"") بن علية

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

اتفضل اخى واستاذى ياسر اليك حلا اخر {=INDEX($A$1:$A$6,LARGE(ROW($A$1:$A$6),ROW($A1)))}

الطريقة مجربة وسليمة 100% ويمكن اخفاء النموذج المسؤول ليعمل بصمت في الخلفية تصور انه يمكن ايضا ان يرسل لك رسائل sms يذكرك بمواعيدك

الموضوع : كود ترحيل البيانات بشكل مميز سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة أبدأ بفنح ملف أكسيل جديد : قم بتسمية ورقة العمل الاولى بأسم ادخال بيانات والورقة الثانية فواتير ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة ثم تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال : ----------------------------------------------------- اصدار 2003 من مربع أدوات التحكم > ادارج زر ------------------------------------------------------ اصدار 2007 من المطور > ادراج زر ------------------------------------------------------- وفى الصفحة الثانية التى تم تسميتها باسم فواتير نصممها على هذا الشكل بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود من خلال اختيار وضع التصميم والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق ) الجزء الاولى من الكود الجزء الثانى من الكود الجزء الثالث من الكود الجزء الرابع من الكود الجزء الخامس من الكود الجزء السادس والأخير ملاحظة : الكود يرحل بترتيب الادخال . لتحميل الشرح مصور + ملف المثال + الكود من هنا فى النهاية أسالكم الدعاء اذا افادكم ذلك

السلام عليكم ورحمة الله وبركاته وجدت هذه الدالة اثناء تجولي وحبيت ان اضع عليها مثال هنا لمن قد يبحث عنها الدالة هي FILELEN وهذا ببساطة شكل الدالة FileLen( file_path ) الدالة تحضر حجم الملف بالبايت .. وبإمكاننا التحويل الى ما نريد بعد ذلك هنا طرق التحويل المعروفة للجيمع . 1 Byte = 8 Bit 1 Kilobyte = 1,024 Bytes 1 Megabyte = 1,048,576 Bytes 1 Gigabyte = 1,073,741,824 Bytes 1 Terabyte = 1,099,511,627,776 Bytes في المرفق انا حولت الى كيلوبايت .. اترككم مع المثال .. فك الضغط على الدرايف D للتجربة وبعدها بإمكانك النقل الى اي مكان كل ما عليك هو معرفة المسار والإمتداد بالتوفيق للجميع fileSizeDemo.rar

السلام عليكم ورحمة الله وبركاته لدي نموذج يفتح مع بداية البرنامج وهو يحتوي على مواعيد محددة بالوقت لهذا اليوم سؤالي بالتحديد ... هل طريقتي بإستخدام هذا الكود صحيحه ولن تبسبب مشاكل للنظام لو فرضنا ان البرنامج يعمل طوال اليوم هذا هو الكود وفي المرفق توضيح اكثر Private Function sSA() On Error Resume Next Dim i, r As Integer Dim rs As Recordset Set rs = Me.RecordsetClone r = rs.RecordCount rs.MoveLast rs.MoveFirst For i = 1 To r If rs!mish_time = Time() Then DoCmd.OpenForm "alarm" End If rs.MoveNext Next rs.Close Set rs = Nothing End Function يتم استدعاء هذه الدالة عند حدث عداد الوقت كما هو موضح في النموذج frm_missions شكرا لكم AlartSysteM2003.rar

اشكرك كثيرا ً اخي العزيز لقد حلت المشكلة مع الشكرالجزيل وفقك الله وبارك الله فيك مع الشكرالجزيل

اخي ابو البراء اليك ما كنت أطلبه (أظن انه يوجد حلول اخرى) و ما زلت اطمع بالمزيد بدون تكرار مثلاً) Reverse_Without_Empty.rar

استاذي ياسر كلامك صحيح لكن الميزة انه لا يمكن مسحها او نسخها وايضات يمكن التعامل مع الشيت كانه غير محمي بكل الأحوال هي محاولة عسى ولعل

برايي افضل بهذا الراي لم يعد هناك حاجة او وجود ل اللوب !! الكود كافي بالعد كل ثانية واظهار الفورم ! بالتوفيق

كلامك صحيح واوافقك ! يمكن يصبح الكود هكذا Private Sub Form_Timer() If DCount("*", "tbl_MIssions", "mish_time=time() and mish_date=date()") > 0 Then DoCmd.OpenForm "alarm" clock.Caption = Time() End Sub تحياتي

السلام عليكم إليك مرفق فيه معادلة بسيطة مجرد اختيار الخلية التي بها المعادلة تبقى مخفية ولا يمكن تغيير محتواها انظر إلى محرر الأكود بالضغط على alt+F11 في sheet1 افتح view code هشام ابوسنى.rar

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

تفضل هذا مثال حسب طلبك بالنسبة للارقام التي من خلالها يتم التفريق بين المستخدمين كــ 22 ، 55 .... وغيرها فهذه يمكن لبرنامجك ان يضيفها آليا عند التسجيل حسب النوع تخصيص المداخل متغير.rar

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

خجلتوني و الله ... كل ما اعرفه عن الاكسس و البرمجة فقد تعلمته من هذا المنتدى الجميل و الاجمل أساتذته الكبار و أعضائه ... أكيد و لكنها فكرة ... و الاسهل او النموذج ... كرار ...

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

هذه مشاركة بطريقة اسهل قليلا للمتعلم drgat2.rar

اليوم والشهر بالهجرى تلقائى بالتوفيق اخوانى الاحباب التاريخ بالهجرى بشكل تلقائى.rar

تفضل أستاذى رمهان و جميع الإخوة المهتمين بالموضوع الحصول على الدرجة السابقة الدرجة رقم 2 ترتيبا فى جدول الدرجات حتى مع إضافة درجات جديدة للموظف وشكرا لجميع الإخوة خاصة الأستاذ رمهان mylasttry - 2.rar

وهذه بالاستعلام وبدوال المجال! SELECT tblDrgat.empId, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","empid=" & [empid]) & "#") AS 1, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","drgadate<#" & DMax("drgadate","tbldrgat"," empid=" & [empid]) & "# and empid=" & [empid]) & "#") AS 2 FROM tblDrgat GROUP BY tblDrgat.empId; وهناك افكار اخرى ! وهذه على جدول الموظفين SELECT جدول1.eid, جدول1.eName, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","empid=" & [eid]) & "#") AS 1, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","drgadate<#" & DMax("drgadate","tbldrgat"," empid=" & [eid]) & "# and empid=" & [eid]) & "#") AS 2 FROM جدول1;

انا لله وانا اليه راجعون البقاء لله اسال الله ان يلهمك الصبر وان يعوضك بذرية صالحه

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

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

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

الى الاخوة وخبراء منتدى ارجو مساعدتى الى ايجاد مجموع مبالغ حسب سنوات مساعدة في جمع.rar

الله يبارك فيك وييسر امورك

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

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

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

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

طيب فضلا وليس امرا ممكن حضرتك ترفق قاعدة بياناتك التى عملت عليها

اخي سعيد اولا ومن النظره الاولى لا انصح بهذا الكود ! ياساتر انت كل ثانية بتلف على السجلات وانشاء كائن ثم حذفه ! ثانيا لاحظت التالي وبالنظر في الكود السابق : 1. جعلت عد السجلات قبل التحرك اخيرا ثم اولا وهذا غير منطقي حيث التحرك يسبق العد لان الفائدة اصلا من التحرك هو الحصول على العدد الصحيح للسجلات 2. تتم المقارنة بناء على الوقت فقط ومهملا التاريخ معناته التنبيه يومي فهل هذا مستقصد وباهمال التاريخ 3. خلو الرسالة من موضوع التنبيه فقط ظهور الرسالة 4. لو كان هناك موضوعين بنفس الوقت هل كودك السابق سيظهر النموذج مرتين ؟ اعتقد انك لم تجرب الكود عمليا !! تحياتي

اطلعت على المرفق واول ملاحظاتي وهي التي يجب ان توليها عنايتك : الجداول وتصميمها 1- يجب كتابة اسماء الجداول بحروف انجليزية وعدم ترك مسافات فارغة بين الكلمات 2- يجب كتابة الحقول داخل الجداول بحروف انجليزية وعدم ترك مسافات فارغة بين الكلمات 3- التأكد الا تكون التسميات كلمات محجوزة ومعرفة في اكسس مثل date و Name .... وغيرها الملاحظات اعلاه تساعدك مستقبلا في كتابة الاكواد وفهمها بشكل صحيح لانه عند استخدام الحروف العربية تنقلب الاكواد رأس على عقب ويصعب فهمها اما الواجهات العربية فهي تكون في التسميات التوضيحية داخل الجداول او النماذج او التقارير 4 - اختيار النوع المناسب للحقل حيث رأيتك جعلت اغلب انواع الحقول = عملة والعملة فقط للحقل الذي يدخل فيه نقود ويجوز ان نستبدل نوع حقول العملة بارقام مزدوجة اما المعرفات فتكون اما ارقام او نصوص والخلاصة / لتعلم اكسس باحتراف وباقل مدة ممكنة يجب البدء من الجداول وهضمها جيدا ويجب تصور البرنامج كاملا من خلال الجداول سأبحث لك ان شاء الله في مكتبتي عن امثلة سهلة تساعدك

جميل جدأً واستفدنا من كل الطرق. مبدعين

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

صباح الخيرات جزاك الله خيرا ابو يوسف هو نفس الكود اللى ارفقته ولكن بدون استخدام الاداه وتعديل كما اشار اخى ابو البراء فى السطر الاخير فقط ليتم العكس فى عمود b WorkRng.Offset(, 1).Formula = Arr طبتم واهتديتم

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

اسف نسيت ارفق المثال ... 12345.rar

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

أخي الكريم يرجى الإطلاع على هذا الرابط لمعرفة بدايات التعامل مع محرر الأكواد من هنا

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

اعتذر جدا جدا جدا فى تأخرى فى الرد على حضرتك لم انتبه الا الان واعتذر ايضا نسيت وضع هذا السطر اولا AllowDeletions = True اجعل الكود على هذا الشكل وسيعمل على اكمل وجه ان شاء الله AllowDeletions = True DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord

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

أخي الكريم مراد يرجى تغيير اسم الظهور للغة العربية إليك الكود التالي ..قف في أي خلية في الجدول الذي يحتوي البيانات ثم نفذ الكود Sub FilterDeleteRows() Dim rTable As Range Dim rCol As Range, rCell As Range Dim lCol As Long, iRow As Long Dim xlCalc As XlCalculation Dim vCriteria On Error Resume Next With Selection If .Cells.Count > 1 Then Set rTable = Selection Else Set rTable = .CurrentRegion End If End With On Error GoTo 0 If rTable Is Nothing Or rTable.Cells.Count = 1 Or WorksheetFunction.CountA(rTable) < 2 Then MsgBox "Could Not Determine Your Table Range.", vbCritical, "Exit Sub" Exit Sub End If ''''''''''''''''''''''''''''''''''''''''''''' 'الشرط vCriteria = "False" 'رقم أول صف للبيانات iRow = 6 'رقم العمود المراد فلترته lCol = 19 ''''''''''''''''''''''''''''''''''''''''''''' If lCol = 0 Then Exit Sub Set rCol = rTable.Columns(lCol) Set rCell = rCol.Cells(iRow, 1) With Application .Calculation = xlCalculationManual: .EnableEvents = False: .ScreenUpdating = False End With For lCol = 1 To WorksheetFunction.CountIf(rCol, vCriteria) Set rCell = rCol.Find(What:=vCriteria, After:=rCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Offset(-1, 0) rCell.Offset(1, 0).EntireRow.Delete Next lCol With Application .Calculation = xlCalculationAutomatic: .EnableEvents = True: .ScreenUpdating = True End With End Sub تقبل تحياتي

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

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

السلام عليكم ورحمة الله وبركاته كل ما سيأتي الفترة القادمة هو كيفية التعامل مع الادوات والفورم مثال باذن الله عن كيفية عمل برنامج بسيط لتشغيل القرأن الكريم من موقع tvquran كالعادة نبدأ بالادوات عدد فورم واحد كومند للخروج واحد image اداة الويب الشرح كما موجود امامنا الفورم وعليه الادوات الصورة والزر وصفحة النت فقط لتعديل الفورم بهذا الشكل يتم عمل كما في الصورة الاتية بعد اخفاء الشريط نأتي للصورة خلصنا من الصورة ندخل علي اداة الويب بعد وضع كل الادوات بهذا الشكل نقوم بوضع اسهل كود وهو كالتالي اول كود في الكومند1 Private Sub Command1_Click() End End Sub ثاني كود وهو في حدث تنشيط الفورم وظيفة الكود فتح الموقع www.tvquran.com/add/index.htm Private Sub Form_Load() WebBrowser1.Navigate "www.tvquran.com/add/index.htm" End Sub دائما الملف بعد الانتهاء منه لا يظهر في الاسفل في taskbar نقوم بتعديل الفورم كالاتي ليظهر في التاسك بار عند تشغيله واالاختيار بأسفله center screen لوضع الفورم في منتصف الشاشة عند الفتح كان هذا المصحف هدية لاخي الغالي ابو يوسف منذ فترة والان تم وضع كيفية عمل الهدية نفسها علها تنفعنا وتنفعكم والسلام عليكم يتبع مرفق المصحف ملف تنفيذي والمشروع المصحف.rar