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

الحلقة الثانية من دورة أساسيات إكسل 2013 من تحت الصفر إلى الاحتراف وفيها: التعرف على واجهة الإكسل 2013 إنشاء مصنف جديد حفظ مصنف العمل الحالي الجديد في إكسل 2013 مقارنة بين إصدارات إكسل السابقة بعض اختصارات لوحة المفاتيح ولا ينقصني سوى دعاؤكم لي بالخير ونشر هذه الدورة من باب زكاة العلم نشره مع تحياتي أ / محمد صالح فيس بوك http://adf.ly/1EbLvW جوجل بلس http://adf.ly/1DjBfI

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

السلام عليكم اخوانى وأحبابى كل سنه وحضراتكم طيبين بمناسبة السنه الجديدة نسأل الله عزوجل أن تكون سنة خير وسعاد ة علينا وعليكم وعلى مصر والعالم العربى والاسلامى و كل سنه وحضراتكم طيبين بمناسبة المولد النبوى الشريف الدنيا كلها مناسبات حلوه وأنا معاى هديتين هديتى بمناسبة السنه الجديدة طريقة مبتكرة للتراجع عن تنفيذ الماكرو . لنفرض أن حضرتك بتشتغل على الاكسل و ايدك خبطت فى زر حذف بيانات بالورقة مثلا بتتصرف ازاى فى هذه الحالة ؟ قدامك 3 طرق : الأولى ما تعرفش تتصرف وتقعد تبكى على البيانات الثانية تقفل الاكسل بدون ما تحفظ وتعيد فتح الملف من جديد الثالثة تستخدم الكود التالى ( فكرته نابعة من الطريقة الثانية بس بنريحك من قفل الملف وإعادة فتحه ) وهذا هو شرح الأكواد المستخدمة : الكود التالى لحذف بيانات Sub DELEDTE() ' تحديد مدى معين Range("a1 :c10").Select ' حذف البيانات Selection.ClearContents ' الوقوف على الخلية a1 Range("a1 ").Select End Sub الكود التالى لتشغيل الكود الذى يليه بعد مدة زمنية ومنع حفظ التغييرات الأخيرة فى الملف Sub CloseMe() ' هنا نحدد المدة الزمنية التى يعمل بعدها الكود "OpenMe" Application.OnTime Now + TimeValue("00:00:10"), "OpenMe" ' هنا نحدد منع حفظ التغييرات ومنع غلق الملف نهائيا Savechanges = False ThisWorkbook.Close False End Sub الكود التالى للتأكيد على عودة البيانات Sub OpenMe() ' رسالة تأكيد عودة البيانات MsgBox " البيانات رجعت ! خلى بالك يا أفندينا مش كل مرة تسلم الجرة " End Sub احنا بكده نكون اتعلمنا جاجتين : الأولى التراجع عن ماكرو الثانية : ودى مهمة خالص وكتير مننا مش واخد باله منها وهى ( كيفية تشغيل ماكرو عن طريق ماكرو آخر ) أتمنى أن يكون الموضوع أعجبكم ودعواتكم للمرحوم أبى ( دعوه بظهر الغيب تكون فى ميزان حسناتك ) هذه هى هديتى الأولى بمناسبة السنة الجديدة انتظروا هديتى الثانية الليلة بمناسبة المولد النبوى الشريف ( كود X قاعة المحكمة ) وهذا المرفق تطبيق على الموضوع والسلام عليكم انتظرونى قبل منتصف الليلة undo macro by mokhtar.rar

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

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

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

