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

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

أخواني وأخواتي الأحباء السلام عليكم ورحمة الله وبركاتة أفدم اليكم اليوم برنامج الأسهم والقروض فكرة البرنامج مجموعة من الموظفين اتفقوا على أن يؤسسوا جمعية تكافل بينهم ضمن لوائح وقوانين متفق عليها بينهم. 1. فتح حساب بنكي لهذه الجمعية. 2. عدد الأسهم الشهرية يتراوح من سهم واحد وخمسة أسهم شهرياً قيمة السهم الواحد خمسمائة ريال شهرياً تودع في حساب الجمعية. 3. يحق لصاحب السهم الاقتراض من الجمعية بعد مرور ستة أشهر على إيداع السهم الأول وتوجد أولويات و أفضليات لمن له الحق في أخذ القرض حيث يوجد عدة أنواع من القروض والقرض له حدود عليا لا يمكن تجاوزها على فرض 200000 ريال حسب الاتفاق بين أصحاب الأسهم. 4. تسدد القروض على أقساط بالإضافة إلى قيمة الأسهم الشهرية. أتمنى أنني وفقت في ذلك وأيضاً يهمني ردكم. وتقبلوا مني فائق الاحترام والتقدير الاسم : منصور كلمة المرور : 1441 Mansour101.rar

نعم يمكن والمنتدى مليء بمثل هذه المواضيع ابحث عن رسائل التنبيه ستجد الكثير

اليك ما طلبت اخي الكريم form with combobox.rar

السلام عليكم اخي bahnay انا اتفق مع اخي co2002co ، ولكن وكما قلت انت ، قد يكون برنامجك له خصوصية تتطلب هذا العمل!! اقتراحي: 1. العمل على جدول واحد فقط ، ويمكنك توضيح المعادلات والنسب التي تريد تنفيذها ، فقد نستطيع عملها عن طريق استعلام ، وحفظ البيانات على اساسها في الجدول ، 2. اذا اردت المُضي قُدما بطريقة الجدولين ، فكل اللي تجتاج له هو استعلام تحديث (لتحديث بيانات الجدول الآخر) ، حسب بيانات النموذج جعفر

Me.CCVV = DLookup("[ITEM_BARCODE]", "ITEM_BARCODES", "[ITEM_BARCODE]='" & Me.UBDET_TO & "'") الان جرب

شكرا لاخونا alwazeer تنبيه اخي السائل يجب اخذ نسخة من عملك الكود اعلاه سيعدل جميع التواريخ في الجدول الى تاريخ اليوم

جرب هذا الملف w sh salim.rar

استخدم الكود التالي تحت زر امر وغير اسم الجدول واسم الحقل كما هو في قاعدتك Dim strSQL As String strSQL = "UPDATE TblName " & _ "SET [YrField] = #" & Date & "#" DoCmd.SetWarnings False DoCmd.SetWarnings True

السلام عليكم هذه طريقة أخرى ربما تفي بالغرض سوف يكون شكل التقرير في وضع التصميم هكذا: و شكل التقرير في وضع المعاينة هكذا: - و قد استعملت هذا الكود لتحديد إرتفاع و مكان ظهور التقارير الفرعية في التقرير الرئيسي. Dim RC2 As Integer, RC3 As Integer, RC4 As Integer Dim i As Double Dim heig_r2 As Double, heig_r3 As Double, heig_r4 As Double i = 566.9291338583 RC2 = [rpt_2].Report![nrow2] heig_r2 = (1.085 + (0.503 * (RC2 + 2) / 2) + 0.45) * i Me.rpt_2.Height = heig_r2 '----------------------- Me.rpt_3.Top = heig_r2 + 5.5 * i RC3 = [rpt_3].Report![nrow3] heig_r3 = (1.085 + (0.503 * (RC3 + 1) / 2) + 0.45) * i Me.rpt_3.Height = heig_r3 '----------------------- Me.rpt_4.Top = Me.rpt_3.Top + heig_r3 + 0.5 * i RC4 = [rpt_4].Report![nrow4] heig_r4 = (1.085 + (0.503 * (RC4 + 1) / 2) + 0.45) * i Me.rpt_4.Height = heig_r4 '----------------------- Me.Label119.Top = Me.rpt_4.Top + heig_r4 + 0.5 * i Me.Sum_raseedafter.Top = Me.rpt_4.Top + heig_r4 + 0.5 * i و غيرت خصائص التقارير الفرعية على النحو التالي: أضفت حقل Expr1 فارغ لمصدر السجلات (الإستعلامات) من أجل إضافة تجميع لتقرير الفرعي 1- و غيرت خاصية تكرار المقطع إلى نعم للعنصر رأس_expr1 كما في الصورة: 2- تغيير خاصية التقرير "اتجاه" إلى من اليمين إلى اليسار و هذا هو المرفق: 680.3.الاجازات - Copy.rar

