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

و عليكم السلام اخي العزيز مؤمن هذه طريقة لعمل ذلك و قد يكون هناك طرق اخرى 1- ضع مربع نصي على النموذج ( اجعل خاصيته مرئي على القيمة لا ) و في حدث عند الفتح للنموذج تحدد قيمة له كالتالي : Me.txtTimer = 5 على اعتبار ان اسم مربع النص txtTimer ... هذا سيحدد خمسة ثواني نفس الكود تضعه في حدث عند تحريك الماوس لمنطقة تفصيل النموذج و ذلك ليتم اعادة وضع القيمة بمربع النص 2- من خصائص النموذج و من التبويب حدث : تضع القيمة 1000 بالخاصية الفاصل الزمني لعدد الوقت و في حدث عند عداد الوقت تضع الكود التالي : Me.txtTimer = Me.txtTimer - 1 If Me.txtTimer = 0 Then DoCmd.Quit Else Exit Sub End If هذا الكود سيقوم بانقاص قيمة مربع النص بواحد حسب قيمة الفاصل الزمني و هي هنا تساوي ثانية واحدة حتى تصل قيمة مربع النص الى صفر فيتم اغلاق البرنامج بإمكانك تعديل القيمة من خمسة ثواني الى الرقم الذي تريده ( فلو اردت مثلا خمسة دقائق تضرب الخمسة في 60 ) بشرط ان تضع نفس القيمة في الاحداث التي وضعناها بها ( حدث عند فتح النموذج و حدث عند تحريك الماوس لمنطقة تفصيل النموذج ) تفضل مثال على ذلك بالتوفيق اغلاق البرنامج .rar

مشكور اخي الكريم ابو تامر على ذكر المصدر وعلى الكود فقد ذكرت انني وجدته ولكن لم اعرف صاحبه جزيت خير للتوضيح اكثر تم التعديل والغاء العمل بهذا الكود وتم اضافة فورم واصبح التحكم من داخل الفورم على الرابط التالي في اخر الموضوع لتلبيه رغبة الاخوة الاعضاء http://www.officena.net/ib/applications/core/interface/file/attachment.php?id=100802 وشكرا للاضافة تقبل تحياتي

الله يجزاكم كل خير ..... شكراً جزيلاً لكم الحلين ارررررررررررررروع ما يقال عنه تنفيذ واخراج عباقرة ... وكل عام وانت بخير لكم ولمنتدى العباقرة لى سؤال ماذا تعنى =B3/540 .... الموجودة بالخلية B1

تفضل اخي الكريم list box1.rar

بعد اذن استاذى ومعلمى (بضم الميم ) ياسر خليل اليك رابط تحويل المعادلات لاكواد للتيسير فى عمل ملف وهو استاذنا العبقرى الغائب الحاضر عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=42853# واليك الملف بعد استخدام الكود تقبل تحياتى الحل2.rar

بارك الله فيك أخي الغالي عادل على مشاركتك القيمة والرائعة أخي الكريم حسين طالما أن المعادلة أدت الغرض فقد تم حل المشكلة لأنه ببساطة يمكن تحويل المعادلة إلى كود بالشكل التالي .. Sub Test() With Range("H6:H" & Cells(Rows.Count, 8).End(xlUp).Row) .FormulaR1C1 = "=SUMPRODUCT((تقرير!R4C1:R7C1=tafasil!RC[7])*(tafasil!RC[-3]*تقرير!R4C6:R7C6))+tafasil!RC[-2]" .Value = .Value End With End Sub تقبل تحياتي

تفضل اخي الكريم ولا تنسى ان تضع خاصية ( مفتاح المعاينة ) الى ( نعم ) في بقية النماذج Database2.rar

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

لي مشاركة قديمة حول هذا الموضوع ولا اعلم اين وقد تكون بمنتدى اخر والله اعلم وعموما كلام ومشاركة الاساتذة اعلاه صحيح وهذه محاولة بالتنسيق الشرطي . انظر form1 تحياتي للجميع New Microsoft Access Database (4).rar

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

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

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

اخي الاستاذ محمد ايمن يبدو ان الخواظر تواردت في نفس اللحظة وهذه فكرة اخرى Private Sub أمر2_Click() For i = 0 To Me.القائمة0.ListCount - 1 Me.القائمة0.RemoveItem 0 Next End Sub تحياتي للجميع

تفضل لعل هذا مطلبك ولكن لى عتاب ما كان يجدر بنا أن نجرب عملية الحذف على اسم النبى صلى الله عليه وسلم وأصحابه لذا قمت بتحويل قائمة المحتويات الى أرقام list box.rar

Me.القائمة0.RowSource = "" تحياتي

حقيقة انا لدي جداول عديدة و مليئة بالمعلومات ، وقمت بربطها بواسطة استعلام واحد ، والواجهة الرئيسية مرتبطة بالاستعلام مالحل رأيك اخي العزيز

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

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

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

الف مبروك اخي سليم ترقية مستحقة بالفعل اعانك الله ووفقك

اخي shivan لم يتغير شئ اعتقد ان التغير يجب ان يكون في حقل Qout في استعلام Q1

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