السلام عليكم ورحمة الله وبركاته إخواني الأحبة في المنتدى الأغر إليكم معادلة بسيطة جداً تقوم بتوليد تواريخ عشوائية بين تاريخين .. بفرض أن تاريخ البداية في الخلية A2 وتاريخ النهاية في B2 فإن المعادلة تكون بهذا الشكل : =RANDBETWEEN(DATE(YEAR($A$2),MONTH($A$2),DAY($A$2)),DATE(YEAR($B$2),MONTH($B$2),DAY($B$2))) الدالة Randbetween تقوم بتوليد أرقام (شغالة داية ..بس الحكومة بتطاردها) .. وبما إن التواريخ عبارة عن أرقام تسلسلية في الأساس ، فإنه يمكن استخدام الدالة لتوليد تواريخ عشوائية بين تاريخين. الدالة لها عدد 2 بارامتر : البارامتر الأول عبارة عن البداية (Bottom) أو الحد الأدنى أو القاع (كل الترجمات مقبولة .. المهم المعنى يكون واضح) والبارامتر الثاني عبارة عن النهاية (Top) أو الحد الأعلى أو القمة (وهقول مرة تانية كل الترجمات مقبولة ، والحمد لله مقبولة اتجوزت وعندها عيال على وش جواز) المهم .. ما بين البداية والنهاية ، تقوم الدالة بعملية التوليد .. وإن شاء الله العملية تنجح (ونضحي بالأم والجنين عشان الداية تعيش) هنا تم استخدام الدالة Date والتي لها ثلاثة بارامترات الأول خاص بالسنة والثاني خاص بالشهر والثالث خاص باليوم .. أرجو أن تكون الدالة مفيدة لكم كان معاكم أخوكم أبو البراء (من بيت الحاجة أم عنايات الداية ...) دمتم على طاعة الله Random Dates Between Two Dates.rar

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

هكذا تمام التمام أستاذي الغالي ..جزاك الله خيرًا و بارك الله فيك و زادها بميزان حسناتك ..وزادك من علمه و فضله .

أخي الكريم عبد العزيز .. إليك الملف التالي عله يفي بالغرض File Zizo.rar

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

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

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

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

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

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

معاك كل الحق اخي ياسر لا لزوم للاثنين معاً في هذه الحالة

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد ....................................................................... قدمنا فى الدروس السابقه كيفية البحث واظهار النتائج ولكن بشرط تطابق الكلمات الموجوده فى نطاق البحث مع الكلمة المدخله فى خليه البحث ........................................................................ اليوم نقدم الدرس الثانى فى اظهار النتائج بناء على تطابق الحرف المدخل فى خلية البحث مع الاحرف الموجوده فى نطاق البحث ........................................................................ نقدم اليوم درسا جديدا فى شرح كيفية استخدام conditional formatting فى البحث وتظليل السطر الذى تطابق حروفه الموجود فى نطاق البحث مع الاحرف المدخله فى خليه البحث كما فى الصوره كما تشاهد فى الصوره اننا لدينا جدول بيانات به مجموعه من الاعمده وانه تم تظليل السطر الذى يحتوى على كلمة SAID باللون الاصفر وذلك لانها كما يتضح فى الصوره تطابق الاحرف المدخله فى الخليه C6 ولمعرفة كيفية تنفيذ ذلك تابع الشرح فى الصوره الاتيه قم بانشاء جدول بيانات كما فى الصوره الاولى ثم قم بتحديد الجدول بالكامل بداية من B8:E14 ثم اتبع الشرح الموجود فى الصوره =AND($C$6<>"",OR(ISNUMBER(SEARCH($C$6,$B8:$E8)))) الان قم بتطبيق المثال على ملف من عندك وقم بتغير الاحرف الموجود فى الخليه C6 الى اى حرف موجود داخل الجدول وستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى. ........................................... الدرس القادم. كيفية استخدام conditional formatting فى البحث والتظليل بمجرد الكتابه فى الخليه وليس بعد الانتهاء من الكتابه فى الخليه والخروج من الخليه

يتم التغيير بين مستويات العناوين عن طريق المسافة البادئة المظللة باللون الأحمر (أو استخدام مفتاح الجدولة )في الصورة، ريادة المسافة البادئة مرة واحدة تغير العنوان 1 إلى 1.1 ومرتين تغير العنوان 1 إلى 1.1.1 واستخدام مسافة للخلف قبل العنوان يؤدي العمل بالعكس

جميل جداً تم نقل الموضوع الى قسم الاكسل

الأخ الكريم عبد العزيز شوف الكود الخاص بالحذف واستبدل الموجود عند بالسطر ده If Me.TextBox1.Text = Cells(I, 1) Then Range(Cells(I, 1), Cells(I, 54)).SpecialCells(xlCellTypeConstants).ClearContents: Exit For

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

جزيت خيرا وكفيت شراً.. شكرا لك استاذي الكريم عذبتك معي. الله يجزيك الخير

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

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