جرب اضف مع الكود المذكور الجملة التالية : Or Is Null

السلام عليكم ... سوف أحاول إن شاء الله في هذه السلسلة سرد بعض النصائح التي تمكنك من جعل الكود الموجود في لغة الـ VBA أكثر فاعلية بحيث تتمكن من إعداد مايكرو يستهلك وقتاً أقل في التنفيذ وقدراً أقل من الذاكرة. بعض هذه النصائح التي سوف أطرحها تتعلق بلغة الفيجوال بيسك بشكل عام وبعضها الآخر خاص بتطبيق الفيجوال على الاكسل . عملية طرح المشاركات لن تعتمد على جدول زمني محدد ، وإنما سيتم طرح المشاركات تبعاً لتوفر الوقت لدي. لقد اعتمدت في طرحي لهذه النصائح على مصدرين أساسيين: - البرمجة التفاعلية باستخدام الفيجوال بيسك و الاكسل : كتاب ورقي للمهندس شريف فتحي الشافعي. - مجموعة كتابات حصلت عليها من الويب للأخ المتميز تركي العسيري. أنا مبتدئ ولا أملك أي فكرة عن لغة الفيجوال: لا تقلق يا أخي ، يمكنك فهم و استيعاب الدروس إذا كنت تمتلك خلفية بسيطة عن لغة الـفيجوال وكيفية تطبيقها على الاكسل ، ولكن كيف يمكنك الحصول على هذه المعرفة البسيطة؟ كيف يمكنني أن أحصل على أساسيات الـ VBA؟ بصورة عامة فإنك تحتاج من أجل الولوج إلى عالم الـ VBA إلى معرفتين أساسيتين: 1. معرفة مبادئ الفيجوال الأساسية : - الأحداث وكيفية ربط السبب بالنتيجة (ربط الحدث بالإجراء) - المتغيرات و الثوابت و أنواعها - خصائص الكائنات - أداة الشرط IF و الحلقات التكرارية ويمكنك الحصول على هذه المعلومات بسهولة من دروس الفيجوال المنتشرة بكثرة في المواقع العربية. 2. معرفة الأهداف في الاكسل وتسلسلها الهرمي. في الروابط التالية دروس للأخ محمد طاهر عن لغة الـ VBA: http://www.officena.net/Tips/Excel1-intr.htm http://www.officena.net/Tips/Excel2-vbeditor.htm http://www.officena.net/Tips/Excel3-Invoice.htm http://www.officena.net/Tips/Excel4-Grades.htm ومن خلال تصفحي السريع لهذه الدروس فإنني أعتقد بأنها تمثل خير بداية لمن يريد الدخول لعالم الـ VBA الممتع . أنصحك الآن بقراءة هذه الدروس لكي تتمكن من متابعة سلسلة النصائح التي سنوردها. أنا لا أرى من ضرورة تدفعني لتعلم الـ VBA! بالنسبة لي فأنا أرى أن الـ VBA تعني الإبداع و السرعة و المرونة ، وسوف يمنحك تعلم الـ VBA الفرصة في انتقالك من مجرد مستخدم عادي للتطبيق إلى مطور له ، وسوف تتمكن من القيام بمهام ما كنت لتحلم بتنفيذها بواسطة استخدام الأدوات التقليدية في الاكسل ، ولا تعجب إذا أخبرتك بأنني أختصر عملاً قد يستغرق عدة ساعات بكتابة كود لا يتجاوز السبعة أسطر . أظن أنك قد اقتنعت بتعلم الـ VBA. :d هذا الموضوع مفتوح لمشاركات الجميع ونحن نرحب بأي مشاركة لأي أخ ، ولكن رجاء ممن يريد إضافة أي مشاركة التقيد بالترقيم الذي سوف ننتهجه في طرح النصائح.