اي شي تريد تتعلم كود DSUM ؟ Me.n1.Value = Nz(DSum("[total]", "sales", "[type]='ÈíÚ' and [shope] ='ÑæßÑÒ' and [tdate] between [forms]![frm1]![sdate] and [forms]![frm1]![fdate]")) شوف ME.N1.VALUE هو المربع اللي نريد ان يظهر فيه النتيجة استخدمنا الحرفين NZ() مع DSUM لكي ينطي النتيجه‌ اذا كان احد الحقلين بيكون فارغا ولا يسوينا مشاكل احنا نريد ان يجمع من اي حقل و من اي جدول .... نريد ان يجمع الحقل "[total]" من جدول "sales" .... بس بشرط بيكون حقل "[type] " = اي شيء نريد AND و بيكون الحقل [shope] = اي شيء نريد AND يعني و ايضا لازم حقل التاريخ بيكون بين between تاريخين ... ولكن بين ايا تاريخين التاريخ الاول من نوعيه‌ [فورم]![اسم الفورم]![اسم المربع التاريخ الاول] التاريخ الثاني من نوعيه‌ [فورم]![اسم الفورم]![اسم المربع التاريخ الثاني] و نقفل قوسين القوس الاول هي قوس تابع الحرفين NZ والقوس التاني هي قوس DSUM مع تحياتي ارجوا ان تستفيد منها

عفوا اخي انا اخطأ من شأن هذا كان عملت تجربه‌ لزوار موقعنا كان سألت شيء و نسيت ان احذف ذاك الاكواد اقدم اعتزاري ... مع تحياتي و هذا هو الملف ... عفوا dsumre.rar

بناء على فهمي لطلبك S_Debts.rar

اخواي شكرا على المرورا Shivan لا اعرف ماذا عدلت لكن لم بتغير المطلوب بطريقة اخرى اريظ عندتسدبد الفواتير الوارد اولا مسددا اولا كتاريخ فلو غيرنا تاريخ فاتورة رقم ٤ من ١٦-٩ الى ١-١-٢٠١٦ نجد ان السداد لا يتم لها كاول فاتورة بل يبقها غير مسددة لان رقم id اكبر فلا يسددها ولا ينظر للتاريخ.

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

طبعا ممكن ذلك انظر الى النموذج frm2 يظهر الناتج بعد كتابة التاريخ الثاني dsum3.rar

اخي إسلام تحية طيبة كما قال استاذنا رمهان الخطأ كان في اسم الحقل يجب ان يكون fdate عوضا عن sdate ( غلبني النعاس و لم انتبه الى اسم الحقل جيدا ) اما بالنسبة الى علامة الهاش فيمكنك اختصارها dsum2.rar

اتفضل اخي dsumrnnne.rar

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

عزيزي ابو جمانة كل عام وانتم بخير الخطأ في اسم الحقل . في المعادلة sdate وفي الجدول tdate بالتوفيق

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

عفوا اخي على الرغم انا ما فهمت قصدك تماماً ولكن خيلت ان يكون هذا كان قصدك .. مع تحياتي S_Debts.rar

السلام عليكم جزاكم الله خيرا اخى / shivan rekany فعلا هذا ما اريد فعله ، ولا اخفى عليك سرا لم يخطر ببالى ،، وضع الكود فى التاريخ بعد التحديث مثلما فعلت كما انك بذلت مجهود فى عمل اكواد لكل متغير ( وهذا ركز الفكرة عندى وزادها وضوح ) بارك الله فيك ونفع بك

جرب هذا الملف الاسماء عشوائية (حيث انك لم ترفع الملف الذي تريد) يمكنك زيادة الاسماء الى ما تريد (حتى 500 اسم) tekrar.rar

If Year(Date) <> 2016 Then MsgBox "áÞÏ ÇäÊåÊ ÕáÇÍíÉ ÇáÈÑäÇãÌ" DoCmd.Quit End If هذا كود للتأكد ان التاريخ ضمن سنة 2016 حصرا

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

مرحبا اخي نعم يمكن اظافة خلايا و قد قمت بتعديل يتيح لك الانتقال بين الاوراق و الذهاب الى ملف البحث و التعديل و حفظ التعديل V3.rar

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

الاخوة الاعزاء في كثيرا من الاحوال تتشابه بعض السلسل الحرفية الطويلة مع سجناتور فيرس بمعني اخر كل فيرس له باترون اختبار او وزن نوعي تعتمد عليه برامج الانتي فيرس عند فحص السلسل النصية فأذ تتطابق هذا الباترون لسلسله نصية حميده ليست فيرس يؤكد البرنامج ان هناك فيرس يعطيك ايضا اسم الفيرس وفصيلتة ومثال علي ذلك اليكم ملف اكسيل اضغط علي الزر سيعمل علي انشاء ملف نصي في الروت الرئيسي للدريف سي بأسم C:\Test_Virus.TXT به سلسله نصيه مثل فيرس معين وهي ليست بفيرس ستجد ان معظم الانتي فيرس يخبرك بأن الملف به فيرس او يقوم بخذف السلسه النصية اذا كنت اخي العزيز تشك في مصداقية كلامي لا تضغط علي الزر حتي لا تخبرنا لالحقا اني تسببت تعطيل جهازك الاخ كيرلس - ابن الملك الكود ليس به اي فيرس وثق الملف المحتوي علي الكود في برنامج الانتي فيرس في قسم الاستثناءات حتي يعمل دون اعترضه Create_Test_Virus_1.rar

ممكن فيديوهات تشرح الدوال من اول دالة الى اخر دالة

البرنامج يطلب باسورد اخي