أخي الحبيب الغالي مختار مشكور على مرورك العطر .. بس للعلم كانت الولادة طبيعية ، بقولك داية دااااااااااااااية وركز ، مفيش داية بتولد قيصري !! (فاتتك دي المرة دي) تقبل تحياتي

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

الأخ الفاضل أحمد مرجان جرب الملف التالي وإن شاء المولى يفي بالغرض Grab Data From CLosed Workbook YasserKhalil.rar

مثال تطبيقي: codebarre.rar

افتح الفورم واعمل دبل كليك على كلمة "بحث" هتلاقي في آخر الكود الخاص بزر الأمر هذا الجزء With Me.ListFind For Counter = 0 To .ListCount - 1 SumResult = SumResult + .Column(3, Counter) Next Counter End With TextBox1.Value = SumResult هذا الجزء تمت إضافته بحيث يحقق طلبك أما بخصوص استفسارك عن رقم العمود .. يبد أالعد من الصفر ، وبالنظر إلى الـ ListBox ستجد أن رقم العمود المراد جمعه هو العمود الرابع أي أنه رقم 3 حيث أن العد كما قلت يبدأ من الصفر ولا تنسى أخي الكريم ان تحدد الإجابة التي أعجبتك كأفضل إجابة ليظهر الموضوع مجاب تقبل تحياتي

السلام عليكم اخي الفاضل اليك الملف المرفق في الملف ستجد زر سيقوم بإظهار رقم الفلاشة هذا الرقم تكتبه في حدث ThisWorkbook في هذا السطر 'If xxx = "رقم الفلاشه ضعه هنا" Then ثم تقوم بإزالة الفاصلة الموجودة في بداية هذه الاسطر 'If xxx = "رقم الفلاشه ضعه هنا" Then 'MsgBox " hi" 'Else 'MsgBox "الرقم التسلسلي غير مطابق" 'Application.Quit 'End If ثم تحفظ ما قمت به بعد ذلك افتح الملف اذا كانت الفلاشة مختلفة لن يعمل الملف لعدم تطابق الرقم التسلسلي وشكراً الفلاشة.zip

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

السلام عليكم ورحمة الله وبركاته رحم الله والديك أخي أبومحمد على العمل الجميل ، تسلم ايدك اذا تسمحوا لي بالمشاركة ايش رايكم بهذا النموذج: بتعديل بسيط على الكود السابق اللي اشتغلتوا عليه ، المادة رقم 1 ، تمسح جميع افرع الشجرة ، حتى يبدأ الكود بعمل الازم: وهاي علشان نخلي الشجرة تُعرض من اليمين الى اليسار: بالاضافة الى هذه الوحدة النمطية: Option Compare Database Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Const GW_CHILD = 5 Public Const WS_EX_LAYOUTRTL = &H400000 Public Const GWL_EXSTYLE = (-20) ' ' From http://www.microsoft.com/middleeast/msdn/faq.aspx ' 'Place OnLoad of the Form ' Dim OldLong As Long 'For Form ' OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE) ' SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For List ' OldLong = GetWindowLong(List1.hwnd, GWL_EXSTYLE) ' SetWindowLong List1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For The StatusBar ' OldLong = GetWindowLong(StatusBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong StatusBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For TreeView ' Dim nodX As Node ' Set nodX = TreeView1.Nodes.Add(, , "R", "Root") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4") ' nodX.EnsureVisible ' OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE) ' SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ListView ' OldLong = GetWindowLong(ListView1.hwnd, GWL_EXSTYLE) ' SetWindowLong ListView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ProgressBar ' ProgressBar1.Value = 50 ' OldLong = GetWindowLong(ProgressBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong ProgressBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ToolBar ' mhwnd = GetWindow(Toolbar1.hwnd, GW_CHILD) ' OldLong = GetWindowLong(mhwnd, GWL_EXSTYLE) ' SetWindowLong mhwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False جعفر 54.TreeView_RTL.accdb.zip

السلام عليكم تفضل اخي هذا المرفق تم التعديل والتجريب على اكثر من اصدار للاكسس واكثر من حاسوب فهو يعمل ولا توجد فيه مشاكل واذا تكررت المشاكل فانا الان بصدد العمل على مثال جديد فارجو اعلامنا كي نرفعه لكم بعد اكتماله وتجريبه بالتوفيق ssm+t.zip

