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

السلام عليكم جرب هذا Private Sub ComboBox1_Change() Dim i As Byte: i = Me.ComboBox1.ListIndex + 1 Me.TextFind2.Visible = False Me.TextFind1.Visible = False Me.Controls("TextFind" & i).Visible = True End Sub Private Sub ComboBox2_Change() Dim i As Byte: i = Me.ComboBox2.ListIndex + 1 Me.TextFind2.Visible = False Me.TextFind1.Visible = False Me.Controls("TextFind" & i).Visible = True End Sub

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

السلام عليكم أساتذتى وإخوانى وأحبابى فى المنتدى :- ******************************************** مع كل شىء جديد فى الأكسل أصل إليه أحب أن أقدمه للمنتدى الذى تعلمت منه وفيه كرد للجميل الذى وهبنى إياه من قبل باختصار لو عندى 3 ملفات اكسل ( أ و ب و ج ) نقدر ننقل بيانات من ( أ ) إلى ( ج ) بدون فتح ( أ ) ولا فتح (ج ) ( انجليزى ده يا مرسى ؟؟؟؟ ) لأ مش انجليزى ولا ألمانى ولا حتى يابانى أو أمريكانى إنما هو مصرى خالص ووصعيدى كمان والمرفق التالى يوضح ذلك . طريقة التعامل مع المرفق : فك الضغط عن المرفق هتلاقى 3 ملفات mokhtar1 و mokhtar2 و mokhtar3 1- افتح mokhtar1 واكتب ما يبدو لك فى المدى المحدد ( A1 : C5 ) واقفله 2- رووووح على mokhtar2 فقط اضغط الزر " اقفل يا سمسم " 3- اجرى بسرعة على mokhtar3 وشوف النتيجة . الشرح والأكواد فى المرفق 123 كلمة سر الفيجوال بيسك . أكتفى بهذا الموجز وعلى حضرتك اكتشاف المزيد فى الملف . تحياتى لأساتذتى وزملائى copy data from a closed excel file & paste it in a closed excel file by mokhtar.rar

السلام عليكم الموضوع (1) الدالة SUBSTITUTE كثيرا منا لم يسمع عنها وهى من دوال استبدال النصوص اى كان مكانها من الجملة ولها استخدامات اخرى انظر المرفق لاتحرمونا من ردودكم ودعائكم تحياتى دالة SUBSTITUTE.rar

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

السلام عليكم ورحمة الله وبركاته الى السادة اعضاء منتدانا الكرام اليكم اليوم شرح طريقة تشغيل مؤقت Timer بالملي ثانية. ولتوضيح فقد عملت كلاس صغيرة اسميتها SuperTimer سأوضح طريقة استخدامها بمثال مرفق في الموضوع في المرفق ستجد ملفان الاول ملف اكسل و هو المثال الذي استخدمناه و ملف اخر وهو ملف الكلاس SuperTimer.cs طريقة الاستخدام ========= 1 - لتعريف متغير يمثل المؤقت اكتب الكود التالي : Dim st As New SuperTimer 2 - بعد تعريف المتغير (في حالتنا هو st) يمكننا انشاء اجراء بأي اسم. (سيحتوي الاجراء على الكود الذي سينفذ من قبل المؤقت) مثال: نرغب بزيادة قيمة الخلية A1 بمقدار 1 كل ربع ثانية. و ان يتم التوقف عند و صول قيمتها الى ال 100 Private Sub F1() [A1] = [A1] + 1 If [A1] >= 100 Then If st.Active Then st.StopTimer End Sub 3 - الكود التالي يوقف المؤقت اذا كان يعمل: If st.Active Then st.StopTimer 4 - لتشغيل المؤقت اكتب الامر StartTimer و مرر عنوان الاجراء الذي ترغب في تنفيده (في حالتنا الاجراء F1) اليها: هنا سنطلب من الاكسل تشغيل المؤقت كل ربع ثانية (كل ثانية تساوي 1000 ملي ثانية) و ان يتم تنفيذ الاجراء F1 st.StartTimer 250, AddressOf F1 5- الكلاس ممكن ان تنشء مجموعة من الاخطاء منها: 1 - خطأ المؤقت ليس قيد التشغيل : اذا تم ايقاف المؤقت بينما لا يعمل st.ERROR_TIMER_IS_NOT_ACTIVE 2 - خطأ المؤقت قيد التشغيل : اذا تم اعادة تشغيل المؤقت وهو يعمل st.ERROR_TIMER_ALREADY_STARTED 3 - خطأ المدة : اذا تم وضع قيمة اقل او تساوي صفر لمدة تشغيل المؤقت st.ERROR_TIMER_DURATION_ERROR 4 - عند حدوث خطأ في تهيئة المؤقت st.ERROR_TIMER_INITIALIZATION_FAILED ملاحظة ===== استخدمه بحذر و عند الحاجة. يمكنك تحميل الكلاس و المثال من الملف المرفق اسال الله تعالى ان يتقبل منى ومنكم صالح الاعمال SuperTimer.zip