khezzani-barrcode.rar

السلام عليكم الخطاء اخي الكريم في بناء الاستعلام فانت باني الاستعلام من 3 استعلامات احدهما استعلام جدولي (Activity_term1) وهذا الخطاء واليك الصحيح في المرفق بالتوفيق تجريبي2.zip

هذه محاولة قمة وقاع 4.rar

الجزء 1 تحديد وتعريف SQL هذا هو الجزء الأول من سلسلة برامج تعليمية لتوضيح كيف يمكن لل SQL مساعدتك لبناء قاعدة بيانات أفضل. وأحب أن أنوه أن هذه البرامج ليست كورسا متخصصا في ال SQL, فهناك العديد من الكتب الممتازة والكثير من البرامج المتخصصة على الانترنت تعالج هذا الموضوع, سأذكر لكم بعضها لاحقا... في هذا البرنامج التعليمي سوف نراجع المهام العديدة والمتنوعة لل SQL داخل الأكسس, وسأجيب أيضا على العديد من الأسئلة التي عرضت لي شخصيا خلال استكشافي لهذه اللغة ما هو ال SQL ما وظيفة ال SQL ولم يستعمل؟ هل يمكن لل SQL القيام بما تعجز أداة تصميم الاستعلام عن فعله؟ هل أحتاج حقا الى معرفة والاطلاع على ال SQL مصادر لل SQL على الانترنت كتب عن ال SQL ما هو SQL ؟ ال SQL هو لغة استعلام متكاملة ومترابطة, البعض يطبق عليها اسم "Ess Queue Ell" وآخرون يشيرون اليها ب "Sequel" وعلى أية حال, فآن ال SQL لغة حديثة نوعا ما, فقد ظهرت للوجود في أواخر السبعينيات من القرن الماضي "1970", عندما احتاج مبرمجو الحاسوب الى لغة تمكنهم من التواصل مع اللغات الاولية المنطقية – وهي لغات تخزن فيها البيانات عن طريق جداول متعددة ذات روابط كثيرة, والأكسس يعتبر قاعدة بيانات منطقية- وأول معيار لل SQL تم نشره عام 1986 بوساطة ANSI وتم تعديله مرات عديدة منذ ذلك الوقت, وبالرغم من انه كان من المفترض ان تكون لغة قياسية, الا انه ظهر العديد من اللهجات فيها. الميكروسوفت أكسس يستعمل لهجة لل SQL تعرف ب Jet SQL بينما يستخد مايكروسوفت SQL لهجة تسمى T-SQL ولكن اللغة المحورية ولب هذه اللهجات مدعومة من العديد من البرامج وهي بالضرورة بسيطة وسهلة التعلم وعبارة ال SQL تبدو مشابهة للآتي: SELECT tblStaff.* FROM tblStaff WHERE tblStaff.Gender="M"; هذا البيان يقول: "بين لي كافة الحقول من الجدول tblStaff حيث حقل الجنس هو M (ذكر) هذا مثال بسيط لكنه يوضح مدى سهولة لغة SQL وللحديث بقية

اخواني .. السلام عليكم ورحمة اللة وبركاتة. في هذه الوصله [http://www.officena.net/ib/index.php?showtopic=3829] مثال عبارة عن طريقه للبحث بمجرد وضع الحرف الأول داخل مربع النص ولكن للأسف أن البحث يتم في حقل واحد هو حقل الأسم الأول . فمن يعدل على هذا الكود , بحيث يتم عمل مربع نص أخر يبحث في حق ثاني اسمه حقل أسم الأب حيث أن هذه الطريقه تسرع عملية البحث عن الأسم , فلو أن أحد اراد أن يبحث عنو شخص أسمه محمد طاهر مثلاً فأنه يقوم بإدخال الحرف الاول في مربع النص الأول يتم عرض جميع الأسماء التي تبدأ بحرف (م) وعند إدخال الحرف الأول من أسم الأب في مربع النص الثاني يتم إظهار جميع الأسماء المشابهه . اعتقد ان هذه ستكون طريقه سريعه في البحث عن الأشخاص بدلا من الطريقة التقليدية في كتابة الأسم الأول كاملا وأسم كاملا فياترى هل يسعفونا أهل الخبرة بذلك ولكم تحياتي