فعلا هذا هو المطلوب أستاذي شوقي ربيع والشكر ايضا للاستاذ ياسر خليل بارك الله فيكما والله لا يحرمنا منكم

امرك اخى الحبيب ان شاء الله جارى تنفيذ طلبك ابشر بكل الخير

اخي s s m شكرا لمشاركتك ... ولكن انا لا اريد دمج البيانات وانما دمج التقارير على شكلها الحالي ... لاني ذكرت في بدية الموضوع تجاهل البيانات ... اريد اظهار التقارير كما هي في تقرير tabl1 و tabl2 ولكن تكون بتقرير واحد وهو Report تحياتي لك

السلام عليكم تفضل اخي اعتقد هذا ما طلبت كي تتم العمليه يجب عليك عمل فورم ادخال للبيانات من Table1 و subform من الTable2 وجمعهما في فورم واحد التابع للTable 1 بالتوفيق Exam.accdb.zip

السلام عليكم تعديل اسماء المجلدات التي تكون برفقة ملف الاكسل "تجربة تغيير اسماء المجلدات" ويمكن نقل او نسخ ملف الاكسل في اي مجلد يحتوي عدة مجلدات تريد تغيير اسماءها كتجربة وضعت عدة مجلدات فاضية لتجرب تعديل اسماءها من خلال ملف الاكسل المذكور اعلاه في ملف الاكسل شرح الاستخدام ملف الاكسل المرفق 2003 myfill.rar

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

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

لنفرض مثلاً ان المبلغ اقل من قيمة الخصم ماذا نفعل

لم افهو بالضبط ماذا تريد و ما هي نسبة لخصم

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

اخى الكريم راجع الرابط التالى http://www.officena.net/ib/index.php?showtopic=57583&hl= انا عارف انه مش المطلوب ولكن يشبه كثير ممكن نعمل علية اى تعديل راجع الملف وشوف انت عايز تعدل ايه وانا تحت امرك قدر استطاعتى من الوقت تقبل تحياتى

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

السلام عليكم ورحمة الله جزاك الله خير

اليك هذا الحل MD salim.rar

جزاكم الله خيرا

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

ما رأيك في ان تختار اي عامود تريد select_aux_choix.rar

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

استاذى الكريم الجموعى الفكرة ليست فى السالب او الموجب الفكرة ان رقم 7 نفسة غلط من تاريخ 2014/8/5م الى 2015/1/5 م الفرق هو 5 شهور فقط وليس 7 يمكن الحل من خلال هذه المعادله =IF(MONTH(B1)<MONTH(A1);MONTH(B1)+12-MONTH(A1);MONTH(B1)-MONTH(A1)) تقبل منى وافر الاحترام والتقدير اخوكم حسام

تفضل لعل المرفق يكون هو المطلوب كشوف المناداة.rar

هل يمكن اضافه هذه المعادله داخل شكل VLOOKUP_3.rar

بارك الله فيك وزادك من علمه

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

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

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

أخى الفاضل الاستاذ ياسر خليل أشكر حضرتك على الاهتمام بالرد على سؤالى وأحب أوضح لحضرتك إن مفتاح إنتر شغال عندى والحمد لله وليس المقصود أن أنتظر ثانيتين قبل ان أضغط إنتر كان قصدى واضحا بأنى أريد أن أركز فقط على إدخال العدد فى الخلية بيد واحدة من على يمين الكيبورد ولا أشغل بالى بالإنتقال إلى الخلية التالية لكتابة العدد فيها بل يقوم الإكسيل بكود برمجى بفعل ذلك ولكن المشكلة فى انه كيف يعرف الإكسيل أنى إنتهيت من كتابة العدد وأريد الإنتقال للخلية التالية فاقترحت الآتى: (معلش طولت على حضرتك بس ياريت تصبر عليه لأوضح فكرتى) عند كتابة العدد 56 مثلا أكيد بيكون فيه جزء ضئيل جدا من الثانية (0.2 ثانية مثلا)من بدء الضغط على 5 ثم 6 أما بعد الإنتهاء من الضغط على 6 (الانتهاء من كتابة العدد56) يكون هناك جزء من الثانية تتوقف فيه الكتابة (والذى يتم فيه الضغط على إنتر باليد الأخرى)(وهذا ما كنت اقصده كمثال ثانية أوثانيتين فى كلامى بحيث يتم التعديل فيه بعد ذلك ) فأردت أن يتعرف الإكسيل على الفترة التى يتم فيها التوقف عن الكتابة لضغط إنتر وهنا يقوم هو بضغط إنتر. وأعتقد ان وجود كود يفعل ذلك فى إكسيل يوفر مجمود كبير أثناء ملىء عمود من 500 خلية مثلا بأعداد حيث يكون المجهود فقط فى إدخال الأعداد وليس إدخال العدد وايضا الضغط على إنتر حيث يمكن استخدام يد واحدة فقط فى هذا العمل وتوفير مجهود اليد الأخرى كما انه سيكون أسرع فى الوقت أيضا معلش طولت على حضرتك أتمنى أن فكرتى تكون وضحت وعلى فكرة أنا بحثت على النت لقيت الفكرة مش موجوده وقد يكون لها علاقة ببرمجة API مثلا ولكنها فكرة أحسست بداخلى بعد توفيق من الله طبعا أنى يمكن أن أجدها عند أحد خبراء هذا المنتدى العريق المحترم أو يمكن تنفيذها بإذن الله وبداخلى ثقة عميقة بالله أولا ثم بالسادة أساتذة المنتدى لتنفيذ هذه الفكرة تقبل تحياتى أخى الكريم وتقبلوا تحياتى كل اعضاء وعمالقة هذا المنتدى المحترم ( تاكيد أخير زر إنتر شغال عندى والحمد لله)

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

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

السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري

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

أخي إبراهيم أبو ليلة ولا يهمك كلنا ساعات بييجي وقت ، وتلاقينا خلاص هنجنا ..عموما لما تلاقي نفسك هنجت اضغط F5 أو اعمل كليك يمين Refresh ولو مكانش فيه نتيجة اعمل لنفسك Restart ..ولو مفيش نتيجة يبقا أكيد دا فيروس سببه قلة النوم، ومحتاج تفرمت الهارد الخاص بك ، والفرمتة معناها إنك ترتاح شوية عشان تقدر تواصل ........ تقبل تحياتي أخي وحبيبي في الله إبراهيم

بارك الله فيك

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

استاذ انه قريب مما هو مطلوب ولن الاغلاق ليس كما هو مطلوب بل هو ما طلبت : فلم تذكر التناقص او التراجع ولا يغلق بنفس طريقة الفتح ؟ الآن تم تحقيق طلبك الاخير في المثال المرفق مع الشرح Option Compare Database Const i As Double = 4000 'هذا الرقم هو المسؤول عن زيادة ونقص حجم النموذج Dim x As Boolean 'وسيط نعم/لا متغير كشرط لتشغيل العداد Private Sub Form_Open(Cancel As Integer) Me.InsideHeight = 0 ' الارتفاع يساوي صفر عند الفتح Me.InsideWidth = 0 'العرض = صفر عند الفتح x = False ' الوسيط=لا عند الفتح End Sub Private Sub Form_Timer() ' عداد النموذج وقد جعلنا قيمته عند الحدث = 100 If x = False Then ' اذا كان الوسيط = لا Call Enlarg ' شغل التكبير Else ' وإلا Call Redu ' شغل التصغير End If End Sub Private Sub Enlarg() ' وحدة نمطية تزيد الطول والعرض 100 كل 0.1 من الثانية If i > Me.InsideHeight Then Me.InsideHeight = Me.InsideHeight + 100 Me.InsideWidth = Me.InsideWidth + 100 Else x = True End If End Sub Private Sub Redu() ' وحدة نمطية تنقص الطول والعرض 100 كل 0.1 من الثانية If Me.InsideHeight > 0 Then Me.InsideHeight = Me.InsideHeight - 100 Me.InsideWidth = Me.InsideWidth - 100 End If If Me.InsideHeight < 10 Then ' اذا كان الارتفاع اقل من 10 DoCmd.Close ' اغلق النموذج DoCmd.OpenForm "frm2", acNormal ' وافتح النموذج رقم2 End If End Sub تكبير وتصغير متدرج.rar

موضوع رائع جدا جزاك الله خيرا

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

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

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

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

السلام عليكم اليكم الدالة الثانية اجمل واروع من الاولى لا تحرمونا من ردودكم ودعائكم دالة توليد الارقام العشوائية.rar

السلام عليكم اخى خالد دائما سباق وبنتعلم منك اخى ابو عبدالله بارك الله غيك وفى كل اهل الرياض ( البطحه و العلى - وحى الشفا و باندا وايامهم الجميلة ) عالمنا الجليل ( خبور ) هذا شرف بعده يتوقف خفقان القلب اخى يحي حياك الله بدوالك الرائعة وخفة ظلك المعهودة بالمناسبة مع الاسف BOSH ( هما اختصار لاسم ابنتى الكبرى والصغرى وزوجتى وانا) .اذا طاوعك قلبك تغير BOSH الى هشام فتحمل انت النتائج اخى WELD بارك الله فيك فى رعاية الله

ياسلام عليك يا معلم هشام وليس شرطا أن يتم التغيير في آخر كلمة جرب هذه الجملة : انا جائع جدا القديمة : انا الجديدة : أخي وشووووف